XL 2016 erreur code vba

gothc · 16 Avril 2020

bonjour j'ai une erreur dans le code vba j'ai besoin d'aide
j'aimerais aussi modifier sur userform le combobox1 ( numero code barre) par une saisie manuelle que je vais faire avec une douchette
Merci de votre aide

'Pour la liste déroulante Code client
Private Sub ComboBox1_Change()
Dim Ligne As Long
Dim I As Integer

If Me.ComboBox1.ListIndex = -1 Then Exit Sub
Ligne = Me.ComboBox1.ListIndex + 2
ComboBox2 = Ws.Cells(Ligne, "B")
For I = 1 To 7
Me.Controls("TextBox" & I) = Ws.Cells(Ligne, I + 2)
Next I
End Sub

dodineau · 3 Mai 2020

Salut,
tu ne définis pas ton WS...
je pense qu'il suffit d'enlever les "ws." tout simplement.
A essayer...
A+

dg62 · 3 Mai 2020

Bonsoir Gothc, dodineau

dodineau à dit:
Salut,
tu ne définis pas ton WS...
je pense qu'il suffit d'enlever les "ws." tout simplement.
A essayer...
A+

Effectivement tu as raison

VB:

Private Sub ComboBox1_Change()
 Dim Ligne As Long
 Dim I As Integer
 Set ws = Sheets("fEUIL1")
 If Me.ComboBox1.ListIndex = -1 Then Exit Sub
 Ligne = Me.ComboBox1.ListIndex + 2
 ComboBox2 = ws.Cells(Ligne, "B")
  For I = 1 To 7
  Me.Controls("TextBox" & I) = ws.Cells(Ligne, I + 2)
  Next I
End Sub

gothc · 3 Mai 2020

Merci

XL 2016 erreur code vba

gothc

XLDnaute Occasionnel

Pièces jointes

dodineau

XLDnaute Occasionnel

dg62

XLDnaute Barbatruc

gothc

XLDnaute Occasionnel

Discussions similaires