Pourriez vous me donner quelques exemples de macro sur VBA ?

Question

quelques exemples de macro pour :
Imprimer
selectionner, trier etc...

Answer 1

Si la(les) colonne(s) sont fixes:
Sub supp_col_fixe()
Dim CHEMIN As String
Dim FICHIER As String
Dim COMPIL As String
Dim NBCARACT As Integer
Dim LONGUEUR As Integer
Application.ScreenUpdating = True
COMPIL = ActiveWorkbook.Name
NBCARACT = Len(COMPIL)
CHEMIN = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - NBCARACT)
ChDir CHEMIN
FICHIER = Dir(CHEMIN & "*.*")
Do While FICHIER <> ""
If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL Then
Workbooks.Open Filename:=CHEMIN & FICHIER
nj = (WorksheetFunction.CountA(Columns("a:a")))

If nj = 0 Then
Range("A:A").Delete
End If
End If
FICHIER = Dir
Loop
End Sub


si les colonnes sont parametrables (lister les colonnes dans la colonnes G du fichier modele à partir de la ligne 2):
Sub supp_liste_col_G()
Dim CHEMIN As String
Dim FICHIER As String
Dim COMPIL As String
Dim NBCARACT As Integer
Dim LONGUEUR As Integer
Dim COLONNE As String

Application.ScreenUpdating = True
nb = (WorksheetFunction.CountA(Columns("G:G")))
For i = 2 To nb
If Range("G" & i).Value <> "" Then
COLONNE = Range("G" & i).Value & ":" & Range("G" & i).Value
COMPIL = ActiveWorkbook.Name
NBCARACT = Len(COMPIL)
CHEMIN = Left(ActiveWorkbook.FullName, Len(ActiveWorkbook.FullName) - NBCARACT)
ChDir CHEMIN
FICHIER = Dir(CHEMIN & "*.xls")
Do While FICHIER <> ""
If FICHIER <> "." And FICHIER <> ".." And FICHIER <> COMPIL Then
Workbooks.Open Filename:=CHEMIN & FICHIER
nj = (WorksheetFunction.CountA(Columns(COLONNE)))

If nj = 0 Then
Range(COLONNE).Delete
End If

ActiveWorkbook.Close SaveChanges:=yes
End If
FICHIER = Dir
Loop
End If
Next
End Sub

Answer 2

Je vais te donner un conseil qui m'a beaucoup servi pour apprendre le VBA : Si tu veux utiliser le VBA pour excel, word c'est la meme façon de procéder : Tu vas dans Outils Macro - Nouvelle et tu demarres l'enregistrement ... tu fais quelques manipulations (comme le tri d'une colonne par exemple) ... quand tu penses avoir fini : cliques sur Arrêter l'enregistrement ... Il ne te reste plus qu'a aller consulter les lignes VBA generees automatiqument ..

Bon courage ... et bonne programmation