Pb Validation 2 TextBox

**graphikris** · 10/03/2013, 18h42

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é · 10/03/2013, 19h00

Code :

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

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

**graphikris** · 11/03/2013, 10h31

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é · 11/03/2013, 10h44

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 !

**patricktoulon** · 11/03/2013, 10h46

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** · 11/03/2013, 10h55

Envoyé par 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

çà bug ici, la ligne reste rouge :

Code :

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

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

Envoyé par rdurupt

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

Invité · 11/03/2013, 11h13

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** · 11/03/2013, 11h17

Slt,

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

Invité · 11/03/2013, 11h22

Possible seulement si tu as développé ton code sur une autre machine.
Pour acquis de conscience regarde ce lien

http://www.developpez.net/forums/d13...l/#post7158281

**graphikris** · 11/03/2013, 12h26

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é.

Envoyé par 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

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é · 11/03/2013, 12h34

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

**graphikris** · 11/03/2013, 13h21

voici en pj mon fichier modifié quelque peu pour des raisons de confidentialité mais aucun chgt au niveau de mes colonnes

Invité · 11/03/2013, 13h30

J’ai fait des petites modifications sur des point de bug mais pas sur With Worksheets("Feuil1") ?!@҉҉

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 CmdValider_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 FrmAjout.Controls
If TypeName(ctrl) = "TextBox" And Val(ctrl.Tag) > 0 Then
Sheets("Feuil1").Cells(derligne, Val(ctrl.Tag)) = ctrl
End If
Next
End With
TextBox = ""
End
End Sub

**graphikris** · 11/03/2013, 13h41

Merci çà fonctionne.
Sinon quel code pour Annuler le formulaire ?
Je ne trouve pas

Concernant le formulaire Modif :
Dois je mettre le meme code que celui de Ajout ?
J'ai créé une listbox avec la liste des personnels. lorsque je clique sur un des nom, les renseignements qui se trouve dans la feuille 1 doivent aller dans les bons textbox. Et ensuite je modifie le textbox par exemple GRADES et lorsque je valide le nouveau GRADE se met a jour dans feuil1.

Sinon comment imposer dans un TEXTBOX que les NOM_Prénom s'ecrivent :
NOM en MAJUSCULE et Prénom : 1ere lettre en MAJUSCULE et reste en minuscule ?
Comment imposer que les dates soient jj/mm/aaaa ?
En fait que tout ce qui est saisi dans le formulaire soit au meme format que celle des cellules de la feuil1 ?

Je sais que j'en demande beaucoup mais je suis au début du commencement en VBA

Cordialement

**Guiiand** · 11/03/2013, 13h52

Bonjour,

A adapté en fonction de tes variables

Code :

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

1
2
3
    MonNom = UCase(Nom)
    MonPrenom = UCase(Left(Prenom, 1)) & LCase(Right(Prenom, Len(Prenom) - 1))
    MaDate = Format(LaDate, "dd/mm/yyyy")

**graphikris** · 11/03/2013, 14h02

Merci pour la reponse mais je met çà où ?
Dans mon code du formulaire ?
Sinon comment grace a ce code que les dates (car j'en ai plusieurs dans mon formulaire) iront s'inscrirent correctement dans Feuil1 et comment concaténer ton code avec nom prenom car dans mon formulaire on saisi le nom suivi du prenom dans le meme textbox et j'ai des noms et prenoms composés séparés par des tirets . Ce qui sépare le nom du prenom restera toujours un espace .

Cordialement.

Invité · 11/03/2013, 14h03

Code :

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

1
2
3
4
5
Private Sub CmdAnnuler_Click()
 
'code non trouvé a ce jour afin annuler la saisie et fermer le formulaire
End
End Sub

**graphikris** · 11/03/2013, 14h08

Merci c'etait tout C (bete)

Sinon pour le formulaire Modif je fais comment ?

J'ai oublié un détail lorsque je clique dans le formulaire sur la croix face à chauffeur, il faudrait que le mot "CHAUFFEUR" aille s'inscrire sur la colonne 16 (P) "Roles".

Invité · 11/03/2013, 14h48

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Private Sub CmdAnnuler_Click()
End
End Sub
 
Private Sub CmdValider_Click()
 
 ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 9) = Me.TextBox17
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 4) = Me.TextBox7
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 8) = Me.TextBox8
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 5) = Me.TextBox11
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 17) = Me.TextBox10
Me.TextBox9 = ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 13) = Me.TextBox9
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 16) = ""
If Me.CheckBox1.Value = True Then ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 16) = "Chauffeurs"
ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 15) = Me.TextBox14
 ActiveWorkbook.Worksheets("Feuil1").Cells(Me.Tag, 7) = Me.TextBox16
 End
End Sub
 
Private Sub ListBox1_Noms_Change()
RenseignerChamps
End Sub
 
 
Private Sub UserForm_Initialize()
Me.ListBox1_Noms.ListIndex = 0
End Sub
 
Sub RenseignerChamps()
Dim MyRange As Range
Dim L As Long
Set MyRange = ActiveWorkbook.Worksheets("Feuil1").Range("A:A")
L = MyRange.Find(Me.ListBox1_Noms).Row
Me.Tag = L
Me.TextBox17 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 9)
Me.TextBox7 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 4)
Me.TextBox8 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 8)
Me.TextBox11 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 5)
Me.TextBox10 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 17)
Me.TextBox9 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 13)
If ActiveWorkbook.Worksheets("Feuil1").Cells(L, 16) = "Chauffeurs" Then Me.CheckBox1.Value = True
Me.TextBox14 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 15)
Me.TextBox16 = ActiveWorkbook.Worksheets("Feuil1").Cells(L, 7)
 
End Sub

**graphikris** · 11/03/2013, 15h09

MERCI à toi pour le tps que tu me consacres à me dépatouiller.

Mais y'a 2 petits bug :

Le 1er : quand je met une croix dans chauffeur dans le formulaire Ajout , le mot chauffeur ne s'inscrit pas en feuil1.

Le 2ème : dans le formulaire Modif : dans le textbox du GRADE vient s'inscrire le N° APPEL

Pb Validation 2 TextBox [XL-2003]

Macros et VBA Excel

Discussions similaires

Partager

Partager