Userform: remplir une texte box selon une autretextbox / code postal - vide

[grokouic]

Bonjour le forum,

je bute sur une bétise. Autant je sais remplir une textbox avec ce qui est indiqué dans une combobox (merci Robert) autant je n'y arrive pas de textbox à textbox.

L'objectif c'est de saisir le CP et que la ville se mette automatiquement en fonction

petit fichier en PJ

Merci de votre aide

Arnaud

 

[Si...]

Re : Userform: remplir une texte box selon une autretextbox / code postal - vide

salut

entre autres :

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim E As Range
  Set E = [A:A].Find(TextBox1, , , 1) 'recherche du contenu du contrôle en colonne A
  If Not E Is Nothing Then TextBox2 = E(1, 2) 'Else message
End Sub

 

[grokouic]

Re : Userform: remplir une texte box selon une autretextbox / code postal - vide

Merci de ton aide Si...

j'ai essayé d'adapter le code pour viser un onglet spécifique ou la grille des codes postaux sera saisie mais j'ai un nouveau problème.

Si je rentre

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim E As Range
Sheets("codepostal").Activate
  Set E = [A:A].Find(TextBox1, , , 1) 'recherche du contenu du contrôle en colonne A
 If Not E Is Nothing Then TextBox2 = E(1, 2)
End Sub

alors cela fonctionne, mais si je rentre

Private Sub Textbox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim E As Range
With Sheets("codepostal")
  Set E = [A:A].Find(TextBox1, , , 1) 'recherche du contenu du contrôle en colonne A
 If Not E Is Nothing Then TextBox2 = E(1, 2)
 End With
End Sub

cela ne fonctionne pas.

en outre, l'instruction "Else" que je voudrait saisir crée un plantage, pour erreur d'instruction "if" pourtant le "if" est bien indiqué

merci de votre aide

 

[Pierrot93]

Re : Userform: remplir une texte box selon une autretextbox / code postal - vide

Bonjour,
Bonjour Si

si tu utilises un bloc "with", mettre un point devant les instructions s'y référant...

With Sheets("codepostal")
  Set E = .[A:A].Find(TextBox1, , , 1) 'recherche du contenu du contrôle en colonne A
 If Not E Is Nothing Then TextBox2 = E(1, 2)
 End With

bon après midi
@+

 

[Pierrot93]

Re : Userform: remplir une texte box selon une autretextbox / code postal - vide

Re,

avec le "else" :

If Not E Is Nothing Then TextBox2 = E(1, 2) Else MsgBox "non trouvé..."

sur la même ligne...

 

[grokouic]

Re : Userform: remplir une texte box selon une autretextbox / code postal - vide

merci beaucoup Pierrot93 pour ces deux informations, je cherchais en effet à mettre le Else sur une nouvelle ligne.

très bonne soirée