Sujet Précédent Sujet Suivant

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!

A voir également:

VBA Excel, porblème avec Formula
Excel vba doevents - Conseils pratiques -Visual Basic / VB.NET
Excel vba modulo ✓ - Forum Visual Basic 6
Tous les codes vba excel - Conseils pratiques -Visual Basic / VB.NET
Le reste d'une division - Forum Visual Basic 6
Afficher userform vba a l'ouverture d'excel ✓ - Forum Visual Basic

3 réponses

Réponse 1 / 3

NHenry Messages postés 15113 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 22 avril 2024 159
9 mars 2010 à 11:50

Bonjour,

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

Mon site

Réponse 2 / 3

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

Réponse 3 / 3

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 & ")"

Discussions similaires

Comment fonctionne la fonction FormulaR1C1

passage de variable sur ActiveCell.FormulaR1C1

ActiveCell.FormulaR1C1

Incrémenter .FormulaR1C1 dans Next/For

fonction modulo en VBA

Votre réponse

Discussions similaires