Erreur de compilation "non ambigu "

Martial -  
 Martial -
Bonjour,

j'ai un problème erreur de compilation "non ambigu" dans un fichier

création de trois Userform identique dans mon fichier un userform par feuil
Voici les codes Userform et module que j'ai fais pour chaque feuil(3) le non ambigu qui bloque est ligne dans les textbox.
ça marche bien si il y à une seul feuil et un seul userfom

Merci de votre aide

Code userform

Private Sub TextBox1_AfterUpdate()
Cells(ligne, 1) = TextBox1

End Sub

Private Sub TextBox10_AfterUpdate()
Cells(ligne, 10) = TextBox10

End Sub

Private Sub TextBox11_AfterUpdate()
Cells(ligne, 11) = TextBox11

End Sub

Private Sub TextBox2_AfterUpdate()
Cells(ligne, 2) = TextBox2

End Sub

Private Sub TextBox3_AfterUpdate()
Cells(ligne, 3) = TextBox3

End Sub

Private Sub TextBox4_AfterUpdate()
Cells(ligne, 4) = TextBox4

End Sub

Private Sub TextBox5_AfterUpdate()
Cells(ligne, 5) = TextBox5

End Sub

Private Sub TextBox6_AfterUpdate()
Cells(ligne, 6) = TextBox6

End Sub

Private Sub TextBox7_AfterUpdate()
Cells(ligne, 7) = TextBox7

End Sub

Private Sub TextBox8_AfterUpdate()
Cells(ligne, 8) = TextBox8

End Sub

Private Sub TextBox9_AfterUpdate()
Cells(ligne, 9) = TextBox9

End Sub

Private Sub ToggleButton1_Click()
'Fermeture du formulaire
SAISIE.Hide
End Sub
Private Sub ToggleButton2_Click()
'Réinitialisation des champs du formulaire
Range(Cells(ligne, 1), Cells(ligne, 11)).Select
Selection.ClearContents
Cells(ligne, 1).Select
End Sub
Private Sub UserForm_Activate()
'Réinitialisation des champs du formulaire
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
End Sub

Code module

'Définition de deux variables publiques
'Une pour la ligne et l'autre pour la colonne pour placer le curseur
'où l'on souhaite
Public ligne, colonne
Sub Bouton12_QuandClic()
'Initialisation des variables pour placer le curseur en A2
ligne = 2
colonne = 1
'Selection de la première cellule du tableau
Range("A2").Select
'Boucle itérative pour rouver la première cellule vide
Do Until IsEmpty(Cells(ligne, colonne))
'Incrémentation de la variale ligne (si non vide)
ligne = ligne + 1
Loop
'Selection de la première cellule cide trouvée
Cells(ligne, colonne).Select
'Affichage du formulaire
Userform.Show
End Sub

1 réponse

Martial
 
fait
0
Martial
 
fait
0