Copier le nom de mes buttons
Résolu/Fermé
A voir également:
- Copier le nom de mes buttons
- Nom de l'adresse ✓ - Forum Réseaux sociaux
- &Quot;Nom de l'adresse" lors d'une inscription sur une site - Forum Consommation & Internet
- Copier une vidéo youtube - Guide
- Le nom du champ de tableau croisé dynamique n'est pas valide ✓ - Forum Excel
- Trouver un nom avec une adresse ✓ - Forum Loisirs / Divertissements
6 réponses
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
18 juin 2016 à 18:32
18 juin 2016 à 18:32
Bonjour,
Tout cela est bien curieux :
- pourquoi 36 boutons avec seulement 10 cliquables ?
- enregistrer le nombre produits au clic c'est assez aléatoire.
Pour que cela fonctionne simplement il te faut mettre un module de classe mais sans connaitre ton userform c'est pas simple à mettre du code adapté à ton niveau de compréhension.
Tout cela est bien curieux :
- pourquoi 36 boutons avec seulement 10 cliquables ?
- enregistrer le nombre produits au clic c'est assez aléatoire.
Pour que cela fonctionne simplement il te faut mettre un module de classe mais sans connaitre ton userform c'est pas simple à mettre du code adapté à ton niveau de compréhension.
Bonjour gbinforme,
Merci de prendre en considération ma demande.
Pourquoi seulement 10 cliquables pour 36 buttons, je voulais limiter(par erreur) mon tableau AD:AE à 10 lignes.Ta remarque est pertinente "qui peut le plus, peut le moins".
La seule obligation que j'ai, c'est au premier clic de copier qu'une seule fois le produit correspondant au nom du button en colonne AE et en AD le chiffre 1.
Au deuxième clic sur ce même button le chiffre 1 passe à 2 et ainsi de suite. Dans ma liste il n'y aura jamais 2 fois le même produit.
Ci dessous mon userform de Buttons réalisé par Thautherm que je remercie.
"Rendons à César ce qui lui appartient"
Range("A1").Select
UserForm2.CommandButton20.Caption = "VALIDER" & Chr(10) & "SELECTION"
Dim BT As Byte
Dim LI As Byte
Dim COL As Byte
For BT = 1 To 36
Select Case BT
Case 1 To 24
LI = BT + 1: COL = 9
Case 25 To 30
LI = BT - 23: COL = 11
Case 31 To 36
LI = BT - 29: COL = 13
End Select
Me.Controls("CommandButton" & BT).Caption = Sheets("caisse").Cells(LI, COL).Value
Next BT
End Sub
Merci de prendre en considération ma demande.
Pourquoi seulement 10 cliquables pour 36 buttons, je voulais limiter(par erreur) mon tableau AD:AE à 10 lignes.Ta remarque est pertinente "qui peut le plus, peut le moins".
La seule obligation que j'ai, c'est au premier clic de copier qu'une seule fois le produit correspondant au nom du button en colonne AE et en AD le chiffre 1.
Au deuxième clic sur ce même button le chiffre 1 passe à 2 et ainsi de suite. Dans ma liste il n'y aura jamais 2 fois le même produit.
Ci dessous mon userform de Buttons réalisé par Thautherm que je remercie.
"Rendons à César ce qui lui appartient"
Range("A1").Select
UserForm2.CommandButton20.Caption = "VALIDER" & Chr(10) & "SELECTION"
Dim BT As Byte
Dim LI As Byte
Dim COL As Byte
For BT = 1 To 36
Select Case BT
Case 1 To 24
LI = BT + 1: COL = 9
Case 25 To 30
LI = BT - 23: COL = 11
Case 31 To 36
LI = BT - 29: COL = 13
End Select
Me.Controls("CommandButton" & BT).Caption = Sheets("caisse").Cells(LI, COL).Value
Next BT
End Sub
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
19 juin 2016 à 21:57
19 juin 2016 à 21:57
Bonsoir,
Un bout de code, sans plus de précision ne permet pas de corriger quoi que ce soit car ce n'est pas là que se situe ta demande.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
Un bout de code, sans plus de précision ne permet pas de corriger quoi que ce soit car ce n'est pas là que se situe ta demande.
Si tu pouvais nous mettre un exemple de structure des données, sans éléments personnels, avec les résultats souhaités expliqués clairement, ce serait plus facile de t'aider.
Pour communiquer ton classeur tu le télécharges sur https://www.cjoint.com/ (mode d'emploi) et tu mets ici le lien obtenu.
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 684
20 juin 2016 à 16:50
20 juin 2016 à 16:50
Bonjour,
Voici ton classeur avec la gestion de tes boutons selon ta demande :
https://www.cjoint.com/c/FFuoWHosaHl
Je t'ai modifié un peu le lancement et rajouté un module de classe qui permet de traiter tous les boutons simplement.
Voici ton classeur avec la gestion de tes boutons selon ta demande :
https://www.cjoint.com/c/FFuoWHosaHl
Je t'ai modifié un peu le lancement et rajouté un module de classe qui permet de traiter tous les boutons simplement.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Bonjour gbinform,
Il m'est impossible d'ouvrir le fichier.
Que je clic sur document joint, ou sur le bouton rouge accéder au fichier, j'ai une page pleine de losanges avec ? et de carrés qui s'ouvre.
Il m'est impossible d'ouvrir le fichier.
Que je clic sur document joint, ou sur le bouton rouge accéder au fichier, j'ai une page pleine de losanges avec ? et de carrés qui s'ouvre.
