VBA Excel, porblème avec Formula

demoiselle1263 Messages postés 27 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 23 mars 2010 - 9 mars 2010 à 11:25
demoiselle1263 Messages postés 27 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 23 mars 2010 - 9 mars 2010 à 12:10
Bonjour, j'écris le programme ci-dessous en vba mais j'ai une ligne que ne marche pas, celle en rouge:

Sub bbb()
Rows("2:2").Select
Selection.Insert Shift:= xlDown
Do
counter3 = counter3 + 1
Loop Until Cells(counter3, 1) = ""
i = 3
For i = 3 To 48
Do
i = i + 1
Loop Until Cells(i, 2) = ""
counter = i
MsgBox counter
Do
i = i - 1
Loop Until Cells(i, 1) = ""
counter2 = i + 1

Cells(counter, 2).Select
ActiveCell.Formula = "=cells(counter+1,1)-cells(counter2,1)"

i = counter + 1
Next i
End Sub

Y a t-il une méthode par formula où je puisse garder mes cellules variables, qui sont donc choisis en fonction de mes données mais qui ne sont jamais les mêmes.

Merci d'avance pour vos réponses!

3 réponses

NHenry Messages postés 15025 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 26 novembre 2022 157
9 mars 2010 à 11:50
Bonjour,

ActiveCell.Formula = "=cells(" & counter+1 & ",1)-cells(" & counter2 & ",1)"

Mon site
0
demoiselle1263 Messages postés 27 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 23 mars 2010
9 mars 2010 à 12:05
je viens d'essayer mais ça ne marche pas... merci quand même
0
demoiselle1263 Messages postés 27 Date d'inscription lundi 5 octobre 2009 Statut Membre Dernière intervention 23 mars 2010
9 mars 2010 à 12:10
En mettant ceci, ça marche!

ActiveCell.Formula = "=(B" & counter + 1 & ")-(B" & counter2 & ")"
0