vba combobox + valeur différente Résolu

Question

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.

Configuration: Windows / Chrome 43.0.2357.134

Maurice · Answer

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

domeli · Answer

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

domeli · Answer

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?

Maurice · Answer

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

domeli · Answer

tu oarles de quoi? De la valeur TopIndex de la combobox? Elle est à -1 et c'est la seule dans ce UserForm.

jc80 · Answer

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

Maurice · Answer

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

domeli · Answer

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.
:)

domeli · Answer

ok!
C'était bien ça.
J'ai mis à +3 et ça fonctionne.
Grand merci à toi.

Vba combobox + valeur différente

9 réponses

Discussions similaires

Newsletters