Probléme VBA avec userform

**jeremV** · 30/12/2013, 02h26

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.

**Daniel.C** · 30/12/2013, 12h12

Bonjour,

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

Code :

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

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

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.

**jeremV** · 31/12/2013, 01h03

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 :/

**Daniel.C** · 31/12/2013, 11h09

Bonjour,

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 ?

**jeremV** · 31/12/2013, 11h12

Bonjour, en fait rien ne se mets dans les collones où j'ai paramètré les valeurs.

**Daniel.C** · 31/12/2013, 12h14

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 ?

**jeremV** · 31/12/2013, 14h45

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 :

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

**Daniel.C** · 31/12/2013, 15h14

J'ai saisi deux lignes. Dis-moi ce qui ne fonctionne pas.

**jeremV** · 31/12/2013, 15h20

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 .

**Daniel.C** · 31/12/2013, 15h37

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.

**jeremV** · 31/12/2013, 15h40

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

**Daniel.C** · 01/01/2014, 15h32

Bonjour et bonne annéée,

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

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

**jeremV** · 01/01/2014, 15h45

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

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 ?

**Daniel.C** · 01/01/2014, 19h24

Autant pour moi. Regarde le classeur joint. Dis-moi ce qui ne va pas, éventuellement.

**jeremV** · 01/01/2014, 19h29

ç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 :/.

**Daniel.C** · 01/01/2014, 21h43

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.

**jeremV** · 02/01/2014, 21h51

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 :/

**Daniel.C** · 02/01/2014, 22h37

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

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

**jeremV** · 02/01/2014, 22h46

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 ^^

**Daniel.C** · 03/01/2014, 10h24

Dis sur quelle personne tu cliques et laquelle est recopiée sur la feuille.

Probléme VBA avec userform [XL-2010]

Macros et VBA Excel

Discussions similaires

Partager

Partager