Discussion :

[stephadm]

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

Stéphanie

[jfontaine]

Bonjour,

Une solution est de faire une fonction si tu utilises cette information à plusieurs endroits (tu peux aussi alimenter une variable)

Je préfère le select case à l'imbrication de If

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function NumCmbo() As Integer
Dim iNum As Integer
 
Select Case ComboBox1.Text
    Case "Avoir"
        iNum = 1
    Case Devis
        iNum = 2
    Case "facture", "Impayée"
        iNum = 3
    Case "Fiche d'intervention"
        iNum = 4
End Select
 
NumCmbo = iNum
End Function

[stephadm]

Bonjour jfontaine

J'ai ecris ce que vous me conseillé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub etat_Change()
Function NumCmbo() As Integer
Dim iNum As Integer
 
Select Case etat.Text
    Case "Avoir"
        iNum = 1
    Case Devis
        iNum = 2
    Case "facture", "Impayée"
        iNum = 3
    Case "Fiche d'intervention"
        iNum = 4
End Select
 
NumCmbo = iNum
End Function

mais j'ai l'impression qu'il manque quelque chose pour que le numéro s’inscrive dans la cellule A1 de la "feuil4". Le classeur s'ouvre sur la "feuill3", ensuite je clique sur le bouton pour que l'userform qui contient la combobox "etat" s'affiche

En vous remerciant d'avoir répondu à mon aide,

au plaisir de vous relire

Stéphanie

[jfontaine]

Plutôt comme cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Private Sub etat_Change()
Sheets("Feuil4").Range("A1").Value = NumCmbo()
End Sub
 
 
Function NumCmbo() As Integer
 
Dim iNum As Integer
 
Select Case etat.Text
    Case "Avoir"
        iNum = 1
    Case Devis
        iNum = 2
    Case "facture", "Impayée"
        iNum = 3
    Case "Fiche d'intervention"
        iNum = 4
End Select
 
NumCmbo = iNum
 
End Function

[stephadm]

re,

Merci jfontaine, ça fonctionne

Stéphanie

Bonsoir,

j'ai une autre question à peu près similaire. Voilà ce que je souhaite, toujours dans le même userform mais avec une autre ComboBox "paiement", je voudrais que le choix "Chèque" ou autres (Espèces, CB, Virement) s’inscrive dans la cellule E13 de la feuil "Param"

Je pense qu'il doit y avoir une histoire de caption dans le code vba !

Merci du nouveau coup de pouce

Stéphanie

[jfontaine]

Si le code ci dessous écrit dans la cellule A1 de la feuille 4

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Feuil4").Range("A1").Value = "machine"

Tu devrais trouver assez facilement comment écrire dans la cellule E13 de la feuille Param