Discussion :

[a.ouguerzam]

Bonjour,

J’ai créé un formulaire : une comboBox et textBox et j’ai utilisé la fonction VLookup pour que le textBox sera remplir par le comboBox automatiquement.
Sauf que j’ai trouvé un bug ou un message d’erreur quand je supprime le contenu de comboBox.

Ci-dessous quelques captures d’écran :



Ci-dessous le fonctionnement correct sans faute :



ci-dessous le blocage que je vide le comboBox :



ci-dessous le code VBLookUP

Code :

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

1
2
3
Private Sub ComboBox1_Change()
TextBox1.Value = Application.VLookup(ComboBox1, Sheets("Liste").Range("B5:E3000"), 4, False)
End Sub

je pense il faut juste ajouter une condition en cas le comboBox et vide ou dans le cas et je suprime le comboBox manuel.

je reste disponible pour plus d'informations
merci d'avcence pour vos efforts.

cdt,
OUga

[bboy-eazy]

Bonjour
Peut être avec ca:

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
if combobox1.value ="" then 
exit sub
end if
TextBox1.Value = Application.VLookup(ComboBox1, Sheets("Liste").Range("B5:E3000"), 4, False)
End Sub

[a.ouguerzam]

Exactement j’ai plus le bug sauf quand je supprime le comBox1 j’ai toujours le matricule RH affiche sur textbox malgré que j’ai rien.

Et quand je tape un nom qui n’existe pas sur la base automatiquement j’ai un debocage .
Il y a-t-il une solution ou une condition à ajouter.


Cdt,
ouga

[Invité]

bonjour,
dans la sub qui supprime

Code :

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

TextBox1.Value = ""

[a.ouguerzam]

mais pas contre moi j'ai bien mettre cette fonction sur mon code si la combobox1 vider il va mettre le textbox vider automatiquement
et en cas que je tappes un nom qui n'existe pas il me donne un msgbox pour dire que le nom il n'ixiste pas dans la base

voila mon code pour le moment :

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
If ComboBox1.Value = "" Then
Exit Sub
End If
TextBox1.Value = Application.VLookup(ComboBox1, Sheets("Liste").Range("B5:E3000"), 4, False)
End Sub

cdt;
ouga

[Invité]

Ok j'ai bien compris!

[Invité]

Code :

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

1
2
3
4
5
6
Private Sub ComboBox1_Change()
If ComboBox1.listindex = -1 Then
Exit Sub
End If
TextBox1.Value = trim( "" &Application.VLookup(ComboBox1, Sheets("Liste").Range("B5:E3000"), 4, False))
End Sub

quand tu suprime tu remets listeinex = -1; textebox=""; accesoiremet tu place dans la partie déclaratve du userform un booleant pour interdir les evenemts:

Code :

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

if NotMaj=true then exit sub

et épargne moi le vocabulaire bebe! Je ne veux que t'aider!