L
larry
Guest
(re)bonjour
La macro ci-dessous s'arrête juste avant le 2ème If ... je n'arrive à voir mon erreur.
Ce qu'il faut savoir : le résultat de la cellule A18 varie en fonction de 'compteur' (via une formule index/equiv) qui lui même évolue en fonction de 'rang'...
En espérant être clair
Merci par avance.
_______________________________________
Sub Suivi()
rang = 1
If rang < 60 Then
ActiveWorkbook.Names.Add Name:="compteur", RefersToR1C1:="=" & rang
If Range("a18").Value <> 0 Then
Range("A12:A18").Select
Selection.Copy
Range("A12").End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
rang = rang + 1
End If
rang = 2
End Sub
La macro ci-dessous s'arrête juste avant le 2ème If ... je n'arrive à voir mon erreur.
Ce qu'il faut savoir : le résultat de la cellule A18 varie en fonction de 'compteur' (via une formule index/equiv) qui lui même évolue en fonction de 'rang'...
En espérant être clair
Merci par avance.
_______________________________________
Sub Suivi()
rang = 1
If rang < 60 Then
ActiveWorkbook.Names.Add Name:="compteur", RefersToR1C1:="=" & rang
If Range("a18").Value <> 0 Then
Range("A12:A18").Select
Selection.Copy
Range("A12").End(xlToRight).Offset(0, 1).Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End If
rang = rang + 1
End If
rang = 2
End Sub