Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1393 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [vba] Comment appliquer Droitereg en boucle ?

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[vba] Comment appliquer Droitereg en boucle ?

n°1246508
andrea13ne​w
Posté le 16-11-2005 à 05:11:01  profilanswer
 


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

mood
Publicité
Posté le 16-11-2005 à 05:11:01  profilanswer
 

n°1251826
PGreg
Posté le 23-11-2005 à 20:00:21  profilanswer
 

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 ?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [vba] Comment appliquer Droitereg en boucle ?

 

Sujets relatifs
Xml et boucle forProblemes dans ma boucle
[PHP] Script qui boucle.........[c]boucle avec 3 tentatives
Boucle for et list::iterator(résolu) Boucle For each sur textbox dans userform
Script qui tourne en boucle online et nickel en local... ???Une boucle pertiniente...
boucle Do until....loop en VBAboucle récursive pour arboresceprob nce
Plus de sujets relatifs à : [vba] Comment appliquer Droitereg en boucle ?


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR