Discussion :

[dalo02]

Bonjour a tous
j'ai encore besoin de votre aide pour copier 1 formule en VBA
le programme donne erreur 1004 ligne 5
j'ai cherche dans les forums mais sans succes
probleme avec RC peut-etre?
la je bloque merci pour votre aide

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
Dim cel As Range
For Each cel In Range("d1:d100")
If cel.Offset(0, -3).Value > 0 Then
ActiveCell.FormulaR1C1 = "=EDATE(RC[-2],RC[-1])"
End If
Next
End Sub

[Daniel.C]

Bonjour,

Peut-être,

Code :

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

1
2
3
4
5
6
7
8
Sub toto()
    Dim cel As Range
    For Each cel In Range("d1:d100")
        If cel.Offset(0, -3).Value > 0 Then
            cel.FormulaR1C1 = "=EDATE(RC[-2],RC[-1])"
        End If
    Next
End Sub

[dalo02]

bonsoir Daniel

j'avais deja essaye cette solution
j'ai toujours erreur 1004???? ligne5
je continue a chercher mais si toutefois....
merci d'avance

[Daniel.C]

Est-ce qu'il y a des formules écrites en D1100 ? Si oui, dans la première cellule vide de cette plage, quelles sont les valeurs en colonnes B et C ?

[dalo02]

rebonsoir Daniel
colonne A il a y 1 chiffre
colonne B il a y 1 date
colonne C il a y 1 nb de mois
colonne D je voudrais inscrire la formule qui me donnera la nouvelle date
mais ca coince!!!!
merci encore pour ton aide
cordialement

[Daniel.C]

Ça fonctionne ici, peux-tu poster un classeur de test ?