[XL-2007] Attribuer numero suivant choix combobox dans userform [Résolu]

[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 :

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 :

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 :

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 :

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

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

[stephadm]

re

En faite, quand, je sélectionne "Chèque" de la ComboBox "paiement", ce dernier devrait apparaitre dans la cellule E13 de param. Idem pour Espèces, etc.

Voici ce que j'ai fais

Code :

1
2
3
4
5
6
Private Sub paiement_Change()
Dim iPaiem As Integer
iPaiem = paiement.Value
LibCmbo = iPaiem
Sheets("Param").Range("E13").Value = LibCmbo()
End Sub

mais cela ne fonctionne pas

Une idée ?

Stéphanie

[mercatog]

?

Code :

1
2
3
4
Private Sub paiement_Change()
 
If Me.paiement.ListIndex > -1 Then Sheets("Param").Range("E13").Value = Me.paiement.Value
End Sub

[stephadm]

re et Bonsoir Mercatog et le forum,

Merci pour vos réponses cela tout fonctionne.

Merci, ce forum est très réactif et apprend pas de chose

Cordialement

Stéphanie

Bonjour,

Je reviens sur ma question car ça fonctionne

mais il y a un problème, si je créée un autre document et que "paiement" est vide, la cellule E13 à toujours l'info de la dernière sélection (ex. espèces).

Qu'est-ce qu'il ne va pas ?

En espérant avoir été clair et vous remerciant

Stéphanie

[jfontaine]

Le code donne la valeur du type de paiement à la cellule.
La cellule et la combobox ne sont pas liés.

Il te fait gérer la remise à blanc de tes cellules. Par exemple lors de l'ouverture d'une nouvelle fiche ou à l'ouverture de la userform

[stephadm]

Bonsoir au forum,

C'est bon, j'ai réussi. Merci à jfontaine et Mercatog pour m'avoir aider

Cordialement

Stéphanie