Discussion :

[frag132]

Bonjour,

Je suis en train de faire une boucle qui me permet de remplir 2 colonnes en fonction du contenu de cellules sur la même ligne en VBA.
Pour l'instant j'ai ça :

Code :

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

1
2
3
4
Dim Ws As Worksheet
For R = DerLig To 2 Step -1 
    Ws.Cells(R, 8) = "=SI(OU(ESTVIDE(A" & R & "));" & Chr$(34) & Chr$(34) & ";MOIS(A" & R & ")&-ANNEE(A" & R & "))"
    Ws.Cells(R, 9) = "=SI(OU(ESTVIDE(F" & R & "));" & Chr$(34) & Chr$(34) & ";SI(ESTNUM(CHERCHE(" & Chr$(34) & "%" & Chr$(34) & ";F" & R & "));" & Chr$(34) & "dépassement" & Chr$(34) & ";F" & R & "))"

Bien entendu j'ai un petit soucis a faire passer ma macro
Ca me bloque sur la ligne suivante avec l'erreur 1004.

Code :

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

Ws.Cells(R, 8) = "=SI(OU(ESTVIDE(A" & R & "));" & Chr$(34) & Chr$(34) & ";MOIS(A" & R & ")&-ANNEE(A" & R & "))"

Quelqu'un peu m'aider ? je suis sur que c'est pas grand chose, je suis un débutant en VBA...

Merci beaucoup

[mercatog]

Code :

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

Ws.Cells(R, 8).FormulaLocal = "=SI(OU(ESTVIDE(A" & R & "));" & Chr$(34) & Chr$(34) & ";MOIS(A" & R & ")&-ANNEE(A" & R & "))"

[frag132]

En effet ce n'était pas grand chose.
Merci beaucoup Mercatog.

[Daniel.C]

Bonjour,

Tu dois préciser "FormulaLocal" (sur les deux lignes ):

Code :

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

Ws.Cells(r, 8).FormulaLocal = "=SI(OU(ESTVIDE(A" & R & "));" & Chr$(34) & Chr$(34) & ";MOIS(A" & R & ")&-ANNEE(A" & R & "))"