Discussion :

[Willsmeeth]

Bonjour à tous,
Voilà mon problème,
J'ai une UserForm où j'y es mis plusieurs ComboBox avec des listes de critères. Sur cette même UserForm j'y es mis un bouton "OK". Jusqu'ici tout va bien.
Mon problème est que j'aimerais, lors d'un appui sur mon bouton "OK", vérifier qu'une donnée soit bien rentrée dans mais ComboBox. Si cela n'est pas le cas j'aimerais qu'un MsgBox s'affiche en disant par exemple "Veuillez entre une donnée dans ComboBox1".

Le code que j'ai essayé est celui ci-dessous mais bien évidement il ne fonctionne pas:

Code :

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

1
2
3
4
5
Private Sub CommandButton_OK_Click() 
If fenginComboBox Is Not "INDEX!B3:B34" Then
MsgBox "Veuillez saisir une famille d'engins"
End If
End Sub

PS: je précise que je suis nouveau dans le domaine du VBA donc il se peut que je fasse d'énormes fautes .

Merci pour ceux qui prêteront attention à mon sujet!
Cordialement.

MARIAIS Gwénaël

[pijaku]

Bonjour,

Ta combobox fenginComboBox est "remplie" via son RowSource?

Si c'est le cas, il y a trois choix (et seulement 3) :
> soit elle est vide,
> soit elle a une valeur qui appartient au RowSource.
> soit un petit malin a saisi une valeur dans le combobox.

Pour éviter la saisie par un petit malin, il faut, dès l'initialisation de l'userform, paramétrer tes combobox comme ceci :

Code :

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

fenginComboBox.Style = fmStyleDropDownList

A partir de là, tu n'auras plus que deux possibilités, vide ou avec une valeur correspondante à ce que tu cherches.

Donc, ton test devient :

Code :

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

1
2
3
4
5
Private Sub CommandButton_OK_Click() 
If fenginComboBox = "" Then
    MsgBox "Veuillez saisir une famille d'engins"
End If
End Sub

[Willsmeeth]

Merci Pijaku de prêter attention à mon sujet .

Tout d'abord l'astuce fenginComboBox.Style = fmStyleDropDownList fonctionne ainsi que ma MsgBox.

Maintenant ce que j'aimerais savoir c'est que depuis ma commande fenginComboBox.Style = fmStyleDropDownList installée, dans ma ComboBox "fenginComboBox"" je ne vais plus voir de titre par exemple "Famille engin". En faite je ne vois plus le Text dans ma combobox.

En espérant avoir été assez clair. Merci.

[pijaku]

Donne moi ton code de remplissage des combobox.

[Willsmeeth]

Le voici:

Code :

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

1
2
3
4
5
6
'Assignation de valeur aux combobox
      Me.nomComboBox.RowSource = "INDEX!A3:A34" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row
      Me.fenginComboBox.RowSource = "INDEX!B3:B34" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row
      Me.enginComboBox.RowSource = "INDEX!C3:C34" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row
      Me.typeoperationComboBox.RowSource = "INDEX!D3:D34" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row
      Me.tempsComboBox.RowSource = "INDEX!E3:E34" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row

[pijaku]

Bon.
Plusieurs petites choses avant de continuer :

Code :

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

Me.nomComboBox.RowSource = "INDEX!A3:A34"

Ok, mais normalement :

Code :

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

Sheets("INDEX").Cells(1, 1).End(xlDown).Row

te donne le numéro de la dernière ligne. Donc inutile d'ajouter 34.
Ceci devrait suffire :

Code :

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

Me.nomComboBox.RowSource = "INDEX!A3:A" & Sheets("INDEX").Cells(1, 1).End(xlDown).Row

Comme tu utilises

Code :

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

Sheets("INDEX").Cells(1, 1).End(xlDown).Row

plusieurs fois, il vaut mieux le stocker dans une variable. Comme ceci :

Code :

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

1
2
3
4
5
6
7
Dim maLigne As Integer
maLigne = Sheets("INDEX").Cells(1, 1).End(xlDown).Row
      Me.nomComboBox.RowSource = "INDEX!A3:A" & maLigne
      Me.fenginComboBox.RowSource = "INDEX!B3:B" & maLigne
      Me.enginComboBox.RowSource = "INDEX!C3:C" & maLigne
      Me.typeoperationComboBox.RowSource = "INDEX!D3:D" & maLigne
      Me.tempsComboBox.RowSource = "INDEX!E3:E" & maLigne

Attention, ceci ne fonctionnera que si, dans la feuille INDEX, les cellules A1, A2 et A3 au minimum sont remplies. Si l'une des trois est vide, ce code ne fonctionnera alors pas.

Dernière question subsidiaire (pas facile sans avoir le fichier sous la main ;-)) :
Ta ligne d'entête dans la feuille INDEX possède quel numéro? 2? 3?