Code vba
Résolu
mjouff
-
Martial -
Martial -
Bonjour,
Problème avec un code dans mon userform
nom ambigu détecté que faire
Private Sub TextBox1_AfterUpdate()
Cells(ligne, 1) = TextBox1
nom ambigu = ligne
pour info 3 userform avec 7 à 11 textbox identique 3 modules donc 3 feuil dans un fichier
Il est possible de joindre le fichier
Merci à vous
Problème avec un code dans mon userform
nom ambigu détecté que faire
Private Sub TextBox1_AfterUpdate()
Cells(ligne, 1) = TextBox1
nom ambigu = ligne
pour info 3 userform avec 7 à 11 textbox identique 3 modules donc 3 feuil dans un fichier
Il est possible de joindre le fichier
Merci à vous
A voir également:
- Code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
7 réponses
Bonjour,
Tout d'abord, les differentes userform n'ont rien a voir les unes avec les autres au niveau des variables sauf si celles si sont declaré en global.
Ma question serait:
L'erreur apparait elle sur toute vos userform?
Tout d'abord, les differentes userform n'ont rien a voir les unes avec les autres au niveau des variables sauf si celles si sont declaré en global.
Ma question serait:
L'erreur apparait elle sur toute vos userform?
Alors c'est surement que le nom de la variable doit être a un mot clé réservé dans VBA.
Essaye de remplacer cette variable par une autre du genre :
intRow
et normalement ça devrais marcher je pense.
Essaye de remplacer cette variable par une autre du genre :
intRow
et normalement ça devrais marcher je pense.
L'erreur est toujours la même?
oui voici la formul des l'Userform la formul
Private Sub CommandButton1_Click()
'Fermeture du formulaire
UserForm1.Hide
End Sub
Private Sub TextBox1_AfterUpdate()
Cells(ligne, 1) = TextBox1
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 UserForm_Activate()
'Réinitialisation des champs du formulaire
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub
pouvez vous noter la formule SVP
Private Sub CommandButton1_Click()
'Fermeture du formulaire
UserForm1.Hide
End Sub
Private Sub TextBox1_AfterUpdate()
Cells(ligne, 1) = TextBox1
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 UserForm_Activate()
'Réinitialisation des champs du formulaire
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
End Sub
pouvez vous noter la formule SVP
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Je pense que l'erreur viens du fait que vous utilisez :
userform1.hide -> ne ferme pas la userform mais la cache, donc ligne est bien défini a plusieurs endroit en mm temps!
Utilisez plutôt :
unload userform1 qui ferme complètement la userform :)
userform1.hide -> ne ferme pas la userform mais la cache, donc ligne est bien défini a plusieurs endroit en mm temps!
Utilisez plutôt :
unload userform1 qui ferme complètement la userform :)
Ca marche pas (erreur de compilation nom ambigu détecté : ligne)
il y à aussi des modules avec le code
'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 Bouton11_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
UserForm1.Show
End Sub
Si je sup 2 modules et 2 userforme ca marche bien
je ne vois pas ou est le problème
il y à aussi des modules avec le code
'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 Bouton11_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
UserForm1.Show
End Sub
Si je sup 2 modules et 2 userforme ca marche bien
je ne vois pas ou est le problème
erreur ambigu détecté apparait sur toute