J
JJ1
Guest
Bonjour à tous,
J'ai un code qui fonctionne à moitié....
Sub test()
Dim i As Long
On Error Resume Next
With ActiveSheet
Feuil1.Range("A1").Value = 0
Feuil1.Range("A2").Value = 0
For i = 1 To 500
Calculate
If Range("AI6").Value = "OUI" Then
.Range("fu" & i, "fz" & i).Value = Range("ad" & 8, "ai" & 8).Value
.Range("ga" & i).Value = "OUI"
.Range("gy" & i, "hd" & i).Value = Range("ad" & 9, "ai" & 9).Value
End If
Feuil1.Range("A1").Value = i
Feuil1.Range("A2").Value = Feuil1.Range("FT1").Value
Next i
End With
Range("A1").Activate
End Sub
Les 2 premières copies (.Range) se passent bien, mais la troisième (en GY-HD) se décale, comme si la macro avait déjà "avancé " au prochain i
Comment puis-je la freiner pour avoir mes 3 copies de cellules exactes?
merci de vos conseils et bonne journée
J'ai un code qui fonctionne à moitié....
Sub test()
Dim i As Long
On Error Resume Next
With ActiveSheet
Feuil1.Range("A1").Value = 0
Feuil1.Range("A2").Value = 0
For i = 1 To 500
Calculate
If Range("AI6").Value = "OUI" Then
.Range("fu" & i, "fz" & i).Value = Range("ad" & 8, "ai" & 8).Value
.Range("ga" & i).Value = "OUI"
.Range("gy" & i, "hd" & i).Value = Range("ad" & 9, "ai" & 9).Value
End If
Feuil1.Range("A1").Value = i
Feuil1.Range("A2").Value = Feuil1.Range("FT1").Value
Next i
End With
Range("A1").Activate
End Sub
Les 2 premières copies (.Range) se passent bien, mais la troisième (en GY-HD) se décale, comme si la macro avait déjà "avancé " au prochain i
Comment puis-je la freiner pour avoir mes 3 copies de cellules exactes?
merci de vos conseils et bonne journée