Copier des cellules spécifiques dans une autre feuille

Question

Je débute en VBA et je recherche à copier certaines cellules (contenant le même morceau de texte) de la colonne A de la feuil1 dans la colonne A de la feuil2. Merci de m'aider...

Xmenpl · Answer

Bonjour, c'est un peu vague .. alors j'espère que même débutant vous serez adapter le code à votre besoin.

Exemple on cherche si le texte "dgs" apparaît dans une cellule ( au début , dans la chaine de caractère ou en fin ): *motcherché*

Sub Macro1()
'
' Macro1 Macro
For i = 1 To Worksheets("Feuil1").Range("A65536").End(xlUp).Row

If Range("A" & i).Value Like "*dgs*" Then
Worksheets("Feuil2").Range("A" & Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1).Value = Range("A" & i).Value
End If
Next

'
End Sub

3classeurtest.xlsm (17.97 Ko)