[VBA] excel - comment faire ceci ?
Résolu
telecofr
Messages postés
12
Date d'inscription
Statut
Membre
Dernière intervention
-
vincarter Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
vincarter Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- [VBA] excel - comment faire ceci ?
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Déplacer colonne excel - Guide
14 réponses
Alors voilà ce que j'ai fait, j'ai installé deux listes déroulantes (ComboBox) de la boite à outil VBA
Je les ai placé dans la cellule A1 et A2, puis en dans les cellule G1, G2 et G3 j'ai respectivement inscrit "Doublet, Triplet..."
Et le paramètre de ma Combobox1 listCells est donc G1:G3 et Combobox2 listCells est H1:H3
et les codes des ComboBox sont les suivants :
Private Sub ComboBox1_Change()
Range("A2") = ""
If ComboBox1.Value = "Doublet" Then
ComboBox2.Visible = False
Range("A2") = 2
Range("A3") = 4 * Range("A2")
ElseIf ComboBox1.Value = "Triplet" Then
Range("H1") = 3
Range("H2") = 4
Range("H3") = ""
ComboBox2.Visible = True
ElseIf ComboBox1.Value = "Quadruplet" Then
Range("H1") = 5
Range("H2") = 6
Range("H3") = 7
ComboBox2.Visible = True
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then
Range("A2") = ComboBox2.Value
Range("A3") = 4 * Range("A2")
End If
End Sub
Voilà, je crois que cette application fait ce que tu souhaites ;)
Je les ai placé dans la cellule A1 et A2, puis en dans les cellule G1, G2 et G3 j'ai respectivement inscrit "Doublet, Triplet..."
Et le paramètre de ma Combobox1 listCells est donc G1:G3 et Combobox2 listCells est H1:H3
et les codes des ComboBox sont les suivants :
Private Sub ComboBox1_Change()
Range("A2") = ""
If ComboBox1.Value = "Doublet" Then
ComboBox2.Visible = False
Range("A2") = 2
Range("A3") = 4 * Range("A2")
ElseIf ComboBox1.Value = "Triplet" Then
Range("H1") = 3
Range("H2") = 4
Range("H3") = ""
ComboBox2.Visible = True
ElseIf ComboBox1.Value = "Quadruplet" Then
Range("H1") = 5
Range("H2") = 6
Range("H3") = 7
ComboBox2.Visible = True
End If
End Sub
Private Sub ComboBox2_Change()
If ComboBox2.Value <> "" Then
Range("A2") = ComboBox2.Value
Range("A3") = 4 * Range("A2")
End If
End Sub
Voilà, je crois que cette application fait ce que tu souhaites ;)
Si tu me donnes un email, je peux te faire passer un truc simple que je viens de faire en 5minutes et qui doit pouvoir faire l'affaire ...
Bonjour,
L'idéal pour tout le monde est que la solution soit apportée directement sur ce topic. Cela permettra peut être à quelqu'un de ne pas reposer la même question.
Merci donc de placer la solution adéquate ici même.
Cordialement,
L'idéal pour tout le monde est que la solution soit apportée directement sur ce topic. Cela permettra peut être à quelqu'un de ne pas reposer la même question.
Merci donc de placer la solution adéquate ici même.
Cordialement,
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je voudrais bien mais j'ai fait un petit truc dans Excel avec des validation de cellules, avec des formules simples, sans passer par des macros, il n'y a donc pas de code à afficher ... ici même !
Il faudrait que je dépose mon fichier ...
Il faudrait que je dépose mon fichier ...
Ou alors que tu l'expliques simplement pour le premier cas : si a1 = doublet => a2 = 2
si a1 = triplet => a2 = liste déroulante avec comme choix 3 et 4
Pas par fichier joint car je crois qu'ils ont une durée de "vie" limitée...
Merci en tout cas
Edit : on ne pouvait pas prévoir que tu passerais par des validations etc... car le sujet traite de VBA...
si a1 = triplet => a2 = liste déroulante avec comme choix 3 et 4
Pas par fichier joint car je crois qu'ils ont une durée de "vie" limitée...
Merci en tout cas
Edit : on ne pouvait pas prévoir que tu passerais par des validations etc... car le sujet traite de VBA...
C'est vrai mais cela est si simple avec des listes de validation, que j'ai trouvé la solution tellement plus passer par macros ...
merci à tous pour votre aide !
redonky, j'ai fait via la "boite à outil contrôles" 2 zones de liste déroulante en A1 et A2
Dans G1, G2 et G3, j'ai copié respectivement doublet, triplet et quadruplet.
Pb n°1 : comment faire pour paramétrer les combobox 1 et 2 avec G1:G3 et H1:H3 ?
Ensuite, j'ai cliqué bouton droit sur la feuille où j'ai mis les 2 zones de liste et choisi "visualiser le code"
Ensuite j'ai copié le code que tu as fait dans la nouvelle fenetre qui s'est ouverte.
Et après comment faire ?
je suis ultra débutant en vba, donc merci pour les explications !!
Sinon, Maninred7, je pensait que l'on ne pouvait faire cela qu'en code vba. Si tu as trouvé une solution sans code vba ni macros, je voudrais bien la connaître, stp. Merci de nous la donner !
merci encore pour les explications des 2 méthodes.
fr
redonky, j'ai fait via la "boite à outil contrôles" 2 zones de liste déroulante en A1 et A2
Dans G1, G2 et G3, j'ai copié respectivement doublet, triplet et quadruplet.
Pb n°1 : comment faire pour paramétrer les combobox 1 et 2 avec G1:G3 et H1:H3 ?
Ensuite, j'ai cliqué bouton droit sur la feuille où j'ai mis les 2 zones de liste et choisi "visualiser le code"
Ensuite j'ai copié le code que tu as fait dans la nouvelle fenetre qui s'est ouverte.
Et après comment faire ?
je suis ultra débutant en vba, donc merci pour les explications !!
Sinon, Maninred7, je pensait que l'on ne pouvait faire cela qu'en code vba. Si tu as trouvé une solution sans code vba ni macros, je voudrais bien la connaître, stp. Merci de nous la donner !
merci encore pour les explications des 2 méthodes.
fr
Il te suffit d'activer le mode création toujours dans la barre VBA et de clicker droit sur une combobox et d'allé voir le paramètre listcells au dessus de linkcells ou un truk du genre :D
Bonjour cher tous, peut ¨¨tre pour certains je dois venir du XIXe si¨¨cle. Je suis francophone, combobox c'est quoi. Autrement dit, je suis aussi n¨¦ophyte dans VBA. Si vous pouvez avoir un lexique ou tout autre doc pour, 0Š4a me permettrait de me rattraper. vince_kuate@yahoo.fr, c mon e-mail. Je vous remercie
super, merci redonky pour ton aide !!
dernière question, on est obligé de mettre les valeurs des combobox dans des cellules de la feuille ?
peut on ne pas les mettre dans le code vba plutot ?
merci !
fr
dernière question, on est obligé de mettre les valeurs des combobox dans des cellules de la feuille ?
peut on ne pas les mettre dans le code vba plutot ?
merci !
fr
Là je t'admet que tu me pose une colle, j'ai rapidement cherché mais je n'y suis pas arrivé si un jour je trouve je posterais, mais je pense que cela est possible...en faisant une commande du genre Open with ou un truck du genre mais honnêtement je n'était pas sur que le jeu en valait la chandelle :D
Bonne continuation
Bonne continuation