Vba combobox + valeur différente
Résolu
domeli
-
domeli -
domeli -
Bonjour,
j'ai créé un code qui imprime un reçu fiscal selon le nom affiché dans la combobox.
A la fin du code je reviens sur la feuille des cotisants et je voudrai un "OUI" dans la colonne H, sur la ligne correspondante au nom inscrit dans la combobox.
Je suis pas loin, mais je sèche. Voici le code:
Private Sub CmdPrint_Click()
Sheets("Reçu fiscal").Select
If Me.ComboBox1.Text = "" Then
Me.ComboBox1.SetFocus
End If
NomConverti = UCase(Me.ComboBox1.Text)
Range("D11:E11") = NomConverti
Unload Me
Sheets("Reçu fiscal").PrintOut
Range("D11:E11").ClearContents
Sheets("Ressources 2015").Select
C'est ici que je veux mettre "OUI" en colonne H selon le nom récupéré dans la combobox1.
Fiscal.Show
End Sub
Avec tous mes remerciements pour votre aide.
j'ai créé un code qui imprime un reçu fiscal selon le nom affiché dans la combobox.
A la fin du code je reviens sur la feuille des cotisants et je voudrai un "OUI" dans la colonne H, sur la ligne correspondante au nom inscrit dans la combobox.
Je suis pas loin, mais je sèche. Voici le code:
Private Sub CmdPrint_Click()
Sheets("Reçu fiscal").Select
If Me.ComboBox1.Text = "" Then
Me.ComboBox1.SetFocus
End If
NomConverti = UCase(Me.ComboBox1.Text)
Range("D11:E11") = NomConverti
Unload Me
Sheets("Reçu fiscal").PrintOut
Range("D11:E11").ClearContents
Sheets("Ressources 2015").Select
C'est ici que je veux mettre "OUI" en colonne H selon le nom récupéré dans la combobox1.
Fiscal.Show
End Sub
Avec tous mes remerciements pour votre aide.
A voir également:
- Vba combobox + valeur différente
- Son notification différente par application - Guide
- Logiciel gratuit calcul valeur nutritionnelle - Télécharger - Santé & Bien-être
- Valeur ascii - Guide
- Formule excel si contient texte alors valeur ✓ - Forum Excel
- Valeur relative et absolue ✓ - Forum Webmastering
9 réponses
Bonjour
Voila la solution mes je ne ses pas ou commence ta Combobox a toi de voir
A+
Maurice
Voila la solution mes je ne ses pas ou commence ta Combobox a toi de voir
If ComboBox1.ListIndex > -1 Then
Lig = ComboBox1.ListIndex + 2
Range("H" & Lig).Value = "Oui"
End If
A+
Maurice
Merci pour ta rapidité
Donc j'ai inséré ton bout de code là où je veux et je reçois bien le "oui" en colonne H dans la bonne feuille...Mais 3 lignes plus bas.
Peut-être un rapport avec : ListIndex + 2.
Je vais jouer avec ça voir si je peux m'en sortir.
:)
Encore merci
Donc j'ai inséré ton bout de code là où je veux et je reçois bien le "oui" en colonne H dans la bonne feuille...Mais 3 lignes plus bas.
Peut-être un rapport avec : ListIndex + 2.
Je vais jouer avec ça voir si je peux m'en sortir.
:)
Encore merci
Non. en jouant avec le chiffre ça met n'importe où sur la colonne.
Lig = ComboBox1.ListIndex + 2
Cette ligne doit être en première ou deuxième partie du code?
Lig = ComboBox1.ListIndex + 2
Cette ligne doit être en première ou deuxième partie du code?
Bonjour
il faut savoir que le premier choix de la combobox sont index = 0
comme jais pas ton model la je ne peux plus rien faire
A+
Maurice
il faut savoir que le premier choix de la combobox sont index = 0
comme jais pas ton model la je ne peux plus rien faire
A+
Maurice
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tu oarles de quoi? De la valeur TopIndex de la combobox? Elle est à -1 et c'est la seule dans ce UserForm.
Bonjour
Joins ton fichier ce sera plus facile
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse
Cordialement
Joins ton fichier ce sera plus facile
Pour transmettre un fichier, il faut passer par un site de pièce jointe tel que cjoint.com
Va sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse
Cordialement
Bonjour
quant la ComboBox est vide la .ListIndex = -1
ta ComboBox commence sur quelle Ligne ?
donc quand tu prend le premier nom ListIndex = 0
donc si sur ta feuille ton premier nom se trouve en Ligne 2
Lig = ComboBox1.ListIndex + 2
A+
Maurice
quant la ComboBox est vide la .ListIndex = -1
ta ComboBox commence sur quelle Ligne ?
donc quand tu prend le premier nom ListIndex = 0
donc si sur ta feuille ton premier nom se trouve en Ligne 2
Lig = ComboBox1.ListIndex + 2
A+
Maurice