Fonction visual basic
Résolu/Fermé
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
-
25 juil. 2019 à 12:11
mchotard Messages postés 448 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 15 février 2025 - 26 juil. 2019 à 18:34
mchotard Messages postés 448 Date d'inscription vendredi 6 mai 2011 Statut Membre Dernière intervention 15 février 2025 - 26 juil. 2019 à 18:34
A voir également:
- Fonction visual basic
- Visual basic - Télécharger - Langages
- Fonction si et - Guide
- Microsoft 365 basic - Accueil - Microsoft Office
- Visual petanque - Télécharger - Sport
- Microsoft visual c++ runtime - Guide
5 réponses
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
25 juil. 2019 à 13:05
25 juil. 2019 à 13:05
Bonjour
IF combox4 = "A" THEN textbox3.value = sheets("constantes").Range("G69")
Le reste selon le même modèle
Cdlmnt
Via
IF combox4 = "A" THEN textbox3.value = sheets("constantes").Range("G69")
Le reste selon le même modèle
Cdlmnt
Via
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
25 juil. 2019 à 13:31
25 juil. 2019 à 13:31
Merci via55 pour ta réponse
malheureusement quand je mets "A" dans la combobox4, la valeur de la cellule G69 de la feuille "constantes" n’apparaît pas automatiquement dans ma textbox3.
Pour info, j'ai une userform1 dans laquelle j'inscris mes variables A-B etc avec une liste déroulante dans ma combobox4 et je voudrais qu'en fonction de ces lettres, les valeurs de ma cellule G69 et autres, viennent s'inscrire automatiquement dans la textbox3.
Merci si tu parviens à m'aider
CDLMNT
malheureusement quand je mets "A" dans la combobox4, la valeur de la cellule G69 de la feuille "constantes" n’apparaît pas automatiquement dans ma textbox3.
Pour info, j'ai une userform1 dans laquelle j'inscris mes variables A-B etc avec une liste déroulante dans ma combobox4 et je voudrais qu'en fonction de ces lettres, les valeurs de ma cellule G69 et autres, viennent s'inscrire automatiquement dans la textbox3.
Merci si tu parviens à m'aider
CDLMNT
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
25 juil. 2019 à 14:22
25 juil. 2019 à 14:22
Il faut évidemment mettre l'instruction dans l’événement d'un changement dans la combobox
Private Sub ComboBox4_Change()
IF combox4 = "A" THEN textbox3.value = sheets("constantes").Range("G69")
... suite des IF
End Sub
Private Sub ComboBox4_Change()
IF combox4 = "A" THEN textbox3.value = sheets("constantes").Range("G69")
... suite des IF
End Sub
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
25 juil. 2019 à 21:53
25 juil. 2019 à 21:53
Désolé via55 mais ma textbox3 n'affiche toujours pas le résultat de la cellule correspondant. Voilà la macro que j'ai écrit. J'ai sûrement loupé une étape pour faire apparaître la valeur de chaucune des cellules. Pour info, dans les cellules voilà ce que je devrais avoir
Combobox4 si A textbox16 = 6032
B 2801
C 4454
D 8274
E 22487
EXT 1301
Garderie 27725
Private Sub ComboBox4_Change()
If ComboBox4 = "A" Then TextBox3.Value = Sheets("constantes").Range("G69")
If ComboBox4 = "B" Then TextBox3.Value = Sheets("constantes").Range("G70")
If ComboBox4 = "C" Then TextBox3.Value = Sheets("constantes").Range("G71")
If ComboBox4 = "D" Then TextBox3.Value = Sheets("constantes").Range("G72")
If ComboBox4 = "E" Then TextBox3.Value = Sheets("constantes").Range("G73")
If ComboBox4 = "EXT" Then TextBox3.Value = Sheets("constantes").Range("G74")
If ComboBox4 = "Garderie" Then TextBox3.Value = Sheets("constantes").Range("G75")
End Sub
Comme tu le verras, dans ton exemple, j'ai remplacé Combox4 par Combobox, ai-je bien fait ?
Merci de poursuivre ton aide
Combobox4 si A textbox16 = 6032
B 2801
C 4454
D 8274
E 22487
EXT 1301
Garderie 27725
Private Sub ComboBox4_Change()
If ComboBox4 = "A" Then TextBox3.Value = Sheets("constantes").Range("G69")
If ComboBox4 = "B" Then TextBox3.Value = Sheets("constantes").Range("G70")
If ComboBox4 = "C" Then TextBox3.Value = Sheets("constantes").Range("G71")
If ComboBox4 = "D" Then TextBox3.Value = Sheets("constantes").Range("G72")
If ComboBox4 = "E" Then TextBox3.Value = Sheets("constantes").Range("G73")
If ComboBox4 = "EXT" Then TextBox3.Value = Sheets("constantes").Range("G74")
If ComboBox4 = "Garderie" Then TextBox3.Value = Sheets("constantes").Range("G75")
End Sub
Comme tu le verras, dans ton exemple, j'ai remplacé Combox4 par Combobox, ai-je bien fait ?
Merci de poursuivre ton aide
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
25 juil. 2019 à 22:31
25 juil. 2019 à 22:31
Fournis moi ton fichier que je regarde ce qui cloche
Poste le sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici
Poste le sur mon-partage.fr, fais créer un lien que tu copies et reviens coller ici
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
25 juil. 2019 à 22:57
25 juil. 2019 à 22:57
Lien de mon fichier simplifié
https://we.tl/t-uPTvgk5FRG
Est ce bon pour le fichier car je ne suis pas un pro de ce genre d'exercice
Encore merci et bonsoir
https://we.tl/t-uPTvgk5FRG
Est ce bon pour le fichier car je ne suis pas un pro de ce genre d'exercice
Encore merci et bonsoir
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
via55
Messages postés
14512
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
18 janvier 2025
2 741
26 juil. 2019 à 01:39
26 juil. 2019 à 01:39
Re
Évidement tu as mis mes lignes de codes dans un module au lieu de les lier au textbox de l'UF
Il faut dans le VBA faire afficher l'UF et doublecliquer sur le tetxtbox pour faire apparaitre la page avec les macros liées
Cette Private SUb existe déjà et au changement du textbox fait afficher le tarif par une RECHERCHEV
Donc au lieu d'une série de IF j'ai appliqué la même recette en ayant d'abord nommé numero la plage de numerotation dans constantes, c'est plus court et plus élégant
https://mon-partage.fr/f/gQYH0xS2/
Demain je suis absent mais je serai de retour samedi
Évidement tu as mis mes lignes de codes dans un module au lieu de les lier au textbox de l'UF
Il faut dans le VBA faire afficher l'UF et doublecliquer sur le tetxtbox pour faire apparaitre la page avec les macros liées
Cette Private SUb existe déjà et au changement du textbox fait afficher le tarif par une RECHERCHEV
Donc au lieu d'une série de IF j'ai appliqué la même recette en ayant d'abord nommé numero la plage de numerotation dans constantes, c'est plus court et plus élégant
https://mon-partage.fr/f/gQYH0xS2/
Demain je suis absent mais je serai de retour samedi
mchotard
Messages postés
448
Date d'inscription
vendredi 6 mai 2011
Statut
Membre
Dernière intervention
15 février 2025
43
26 juil. 2019 à 18:34
26 juil. 2019 à 18:34
Super content
Un très cordial merci pour ta patience et ta compétence.
A+
Cordialement
Un très cordial merci pour ta patience et ta compétence.
A+
Cordialement
