Bonjour à tous,
Je souhaite effectuer une macro permettant d'effectuer une action dès qu'une cellule contient un certain texte
Seulement j'ai l'impression que lorsque cette action s'effectue une fois la macro s'arrete
J'espère être assez clair
Voici le code en question:
Sub Transfert_Tableau()
'Selectionne les cellules que l'on veut recopier
For i = 1 To 28
For j = 1 To 5
Cells(i, j).Select
If Cells(i, j).Value Like "Checklist description (FUNCTION)" Then
Cells(i, j + 1).Copy
Sheets("Sheet4").Activate
Cells(i, j).Select
ActiveSheet.Paste
ElseIf Cells(i, j).Value Like "Checklist name (ITEM)" Then
Cells(i, j + 1).Copy
Sheets("Sheet4").Activate
Cells(i, j).Select
ActiveSheet.Paste
End If
Next j
Next i
End Sub