Problème boucle avec double incrémentation
Bonjour,
Je suis novice en VBA et je suis en train de faire une macro. J'ai plusieurs lignes de code de ce type:
Dim Cel As Range
Dim Mot As String
Dim R As Range
Set R = Sheets("PTP").Range("A3")
Sheets("Copie_TCD").Activate
Mot = "PTPP1"
For Each Cel In ActiveSheet.UsedRange
If UCase(Cel) = UCase(Mot) Then
Cel.Columns("A:H").Copy R
Set R = R.Offset(1)
End If
Next Cel
Set R = Sheets("PTP").Range("A30")
Sheets("Copie_TCD").Activate
Mot = "PTPP2"
For Each Cel In ActiveSheet.UsedRange
If UCase(Cel) = UCase(Mot) Then
Cel.Columns("A:H").Copy R
Set R = R.Offset(1)
End If
Next Cel
Ces lignes de code fonctionnent, mais dès que j'essaie de faire une double boucle cela ne marche plus. Je souhaite à chaque boucle incrémenter i, pour que le Mot change, et dans le même temps copier ma sélection à une ligne spécifique d'une autre feuille (le numéro de ligne est incrémenté de 27 à chaque fois).
J'ai essayé le code suivant, mais ça ne fonctionne pas:
Dim Cel As Range
Dim Mot As String
Dim R As Range
Dim i, j As Integer
j = 3
For i = 1 To i = 12
Set R = Sheets("FDF").Range("A" & j)
Sheets("Copie_TCD").Activate
Mot = "FDFP" & i
For Each Cel In ActiveSheet.UsedRange
If UCase(Cel) = UCase(Mot) Then
Cel.Columns("A:H").Copy R
Set R = R.Offset(1)
End If
Next Cel
j = j + 27
Next i
End Sub
MERCI d'avance pour votre aide!
Bonjour et bienvenue sur le forum
Donne un nom à ta macro et remplace :
For i = 1 To i = 12par :
For i = 1 To 12Tu verras que ça ira mieux.
Pour la première macro, il faudrait voir avec le fichier qui va avec...
Bye !