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