PB avec "Tablo" dans code UserForm
Bonjour le forum
En pièce jointe j'ai placé un fichier dans lequel j'ouvre un "UserForm" afin de saisir des données.
Mon souci c'est l'incrémentation des numéros que je créée comme référence.
Lorsque j'ai un tableau avec aucune référence, je peux créée la première ligne mais pas une suivante (essai sur feuille "Vil_col_trs"), par contre si j'ai déjà une liste constituée (feuille Vil_008) mon incrémentation fonctionne et donc je peux créée une ligne supplémentaire
j'ai une erreur d'incompatibilité de type
Je ne sais pas comment faire quand je n'ai qu'une seule ligne dans mon tableau
Si quelqu'un pouvait m'aider svp
D'avance je vous remercie pour votre aide et votre disponibilité
Bonjour
modifie le départ de ta boucle
Private Sub TextBox9_Change()
Set Z = ActiveSheet
tablo = Z.Range("A3:A" & Z.Range("A" & Rows.Count).End(xlUp).Row)
For I = 1 To UBound(tablo, 1)
If tablo(I, 1) Like TextBox9 & "*" Then
n = Val(Right(tablo(I, 1), 2))
End If
Next I
TextBox1 = Format(n + 1, "000")
TextBox2 = TextBox9 & "-" & TextBox1
End Subtablo = Z.Range("A3:A" & Z.Range("A" & Rows.Count).End(xlUp).Row)
Bonjour M12
Merci pour ton aide et ta disponibilité
Ok ça fonctionne,
c'est super merci beaucoup