Bonjour,
J'ai un problème avec un code qui fonctionnait auparavant et depuis peu plus rien :
le voici
voyez vous l'erreur ?
merci
J'ai un problème avec un code qui fonctionnait auparavant et depuis peu plus rien :
le voici
Code:
Private Sub ComboBox2_Change()
Dim E As Range
For i = 6 To 7
Controls("TextBox" & i).Enabled = False
Next i
Set E = Sheets("Feuil1").Cells.Find(What:=ComboBox2)
If Not E Is Nothing Then
With Me
.TextBox6.Value = Format(E.Offset(12, 0), ".€")
.TextBox7.Value = Format(E.Offset(13, 0), ".€")
End With
End If
End Sub
voyez vous l'erreur ?
merci