XL 2013 Appliquer une macro sur des cellules avec des contenus identiques

[novak59]

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

 

[Renaud75015]

Re : Appliquer une macro sur des cellules avec des contenus identiques

Dans ta boucle tu ne reviens jamais à la feuille d'origine (tu copie qqch sur sheet4 et tu n'en sors pas)
Avant le next j il te faut revenir à la feuille d'origine :
sheets("Feuille d'origine").activate

 

[novak59]

Re : Appliquer une macro sur des cellules avec des contenus identiques

ok merci renaud
Ca fonctionne