Bonjour le forum !
J'ai, tant bien que mal, réussi à bricoler une macro à l'aide de bouts de code trouvés ici et là.
Cette macro me permet de boucler sur tous les onglets de mon classeur, et vérifie le contenu de la colonne "AG" pour chaque ligne de mes onglets.
Si la colonne "AG" de mes lignes contient le mot "RELANCE" alors, la macro me copie les lignes sur l'onglet "Extraction".
Ma question est la suivante, peut-on, selon la condition mentionnée ci-dessus, copier seulement quelques colonnes et non pas la ligne entière ?
Si la colonne "AG" contient "RELANCE" alors seulement copier les colonnes B, C, D, E, G, H de la ligne ?
Voici mon morceau de code :
Sub extraire()
Dim i As Integer
Dim ligne As Integer
Dim destination As Worksheet
Dim f As Worksheet
Dim derlig As Integer
For Each f In Worksheets
If f.Name <> "Extraction" And f.Name <> "Base" Then
Set destination = Worksheets("Extraction")
ligne = 2
For i = 3 To f.[b65536].End(xlUp).Row
If f.Cells(i, 33).Value = "RELANCE" Then
ligne = Worksheets("Extraction").[A65536].End(xlUp).Row + 1
f.Range(f.Cells(i, 1), f.Cells(i, 33)).Copy destination.Cells(ligne, 10)
End If
Next
End If
Next f
End Sub
Si quelqu'un peut me venir en aide...
Merci beaucoup !