Discussion :

[pilounet54]

bonjour
je cherche a metre cette formule dans une boucle "vba" pouvez vous m'aider

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'''''''''''''''''''''=SI(E65<>"";"Cotisation";"")

dans une autre boucle

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

'''''''''''''''''''''=SI(E65<>"";C64+1;"")

quel est l'erreur svp

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = 1
   For Each c In Range("PLAGEA")
 
    c.Formula = si("=A" & CStr(i + 1 ) & "<>";"Cotisation";"")
     i = i + 1
   Next c
End Sub

[jfontaine]

Bonjour,

Si tu utilises la propriété Formula, il faut mettre la formule au format Anglais.
Pour utiliser la langue de ta version d'excel, utilises FormulaLocal

Je ne sais ce que représente la plage nommée "PLAGEA" alors il peut y avoir des erreurs, mais l'idée est la

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim c As Range
For Each c In Range("PLAGEA")
    c.FormulaLocal = "=si(A" & c.Row & "<>"""";""Cotisation"";"""")"
Next c

[gFZT82]

Bonjour,

Tu devrais trouver une formule avec cette forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c.Formula = "=IF(A" & CStr(i + 1) & "<>"""",""Cotisation"","""")"

Cordialement.