Discussion :

[graphikris]

Bonjour,

Je viens de créer un UserForm suite à un tuto mais çà bug.

En effet, j'ai créer 2 TextBox + 1 Bouton de commande.
A chaque fois que je saisi un nom et un prenom, je clique sur le bouton de commande qui va aller inscrire sur la ligne vierge suivante le nom en colonne A grace au TAG 1 et le prenom en colonne B grace au TAG 2 (propriete du bouton de commande).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
 
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
With Worksheet("Feuil1")
derligne = .Range("65536").End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
Next
End With
TextBox = ""
End
End Sub

Mais çà bug sur le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl

sur Ctrl.

Merci.

[Invité]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If r > 0 Then ActiveWorkbook.Worksheets("Feuil1").Cells(derligne, r) = ctrl

[graphikris]

Bonjour,

Je viens de modifier mon code comme tu me l'as dis mais maintenant çà bug ligne 8 du code sur WORKSHEET :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheet("Feuil1")

Cordialement

Nota : J'ai pris le tuto dans cette discussion :
http://www.developpez.net/forums/d13...tion-userform/

dans la reponse de EXCEL MAN (video youtube)

[Invité]

Bonjour,
un petit s à With Worksheet("Feuil1")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("Feuil1")

Si tu te places sur l’instruction et que tu fais [CTRL] + [espace] la solution arrive d’elle-même !

[Invité]

Ce code fonctionne chez moi ! (Office 2010 widiows7 64 bits), attention au panachage de version XP sevent !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
With Worksheets("Feuil1")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Worksheets("Feuil1").Cells(derligne, r) = ctrl
Next
End With
TextBox = ""
End
End Sub

[graphikris]

Slt,

J'utilise Excel 2003 avec Vista, tu crois que celà viens de là ?
Pourtant le code utilisé n'est pas sorcier.

[patricktoulon]

peut etre parce que tu boucle sur tout les controls et tous n'ont pas le tag d'instruit voir meme le meme type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
Next

l'orsque tu arrive sur le bouton dans la boucle tu a forcement une erreur

essaie pluto ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
if typename(ctrl)="TextBox"and ctrl.tag>0 then 
sheets("Feuil1") . Cells(derligne,ctrl.tag) = ctrl
Next

au plaisir

[graphikris]

peut etre parce que tu boucle sur tout les controls et tous n'ont pas le tag d'instruit voir meme le meme type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
Next

l'orsque tu arrive sur le bouton dans la boucle tu a forcement une erreur

essaie pluto ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
if typename(ctrl)="TextBox"and ctrl.tag>0 then 
sheets("Feuil1") . Cells(derligne,ctrl.tag) = ctrl
Next

au plaisir

çà bug ici, la ligne reste rouge :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sheets("Feuil1") . Cells(derligne,ctrl.tag) = ctrl

Bonjour,
un petit s à With Worksheet("Feuil1")

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

With Worksheets("Feuil1")

Si tu te places sur l’instruction et que tu fais [CTRL] + [espace] la solution arrive d’elle-même !

Meme avec le S en + çà n'y fait rien

[graphikris]

Non j'ai pris le tuto dans une autre discussion http://www.developpez.net/forums/d13...tion-userform/ ensuite j'ai ouvert Excel 2003 et j'ai essayé.

peut etre parce que tu boucle sur tout les controls et tous n'ont pas le tag d'instruit voir meme le meme type

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Feuil1 , Cells(derligne, r) = ctrl
Next

l'orsque tu arrive sur le bouton dans la boucle tu a forcement une erreur

essaie pluto ceci:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
For Each ctrl In UserForm1.Controls
if typename(ctrl)="TextBox"and ctrl.tag>0 then 
sheets("Feuil1") . Cells(derligne,ctrl.tag) = ctrl
Next

au plaisir

Rebjr,

Le fait d'avoir renommé mes textbox en par exemple :
TextBox1 en NOM_PRENOM
a t'il un effet par rapport au code que j'ai recopié ?

[Invité]

Joints ton classeur on verra sur pièce.

Apriori, la seule erreur que j’imagine, c’est qu’il n’existe pas d’onglet Feuil1 dans ton classeur.
Vérifies ça et remplace Feuil1 par son vrai nom

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CommandButton1_Click()
Dim ctrl As Control
Dim r As Integer
Dim t As Integer
Dim derligne As Integer
 
With Worksheets("VraiNom")
derligne = .Range("A65536").End(xlUp).Row + 1
For Each ctrl In UserForm1.Controls
r = Val(ctrl.Tag)
If r > 0 Then Worksheets("VraiNom").Cells(derligne, r) = ctrl
Next
End With
TextBox = ""
End
End Sub