[VBA] boucle

[clara67]

bonjour,
étant débutante en VBA ,j'ai un petit soucis avec une boucle .
l'action que je désire faire est :
quand je clique sur le bouton 33 , la valeur de la cellule a33 de la feuille 3 se reporte dans la case a1 de la feuille 1 .... j'espere etre clair .
mais je souhaite faire ca pour tous mes boutons..

pour un seul bouton voici ce que j'ai fait et qui marche bien :
pour le bouton n°33:
ds private sub commandbutton33_click()
feuil1.range("a1").end(xlup).offset(1,0).value = feuil3.range("a33").value


pour le bouton 34:
feuil1.range("a1").end(xlup).offset(1,0).value = feuil3.range("a34").value

et ceci jusqu'au bouton 77

si quelqu'un a une petit idée pour faire la boucle.. je l'en remercie d'avance

 

[Davidc57]

Re : [VBA] boucle

Bonsoir Clara et bienvenue sur ce forum,

Je te suggère de joindre un fichier si tu souhaites avoir des réponses.

A première vue je dirai "POURQUOI TANT DE BOUTONS !!!!"

A+
David

 

[Compte Supprimé 979]

Re : [VBA] boucle

Bonsoir Clara67, Davidc57

Clara, le suis un peu comme David, pourquoi autant de bouton !?

Sinon, tu trouveras ci-joint un exemple de ce que tu peux faire

Chaque bouton est créé dans l'ordre et on attribue à chaque fois la macro "BtnClick".

Mon code récupère le nom du bouton avec son numéro et ainsi on peut en déduire la valeur à inscrire

Sub BtnClick()
  Dim LibBtn As String, NomBtn As String, NumBtn As Integer
  Dim Cel As Range
  ' Mémoriser la cellule sélectionnée
  Set Cel = Selection
  ' Récupérer le nom de l'objet appelant la procédure
  NomBtn = Application.Caller
  '
  ' Si on se base sur le texte du bouton
  ' Le sélectionner pour récupérer ses propriétés
  ActiveSheet.Shapes(NomBtn).Select
  ' Récupérer le texte du bouton
  LibBtn = Selection.Characters.Text
  
  ' Si on se base sur le nom du bouton
  'LibBtn = NomBtn
  
  ' Récupérer le numéro figurant dans le texte
  ' Un espace obligatoire en le texte et le numéro
  NumBtn = Right(LibBtn, Len(LibBtn) - InStrRev(LibBtn, " "))
  ' Inscrire la valeur en conséquence
  Feuil1.Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Feuil3.Range("A" & NumBtn).Value
  ' Sélectionner de nouveau la cellule active
  Cel.Select
End Sub

A+

 

[mécano41]

Re : [VBA] boucle

Bonjour,

Il y a peut-être mieux mais je ne vois que cela... Il te faudra recopier 44 fois le sub du bouton en changeant le repère...

Pas compris ton : feuil1.range("a1").end(xlup).offset(1,0).value....

Cordialement

 

[Gael]

Re : [VBA] boucle

Bonsoir à tous,

Comme mes amis, je pense que tu vas finir par avoir la varicelle avec tous ces boutons

Un exemple avec un code très simple et une liste qui permet de choisir la cellule à recopier.

@+

Gael

 

[Compte Supprimé 979]

Re : [VBA] boucle

Salut Mécano,

Bonjour,
Il y a peut-être mieux mais je ne vois que cela... Il te faudra recopier 44 fois le sub du bouton en changeant le repère...

Je ne comprends pas bien ta réponse

J'ai donné la possibilité justement, de ne pas faire de copier coller X fois
J'ai une sub pour X boutons

Il me semble qu'il faudrait parfois lire les réponses avant de poster les siennes, non !?

A+

 

[clara67]

Re : [VBA] boucle

merci a tous pour toutes vos réponses et les solutions proposées.
je vais regarder tout ca, et je vous tiens au courant.

bonne soirée

 

[mécano41]

Re : [VBA] boucle

Salut Mécano,


Je ne comprends pas bien ta réponse

J'ai donné la possibilité justement, de ne pas faire de copier coller X fois
J'ai une sub pour X boutons

Il me semble qu'il faudrait parfois lire les réponses avant de poster les siennes, non !?

A+

Tu as mal interprété... Dans mon message, je disais qu'il y avait peut-être mieux, sous-entendu : que ce que j'avais fait! et c'est bien le cas puisque ce que tu présentes est plus élaboré ! J'aurais peut-être dû être plus clair mais en tout cas , je n'ai pas pour habitude de faire des remarques de ce genre...

Je n'avais pas lu les autres messages parce qu'ils ne m'étaient pas encore parvenus. Il y a parfois un décalage important dans la mise à jour et le signalement et c'était le cas aujourd'hui...(il y a même des signalements qui ne me sont pas parvenus du tout) je n'en connais pas la raison...

Cordialement