Bonsoir
j'essaie de faire fonctionner cela ;-)
Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais cela
fonctionne que si je mets 1 au lieu de 123
Merci
Flo riant
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value)
If Err.Number <> 0 Then
TextBox3 = ""
End If
End Sub
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
Florian
Avec un combox cela fonctionne très bien ???
Private Sub ComboBox4_Change() On Error Resume Next TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex + 1) If Err.Number <> 0 Then TextBox24 = "" End If End Sub
"Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cela ;-) Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais cela fonctionne que si je mets 1 au lieu de 123 Merci Flo riant
Private Sub TextBox2_Change() On Error Resume Next TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value) If Err.Number <> 0 Then TextBox3 = "" End If End Sub
Avec un combox cela fonctionne très bien ???
Private Sub ComboBox4_Change()
On Error Resume Next
TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex +
1)
If Err.Number <> 0 Then
TextBox24 = ""
End If
End Sub
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23b21oxRcFHA.2756@tk2msftngp13.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cela ;-)
Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais
cela fonctionne que si je mets 1 au lieu de 123
Merci
Flo riant
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value)
If Err.Number <> 0 Then
TextBox3 = ""
End If
End Sub
Private Sub ComboBox4_Change() On Error Resume Next TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex + 1) If Err.Number <> 0 Then TextBox24 = "" End If End Sub
"Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cela ;-) Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais cela fonctionne que si je mets 1 au lieu de 123 Merci Flo riant
Private Sub TextBox2_Change() On Error Resume Next TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value) If Err.Number <> 0 Then TextBox3 = "" End If End Sub
Florian
Salut tout le monde j'ai trouvé dans le classeur d'Alain VALLON c'est très bien
Private Sub ComboBox4_Change() On Error Resume Next TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex + 1) If Err.Number <> 0 Then TextBox24 = "" End If End Sub
"Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cela ;-) Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais cela fonctionne que si je mets 1 au lieu de 123 Merci Flo riant
Private Sub TextBox2_Change() On Error Resume Next TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value) If Err.Number <> 0 Then TextBox3 = "" End If End Sub
Salut tout le monde j'ai trouvé dans le classeur d'Alain VALLON
c'est très bien
"Florian" <florian@toto.fr> a écrit dans le message de news:
eZdJTcScFHA.3840@tk2msftngp13.phx.gbl...
Avec un combox cela fonctionne très bien ???
Private Sub ComboBox4_Change()
On Error Resume Next
TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex +
1)
If Err.Number <> 0 Then
TextBox24 = ""
End If
End Sub
"Florian" <florian@toto.fr> a écrit dans le message de news:
%23b21oxRcFHA.2756@tk2msftngp13.phx.gbl...
Bonsoir
j'essaie de faire fonctionner cela ;-)
Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais
cela fonctionne que si je mets 1 au lieu de 123
Merci
Flo riant
Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value)
If Err.Number <> 0 Then
TextBox3 = ""
End If
End Sub
Private Sub ComboBox4_Change() On Error Resume Next TextBox24.Text = Application.Index(Range("Ordo"), ComboBox4.ListIndex + 1) If Err.Number <> 0 Then TextBox24 = "" End If End Sub
"Florian" a écrit dans le message de news: %
Bonsoir j'essaie de faire fonctionner cela ;-) Mais cela ne fonctionne pas dans la liste j'ai 123, la clé est 80, mais cela fonctionne que si je mets 1 au lieu de 123 Merci Flo riant
Private Sub TextBox2_Change() On Error Resume Next TextBox3.Text = Application.Index(Range("Ref_clé"), TextBox2.Value) If Err.Number <> 0 Then TextBox3 = "" End If End Sub
