[vba] Comment appliquer Droitereg en boucle ?

Comment appliquer Droitereg en boucle ? [vba] - VB/VBA/VBS - Programmation

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 :)  
 

Reply

Marsh Posté le 16-11-2005 à 05:11:01   

Reply

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 ?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed