Question VBA excel

Quel âge avez-vous ?

Moins de 18 ans

18 ans ou plus

Forums pour ados - Informatique et Jeux Vidéos
Adoramus Te Question VBA excel 2 16/07/17 à 09:33

Bonjour,

Je n'y connais rien à VBA mais j'aurais besoin d'étendre une selection que j'ai trouvé sur internet
j'ai trouvé ça

Private Sub CommandButton1_Click()
Range("B1" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

J'aimerais l'étendre à 500 cases, et j'imagine qu'il y a plus rapide que d'appliquer une nouvelle formule à chaque bouton un par un... est-ce que quelqu'un sait comment faire ?

Dangerousfuture 
Question VBA excel 1/2 18/07/2017 à 19:44
Salut.


Essaye de remplacer le +1 par +500
Adoramus Te  
Question VBA excel 2/2 23/07/2017 à 22:09
Dangerousfuture a écrit :

Salut.


Essaye de remplacer le +1 par +500


Hello, non en fait le +1 ca rajoute +1 à la case selectionnée, si je fais +500 ca rajoutera à la valeur, mais ce que je veux c'est sur une selection en fait, ce que je veux c'est faire ça :

Private Sub CommandButton1_Click()
Range("B1" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Private Sub CommandButton2_Click()
Range("B2" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Private Sub CommandButton3_Click()
Range("B3" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Private Sub CommandButton4_Click()
Range("B4" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Private Sub CommandButton5_Click()
Range("B5" ).Select
ActiveCell.Value = ActiveCell.Value + 1
End Sub

Etc mais pour 500 cases
Recommande ce site a tes ami(e)s | Aller en haut

Partenaires : Énigmes en ligne