Comment appliquer Droitereg en boucle ? [vba] - VB/VBA/VBS - Programmation
Marsh Posté le 23-11-2005 à 20:00:21
Salut,
Voici se que je te propose :
Private Sub CommandButton1_Click() 'Dans un commandbutton
Dim cpt As Integer 'Sur une boucle
Range("A1:F2" ).Select 'On peut remplacer A1:F2, par le nom de x cellule
cpt = 12 'Pour A1:F2, le nombre de cellule est de 12
Do
DoEvents
cpt = cpt - 1
SendKeys "{Enter}", True 'Analyse toute les cellule séléctionner
A = A + ActiveCell 'La valeur des cellule cont "enregister" dans la variable A
Loop Until cpt = 0
MsgBox A 'un message affiche la valeur.
End Sub
C' est ça ?
Marsh Posté le 16-11-2005 à 05:11:01
Salut!
Je débute en VBA, pour Excel.
Sur ma feuille Excel j'ai des données :
Mettons que sont remplies les cellules suivantes avec des nombres réels:
A1 ... F1
A2... F2
.
.
.
A10 ... F10
A11... F11
Je veux faire une macro qui me fait (A1 + ... + F1) + (A2 + ... F2),
affiche le résultat,
puis me fait (A3 + ... + F3) + (A4 + ... + F4) ,
affiche le résultat,
...
puis me fait (A10 + ... + F10) + (A11 + ... + F11) ,
affiche le résultat.
Mieux:
Je veux que les résultats soient affichés dans un tableau ou dans une boîte de dialogue.
Je pense que si on sait faire ça on peut généraliser à d'autres formules, en particulier la formule Droitereg.
Merci de votre aide