Erreur de compilation "non ambigu "
Martial
-
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
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
A voir également:
- Erreur de compilation "non ambigu "
- Erreur 4101 france tv - Forum Lecteurs et supports vidéo
- Erreur signet non défini - Forum Word
- Erreur upes 1025 - Forum Téléviseurs
- Erreur t32 ✓ - Forum Livebox
- Erreur 3000 france tv - Forum Lecteurs et supports vidéo