Discussion :

[alexistak]

Je ne sais pas comment ecrire dans une macro une formule.
CAD, si je veux que ma case A1= A2+A3 quand je leance ma macro.
C tout bete mais je sais pas l'ecrire.
Comment ecrire pour que la formule aille jusqu'a lq dernire ligne de mon tableau?

Merci de votre aide

[fring]

Bonjour,

Pour parcourir toute la colonne jusqu'à la dernière ligne, on défini la ligne de départ, par exemple la ligne 2, et pour la dernière ligne c'est (par exemple la dernière ligne de la colonne A)

Code :

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

Range("A65535").End(xlUp).Row

Pour effectuer l'opération A1 = A2+A3 c'est :

Code :

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

1
2
3
4
5
Range("A1") = Range("A2") + Range("A3")
ou..
Cells(1, 1) = Cells(1, 2) + Cells(1, 3)
ou encore...
[A1] = [A2] + [A3]

Cells(x, y) --> x = numéro de ligne et y = numéro de colonne

Maintenant le tout dans une boucle pour effectuer les opérations sur toute ta colonne

Code :

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

1
2
3
4
5
6
7
8
Sub test()
Dim x As Integer
 
For x = 2 To Range("A65535").End(xlUp).Row
Cells(x, 1) = Cells(x, 2) + Cells(x, 3)
Next x
 
End Sub

[alexistak]

en fait, je me suis goure, c plutot
a1=B1+C1
Il faut changer quoi dans ton code, pour que ca marche?

Merci

[alexistak]

En fait ma formule c
=O6*0,5-P6

Quand je le tappe dans la console vb, ca me mets un bug a cause du 0,5?

[fring]

oui à cause du 0,5 entre autre, 0,5 en VBA s'écrit 0.5 et pour les cellules je te l'ai montré ci-dessus, O6 ou P6 il ne comprend pas ce que c'est, tu dois l'écrire comme ceci :

Code :

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

Range("...") = (Range("O6") * 0.5) - Range("P6")

Range("...") = la cellule qui doit recevoir le résultat de l'opération

Je te conseille dans un premier temps d'utiliser l'enregistreur de macro pour petit à petit te familiariser avec le language VBA, via le lien ci-dessous tu trouveras une explication de son fonctionnement

http://silkyroad.developpez.com/VBA/DebuterMacros/#LIII