Vba combobox + valeur différente

Résolu/Fermé
domeli - 19 juil. 2015 à 18:05
 domeli - 19 juil. 2015 à 19:25
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.

9 réponses

Bonjour

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
0
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
0
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?
0
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
0

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.
0
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
19 juil. 2015 à 19:04
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
0
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
0
même si c'est une colonne nommée?
Sinon ma liste commence en ligne 3 alors je vais mettre + 3 on va voir.

pour le fichier j'ai plein de données confidentielles, il faut que j'enlève pour mettre des données obsolètes.

J'essaie de m'en sortir sinon je le ferai.
:)
0
ok!
C'était bien ça.
J'ai mis à +3 et ça fonctionne.
Grand merci à toi.
0