Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel INDEX EQUIV en VBA avec Textbox

INDEX EQUIV en VBA avec Textbox

8 réponses
Avatar
Vincent
Bonjour
J'ai 1 tableau avec :
A3:A1000 N° de client B3:B1000 Adresse C3:C1000 N° de tel
J'ai un userform avec 3 textbox
je souhaite que si on saisit dans le textbox1 le n°de client on trouve
automatiquement
l'adresse dans le Textbox2 et le N° de Tel dans le Textbox3
si le numéro saisit dans textbox1 n'existe pas un msgbox "Le num n'existe
pas"
Merci beaucoup
Vincent
Signaler un problème avec ce contenu

8 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Corona
Bonjour Vincent,
Av a répondu à Xavier sur un sujet similaire il y a quelques jours.
Il lui a laissé un classeur exemple à l'adresse suivante
http://cjoint.com/?dsmnEygIU7
Philippe

"Vincent" a écrit dans le message de
news:
Bonjour
J'ai 1 tableau avec :
A3:A1000 N° de client B3:B1000 Adresse C3:C1000 N° de tel
J'ai un userform avec 3 textbox
je souhaite que si on saisit dans le textbox1 le n°de client on trouve
automatiquement
l'adresse dans le Textbox2 et le N° de Tel dans le Textbox3
si le numéro saisit dans textbox1 n'existe pas un msgbox "Le num n'existe
pas"
Merci beaucoup
Vincent



Avatar
AV
En profitant de la mi-temps :

http://cjoint.com/?dtpvLtSJ5v

AV
Avatar
jps
ouais...mais pas vu beaucoup de brivistes sur la pelouse romaine...
jps (qui regrette Olivier Magne)

"AV" a écrit dans le message de
news:
En profitant de la mi-temps :

http://cjoint.com/?dtpvLtSJ5v

AV




Avatar
Vincent
Bonjour et merci AV
Le problème est que lorsque je saisis un chiffre différent de ceux de la
liste
il me dit "erreur d'exécution 13"
Merci
Vincent


"AV" a écrit dans le message de news:

En profitant de la mi-temps :

http://cjoint.com/?dtpvLtSJ5v

AV




Avatar
Vincent
Merci Corona

"Corona" <Philippe Tulliez> a écrit dans le message de news:

Bonjour Vincent,
Av a répondu à Xavier sur un sujet similaire il y a quelques jours.
Il lui a laissé un classeur exemple à l'adresse suivante
http://cjoint.com/?dsmnEygIU7
Philippe

"Vincent" a écrit dans le message de
news:
Bonjour
J'ai 1 tableau avec :
A3:A1000 N° de client B3:B1000 Adresse C3:C1000 N° de tel
J'ai un userform avec 3 textbox
je souhaite que si on saisit dans le textbox1 le n°de client on trouve
automatiquement
l'adresse dans le Textbox2 et le N° de Tel dans le Textbox3
si le numéro saisit dans textbox1 n'existe pas un msgbox "Le num n'existe
pas"
Merci beaucoup
Vincent







Avatar
AV
Dans le module de l'Userform :

Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1.Text = Application.Index(Range("Adresses"), ComboBox1.ListIndex +
1)
TextBox2.Text = Format(Application.Index(Range("Tels"), ComboBox1.ListIndex
+ 1), "0000000000")
If Err.Number <> 0 Then
TextBox1 = "": TextBox2 = ""
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
TextBox1.Text = "": TextBox2.Text = ""
End Sub

AV
Avatar
AV
ouais...mais pas vu beaucoup de brivistes sur la pelouse romaine...


Pffffff et Laharrague il est d'où hein ? RePfffff

jps (qui regrette Olivier Magne)
Lui c'est Montferrand... mais il est cuit....


AV

Avatar
Vincent
Merci, c'est exactement ce que je souhaitai !
Bonne journée
Vincent

"AV" a écrit dans le message de news:

Dans le module de l'Userform :

Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1.Text = Application.Index(Range("Adresses"),
ComboBox1.ListIndex +
1)
TextBox2.Text = Format(Application.Index(Range("Tels"),
ComboBox1.ListIndex
+ 1), "0000000000")
If Err.Number <> 0 Then
TextBox1 = "": TextBox2 = ""
End If
End Sub

Private Sub CommandButton1_Click()
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.ListIndex = 0
TextBox1.Text = "": TextBox2.Text = ""
End Sub

AV