Probléme VBA avec userform

Version imprimable

30/12/2013, 02h26
jeremV

1 pièce(s) jointe(s)

Probléme VBA avec userform

Bonjour, merci d'avance pour votre aide. j'ai un petit problème je désire faire quelque modification sur mon excel en macro VBA mais impossible. Je desire faire un outil pour mes collègues alors par action en cliquant sur "
point du jour CIF's" vous intéresserez sur une boite de dialogue et c la mon problème:

Je désire :

1/mettre toute les valeurs dans chaque colonne approprié, et en mettre d'autre qui se mettent
à la suite (actuellement il ne fait que la ligne complète 7, que les zone de liste et zones de texte soient vide a chaque remise d'un point suivant.

De plus, j'ai des bugs sur ma liste deroulante quand je veux choisir certaine personne celà ne veut pas :/

2/ une condition qui dit dans le userform "point du jour" que si tout n'est pas rempli comprenant les priorité
--> un message d'erreur s'affiche sinon si tout es rempli quitter sans mettre de message ( actuellement le message se met tout le temps :/)

3/ que le userform nommée lecture du point permet d’être double cliquer dans la colonne 6 sachant que la condition
est d'avoir une valeur en 1, et que chaque élément coché se mettent dans la cellule 7 de chaque ligne.

Je vous remercie d'avance pour votre aide qui va mettre précieuse.

Bonjour,

Ton premier problème doit se régler comme suit :
Code:

1 2 3 4 5 6 7 8 With Sheets("Tableau de bord") lig = .[A65536].End(xlUp).Row + 1 .Range("A" & lig).Value = CB1.Value .Range("B" & lig).Value = TB1.Value .Range("C" & lig).Value = TB2.Value .Range("E" & lig).Value = CB2.Value End With
Citation:

De plus, j'ai des bugs sur ma liste deroulante quand je veux choisir certaine personne celà ne veut pas :/

Donne un exemple précis.

31/12/2013, 01h03
jeremV

1 pièce(s) jointe(s)

Bonjour merci Daniel tout d'abord d'avoir pris en compte ma demande.

Alors j'ai fait la modification que tu m'as demandé mais ça ne fonctionne pas je te laisse le fichier que je viens de modifier. :/

Alors en fait quand je mets le nom de l'emmetteur ou installation, je clique et ça me mets autre chose que ce que je clique exemple : je demande autre il me mets ECS etc :/
31/12/2013, 11h09
Daniel.C

Bonjour,

Citation:

Alors j'ai fait la modification que tu m'as demandé mais ça ne fonctionne pas je te laisse le fichier que je viens de modifier. :/

Qu'est-ce qui ne fonctionne pas ? Tu écris toujours sur la ligne 7 ?
31/12/2013, 11h12
jeremV

Bonjour, en fait rien ne se mets dans les collones où j'ai paramètré les valeurs.
31/12/2013, 12h14
Daniel.C

Qu'est-ce que tu as paramétré ? Dis-moi précisément ce que tu saisis dans l'userform ? Tu es sûr de ne rien récupérer sur la feuille ?

non j'ai fait la modif que tu m'as dit et rien ne se met, d'ailleurs j'ai oublié de te le dire, l'incrémentation doit se faire a partir de la ligne 7.

Code:

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
46
47
48
49
Private Sub CB1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CB1.Clear
    CB1.AddItem "Production d'air"
    CB1.AddItem "E.C.S."
    CB1.AddItem "Refroidissement"
    CB1.AddItem "Make-Up"
    CB1.AddItem "Chaufferie"
    CB1.AddItem "Autres"
End Sub
 
Private Sub CB2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    CB2.Clear
    CB2.AddItem "F....."
    CB2.AddItem "J.-C......"
    CB2.AddItem "F.D....."
    CB2.AddItem "O.D......."
    CB2.AddItem "S.Bal....."
End Sub
 
 
Private Sub CommandButton1_Click()
If Forte1 Or Moyenne2 Or Faible3 Then
  With Sheets("Tableau de bord")
    lig = .[A65536].End(xlUp).Row + 1
    .Range("A" & lig).Value = CB1.Value
    .Range("B" & lig).Value = TB1.Value
    .Range("C" & lig).Value = TB2.Value
    .Range("E" & lig).Value = CB2.Value
 
  End With
  End If
 
If Forte1 Or Moyenne2 Or Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
     End If
  If Forte1 Or Moyenne2 Or Faible3 = True & TB1 = True Then
    PointDuJour.Hide
 
    End If
 
 
 
End Sub
 
Private Sub CommandButton2_Click()
 
'annulé
PointDuJour.Hide
End Sub

31/12/2013, 15h14
Daniel.C

1 pièce(s) jointe(s)

J'ai saisi deux lignes. Dis-moi ce qui ne fonctionne pas.
31/12/2013, 15h20
jeremV

1 pièce(s) jointe(s)

je t'ai mis un imprime ecran, en gros je commente toute les cellules, je mets par exemple la priorité moyenne ou fort ou faible , il m'affiche ma message box alors qu'il devrait pas puisque ma priorité est coché, une fois je fais "ok" sur le message , il affiche rien dans mes cellulles :/ . alors que ce que je veux c'est comme toi tu as réussi c'est bisard .
31/12/2013, 15h37
Daniel.C

OK; je verrai le problème du message l'an prochain. Je choisis une valeur dans les deux comboboxes, je mets un texte dans les deux textboxes et j'appuie sur le bouton. Et ça écrit sur la feuille.
Bonnes fêtes.
31/12/2013, 15h40
jeremV

Mince alors tout en ayant le message d'erreur ? merci de votre aide en tout cas . bonne fête a vous aussi .

Bonjour et bonne annéée,

Essaie comme ça, ça doit être à peu près ce que tu veux.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
If Forte1 Or Moyenne2 Or Faible3 Then
  With Sheets("Tableau de bord")
    lig = .[A65536].End(xlUp).Row + 1
    .Range("A" & lig).Value = CB1.Value
    .Range("B" & lig).Value = TB1.Value
    .Range("C" & lig).Value = TB2.Value
    .Range("E" & lig).Value = CB2.Value
 
  End With
  End If
 
If Forte1 = False And Moyenne2 = False And Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
End If
If (Forte1 = True Or Moyenne2 = True Or Faible3 = True) And TB1 = True Then
    PointDuJour.Hide
 
End If
 
End Sub

01/01/2014, 15h45
jeremV

1 pièce(s) jointe(s)

Une très bonne année à vous aussi j'espere quelle sera meilleur malgrè le pouvoir de notre président... vive les taxe :D

J'ai toujours le meme probleme sauf que la il ne veux pas du tout me fermer ma fenetre :/ je vous laisse verifier de vous meme dans ma piece jointe. Vous travaillez sur qu'elle excel ?
01/01/2014, 19h24
Daniel.C

1 pièce(s) jointe(s)

Autant pour moi. Regarde le classeur joint. Dis-moi ce qui ne va pas, éventuellement.
01/01/2014, 19h29
jeremV

ça marche impeccable mercii !!! il venait d'ou le probleme svp ? par contre lorsque je valide il ne se ferme pas alors qu'il devrait :/.
01/01/2014, 21h43
Daniel.C

Il y en avait deux, en fait. Le premier, que je ne m'explique pas est que le calcul de la ligne où écrire les données donne 6 la première fois, et ce sont des cellules fusionnées. Le second est que j'écrivais les données avant de tester s'il y avait ou non lieu à afficher un message.
02/01/2014, 21h51
jeremV

ah je comprend mieux encore merci par contre j'arrive pas c'est a mettre par exemple lorsque la priorité est forte ou moyenne ou faible de mettre cette valeur dans la case approprié du style si c'est fort c'est ecris fort etc.

Par contre je comprend pas il devrait fermer une fois que tout est rempli mais il se ferme pas :/

j'ai essayé de relire le VBA mais toujours le meme blocage :/

Apparemment le classeur posté a été supprimé. Le code est le suivant :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Private Sub CommandButton1_Click()
If Forte1 = False And Moyenne2 = False And Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
    Exit Sub
End If
If Forte1 Or Moyenne2 Or Faible3 Then
  With Sheets("Tableau de bord")
    lig = .[A65536].End(xlUp).Row + 1
    If lig = 6 Then lig = 7
    .Range("A" & lig).Value = CB1.Value
    .Range("B" & lig).Value = TB1.Value
    .Range("C" & lig).Value = TB2.Value
    .Range("E" & lig).Value = CB2.Value
    If Me.Forte1 = True Then .Range("D" & lig).Value = "Forte"
    If Me.Moyenne2 = True Then .Range("D" & lig).Value = "Moyenne"
    If Me.Faible3 = True Then .Range("D" & lig).Value = "Faible"
  End With
End If
PointDuJour.Hide
End Sub

02/01/2014, 22h46
jeremV

c'est juste génial merci !!!!!!! ça marche à merveille petite question vous avez deja eu ce genre de bug dans les listes deroulantes qui vous affiche une autre personne au lieu de celle que vous voulez ? car j'ai ce probleme là c'est bisard c'est la premiere fois que j'ai ça.

j'ai oublié de vous demandé pourquoi ce "me. ..." pour ma comprehension svp ^^
03/01/2014, 10h24
Daniel.C

Dis sur quelle personne tu cliques et laquelle est recopiée sur la feuille.
04/01/2014, 00h39
jeremV

par exemple je lui demande chaufferie ou make up ou refroidissement ou ECS il me mets soit production d'air ou autre , en gros il me met rien sur " point du jour" --> installation la demande que je veut ( quand je parle rien me mettre ce que je mets je ne parle pas de remplissage du tableau mais c'est sur le combobox CB1 et CB2 le probleme meme avec les emmeteur du message c'est pareil

Ce sont les macros "CB1_MouseDown" et "CB2_MouseDown" qui provoquent ce cas. Je les ai supprimées et j'ai reporté le code dans la macro "UserForm_Activate". Remplace les macros de l'userform par :

Code:

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
Private Sub CommandButton1_Click()
If Forte1 = False And Moyenne2 = False And Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
    Exit Sub
End If
If Forte1 Or Moyenne2 Or Faible3 Then
  With Sheets("Tableau de bord")
    lig = .[A65536].End(xlUp).Row + 1
    If lig = 6 Then lig = 7
    .Range("A" & lig).Value = CB1.Value
    .Range("B" & lig).Value = TB1.Value
    .Range("C" & lig).Value = TB2.Value
    .Range("E" & lig).Value = CB2.Value
    If Me.Forte1 = True Then .Range("D" & lig).Value = "Forte"
    If Me.Moyenne2 = True Then .Range("D" & lig).Value = "Moyenne"
    If Me.Faible3 = True Then .Range("D" & lig).Value = "Faible"
  End With
End If
PointDuJour.Hide
End Sub
 
Private Sub CommandButton2_Click()
 
'annulé
PointDuJour.Hide
End Sub
 
Private Sub UserForm_Activate()
    CB1.Clear
    CB1.AddItem "Production d'air"
    CB1.AddItem "E.C.S."
    CB1.AddItem "Refroidissement"
    CB1.AddItem "Make-Up"
    CB1.AddItem "Chaufferie"
    CB1.AddItem "Autres"
    CB2.Clear
    CB2.AddItem "F....."
    CB2.AddItem "J.-C......"
    CB2.AddItem "F.D....."
    CB2.AddItem "O.D......."
    CB2.AddItem "S.Bal....."
End Sub

04/01/2014, 13h07
jeremV

Bonjour, Impeccable merci !!! ça marche a merveille. Par contre, sait-on :

- Limité une case à une certaine valeur par exemple limité uniquement à ce qu'il y a dans la combobox1 (installation) donc impossible d'écrire autre chose et CB2.

- Limité la quantité de caractère d'une cellule et rendre la cellule fixe non modifiable en fonction de des par exemple 200 caractère possible. par exemple collone probleme et solution
04/01/2014, 13h18
Daniel.C

Je ne suis pas sûr de comprendre; peux-tu donner des exemples pour le 1. Pour le nombre de caractères, il est possible de le limiter dans le textbox, donc sur la feuille si c'est ce que tu veux.
05/01/2014, 12h33
jeremV

Par exemple la premiere collone je peux pas ecrire dedans manuellement. et d'ailleurs quand je selectionne make up je peux rien modifier dans cette case comme ré-ecrire autre chose et je voudrais le faire dans les deux combo box comme ça le fichier est bien verouiller.

oui en fait je voudrais verouiller pour les case où l'on peu mettre des commentaire du genre par exemple 50 caractére pour le probleme et la solution ^^ et une fois arrivé a ces 50 caractére il ne puisse plus ecrire et envoi un message "50 caractére max." ;

Enopcre merci pour votre aide mon projet avance grace a vous !

Mets cette macro dans le module "ThisWorkbook"; ta feuille est ainsi protégée contre les saisies directes. Seules les modifications apportées par macro sont autorisées (remplace "toto" par le mot de passe de ton choix).
Code:

1 2 3 Private Sub Workbook_Open() Sheets("Tableau de bord").Protect Password:="toto", userinterfaceonly:=True End Sub
Ajoute ces deux macros dans le module de l'userform pour contrôler le nombre de caractères saisi dans les textboxes.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub TB1_Change() If Len(Me.TB1) > 50 Then MsgBox "50 caractére max." TB1.Text = Left(TB1.Text, 50) End If End Sub Private Sub TB2_Change() If Len(Me.TB2) > 50 Then MsgBox "50 caractére max." TB2.Text = Left(TB2.Text, 50) End If End Sub

05/01/2014, 14h52
jeremV

Juste impeccable merci :) ça fonctionne à merveille ^^ par contre sur les CB1 et CB2 je peux arrêté le mode modification ? afin d’éviter qu'on écrive dedans :/

Bonjour,
pour info ça fonctionne également:

Code:

1
2
3
4
5
6
7
If Forte1 + Moyenne2 + Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
     End If
  If Forte1 + Moyenne2 + Faible3 = True Then
    PointDuJour.Hide
 
    End If

Code:

1
2
3
4
5
6
If Forte1 + Moyenne2 + Faible3 = False Then
    MsgBox "Veuillez mettre le niveau de prise en compte de ce point", vbCritical
else
    PointDuJour.Hide
 
    End If

05/01/2014, 15h14
jeremV

Bonjour rdurupt, tout d'abord merci et heureuse année a vous ;).

Je vous remercie je vais pouvoir alléger un peu la macro :)
05/01/2014, 22h11
jeremV

par contre sur les CB1 et CB2 je peux arrêté le mode modification ? afin d’éviter qu'on écrive dedans :/

Et je voudrais pouvoir cliquer dans la case recepteur et pouvoir afficher le deuxieme userform mais le probleme actuelle c'est qu'il s'affiche en cliquant sur toute les case :/
06/01/2014, 10h19
Daniel.C
Bonjour,

Citation:

par contre sur les CB1 et CB2 je peux arrêté le mode modification ? afin d’éviter qu'on écrive dedans :/

Mets la propriété "Locked" à "True".

Pour limiter le champ de la macro affichent le userform :
Code:

1 2 3 4 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Cancel = True If Target.Column = 6 And Target.Row > 6 Then LecturePoint.Show End Sub
06/01/2014, 11h08
jeremV

Bonjour, j''ai essayé la fonction "lock = true" mais le probleme c'est qu'il bloque carrément ma liste et donc je ne peux plus accédé, mais ce que je voulais c'est qu'on ne puisse pas ecrire dans CB1 et CB2 :/

ça marche impeccable :) merci :) Par contre est il possible d'avoir par exemple dans chaque ligne lorsque je click dans la collone 6 que les valeurs coché soient garder en fonction de chaque ligne ( par rapport a la lecture de l'utilisateur) donc mémorisé les case coché, reporter les valeurs coché ( donc personne mise en la collone 6 d'ou je clique. et d'afficher une condition par exemple si j'ai CheckBox1 à 5 alors j'affiche Lu par tous et dans les fonction conditionnelle je peux faire du textuel si affiché " Lu par tous" alors colorier en vert.
06/01/2014, 12h59
Daniel.C

Oups, la propriété à utiliser est "MatchRequired" positionnée à "True".

Citation:

ça marche impeccable merci Par contre est il possible d'avoir par exemple dans chaque ligne lorsque je click dans la collone 6 que les valeurs coché soient garder en fonction de chaque ligne ( par rapport a la lecture de l'utilisateur) donc mémorisé les case coché, reporter les valeurs coché ( donc personne mise en la collone 6 d'ou je clique. et d'afficher une condition par exemple si j'ai CheckBox1 à 5 alors j'affiche Lu par tous et dans les fonction conditionnelle je peux faire du textuel si affiché " Lu par tous" alors colorier en vert.

C'est difficilement compréhensible, du moins pour moi. Tâche de faire des phrases courtes et de donner des exemples de ce que tu veux.
06/01/2014, 13h54
jeremV

impeccable merci:):).

Désolé :/.

1/ Donc je veux que lorsque userform "Lecturedupoint" est visible, qu'on puisse pouvoir, lorsqu'il y a un ajout d'un point, coché dans cette userform et que ce qui est coché reste visible uniquement pour cette ligne. Ensuite lors d'un ajout d'un point, cette userform 'lecturedupoint' est vierge et l'info de l'autre point toujours visible avec ces cases cochés.

2/ Ensuite que lorsque l'on coche dans userform 'lecturedupoint', la personne coché est renvoyé dans la collone "emmeteur" du point ajouté.
06/01/2014, 15h21
Daniel.C

Ecoute, pour moi, c'est du chinois, les userforms vierges avec des points, ils ne sont plus vierges.
Par ailleurs, on arrive au 35e message pour le même fil. A partir du 30e, je considère qu'il ne s'agit plus d'aide mais de développement pur et simple de ma part.
Je te souhaite bon courage et je répondrai, si je suis disponible, aux questions ponctuelles que tu pourras poser sur le forum.

Fuseau horaire GMT +2. Il est actuellement 05h13.