Attribuer numero suivant choix combobox dans userform "Résolu"

[fredoud]

Bonjour au forum,

Je souhaite qu'un numéro s'affiche dans "feuil4" en A1 selon le choix fait par le biais d'une ComboBox dans userform.

En clair

Ouverture de l'userform, je clique sur ComboBox "Etat", je choisie "Devis" parmi les autres (Avoir, Facture, Fiche d'intervention, Impayée), ce qui permet d'écrire le numéro correspondant au choix dans la feuil4 en cellule A1
Avoir =1
Devis=2
Facture = 3
Fiche d'intervention = 4
Impayée = 3.

L'idée du code vba, serait de faire une capture du choix dans la ComboBox et utilisé le si et else.

Pouvez-vous m'aidez s'il vous plait et j'espère avoir été claire dans mon explication ?

En remerciant à l'avance

Frederique

 

[Compte Supprimé 979]

Re : Attribuer numero suivant choix combobox dans userform

Bonjour Fredoud

Sheets("Feuil4").Range("A1").Value = Me.Combobox.ListIndex +1

A+

 

[tototiti2008]

Re : Attribuer numero suivant choix combobox dans userform

Bonjour fredoud,

Sur l'évènement de changement de valeur du Combobox, dans le code du userform :

Private Sub ComboBox1_Change()
    Sheets("Feuil4").Range("A1").Value = ComboBox1.ListIndex + 1
End Sub

Edit : Bonjour Bruno 😉, pas copié, je jure 🙂

 

[fredoud]

Re : Attribuer numero suivant choix combobox dans userform

Bonjour BrunoM45, tototiti2008 et le forum,

J'ai écris ce vous m'avez conseillé

Private Sub etatfac_Change()
Sheets("Feuil4").Range("A1").Value = etatfac.ListIndex + 1
End Sub

mais cela provoque un message d'erreur "erreur 9 : l'indice n'appartient pas à la selection"

La feuille sur laquelle s'ouvre mon projet, c'est "feuil3"

Merci de votre aide

Frederique

 

[fredoud]

Re : Attribuer numero suivant choix combobox dans userform

re,

C'est bon, j'ai modifie "feuil4" par "Devis" et ça fonctionne.

Encore merci BrunoM45, tototiti2008

Frederique