Code vba
Résolu
mjouff
-
20 nov. 2008 à 07:57
Martial -
Martial -
A voir également:
- Code vba
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code deverouillage telephone perdu - Guide
- Code blocks - Télécharger - Langages
7 réponses
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 08:23
20 nov. 2008 à 08:23
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?
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 09:30
20 nov. 2008 à 09:30
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.
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 09:59
20 nov. 2008 à 09:59
avez vous essayé de changer le nom de la variable?
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 10:41
20 nov. 2008 à 10:41
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
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 10:55
20 nov. 2008 à 10:55
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
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 11:13
20 nov. 2008 à 11:13
Mais change le userform.hide en unload userform et change le nom de ta variable aussi!
xav3601
Messages postés
3289
Date d'inscription
lundi 10 novembre 2008
Statut
Membre
Dernière intervention
2 mars 2016
311
20 nov. 2008 à 12:13
20 nov. 2008 à 12:13
Essaye
activesheet.cells(ligne, 1)
activesheet.cells(ligne, 1)
20 nov. 2008 à 09:12
erreur ambigu détecté apparait sur toute