boucle (suite)

[zè]

re salut!
je refais un post car la page du premier à un pb....

en fait voilà ce que je voudrais faire:

j'ai un tableau de n lignes, je veux appliquer une formule sur ces n lignes, voilà ce que j'ai fais mais j'ai une erreur à la compilation ("invalide or unqualified reference")
je pense que je fais une big erreur de syntaxe ou un truc comme ca...

Sub test()
n = Range("A65536").End(xlUp).Row 'permet de connaitre le nombre de ligne

Dim Cel As Range

For Each Cel In .Range("A1:A" & n)
If (Cel.FormulaR1C1 = "") Then
Cel.FormulaR1C1 = "=IF(AA1<>"";AA1;IF(V1<>"";V1;IF(O1<>"";O1;"")))"
End If
Next Cel


End Sub


merci d'avance à tous

 

[salim]

Bonjour le Forum

Zé ce FIL n'a aucune raison d'être alors qu'on est tous Lien supprimé

@+ Salim