pb sur le lancement de la macro depuis excel

Version imprimable

19/09/2006, 19h03
chti'me

pb sur le lancement de la macro depuis excel

bonsoir à tous

une petite question simple pour les connaisseurs : mais pas évident pour le débutant que je suis.

sur une feuille excel j'ai plaçé plusieurs boutons numérotés 1, 2 etc...... quand je clique sur un je lance un userform, comment faire pour lorsque je clique sur 2 j'ouvre un second userform dans la même macro.

Merci d'avance
19/09/2006, 23h09
Muse31

Bonjour,

Pour chaque bouton, tu appelles un UserForm et dans chaque UserForm, tu auras le code associé.
Bon courage

bonjour

voici une possiblité parmi d'autres

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Test()
    Dim i As Integer
    '
    '...
    '
    '
    i = 2 'valeur renvoyée par le bouton de lancement ...
 
    'Ouvre l'UserForm nommé "UserForm2
    VBA.UserForms.Add("UserForm" & i).Show
End Sub

michel

20/09/2006, 07h13
chti'me

merci à tous les deux :lol:
20/09/2006, 07h42
chti'me

Re bonjour

je vous avouerai que j'ai des problèmes de compréhension et de mises en oeuvre.
Quand je fais un clic droit sur le 1er bouton (situé sur la feuille excel), on lui affecte une macro qui démarre donc l'userform1.
Par contre pour le deuxième bouton l'userform2 ne s'ouvre toujours pas ????????

Mille excuses mais quand on débute, ça rame sec
20/09/2006, 08h03
SilkyRoad

Qu'est ce que tu as écrit dans ta procédure pour commander l'ouverture du UserForm?

michel

bonsoir SilkyRoad

je t'ai joint le programme que je commence à développer
Un grand merci pour ton aide

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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
Private Sub UserForm_Initialize()
    With Me.ComboBox1
            ComboBox1.AddItem "CAB"
            ComboBox1.AddItem "CBA"
            ComboBox1.AddItem "AB"
            ComboBox1.AddItem "CB"
            ComboBox1.AddItem "LAB"
            ComboBox1.AddItem "MAB"
            ComboBox1.AddItem "CAE"
            ComboBox1.AddItem "AE"
            ComboBox1.AddItem "DD"
            ComboBox1.AddItem "BA"
     End With
 
End Sub
Private Sub CommandButton1_Click()
     If Not IsNumeric(TextBox1.Text) Then
          MsgBox "Vous devez entrer une valeur numérique dans ce champ."
          TextBox1.Text = ""
          TextBox1.SetFocus
          Exit Sub
      End If
     If Not IsNumeric(TextBox2.Text) Then
          MsgBox "Vous devez entrer une valeur numérique dans ce champ."
          TextBox2.Text = ""
          TextBox2.SetFocus
          Exit Sub
      End If
     If Not IsNumeric(TextBox4.Text) Then
          MsgBox "Vous devez entrer une valeur numérique dans ce champ."
          TextBox4.Text = ""
          TextBox4.SetFocus
          Exit Sub
      End If
     If Not IsNumeric(TextBox5.Text) Then
          MsgBox "Vous devez entrer une valeur numérique dans ce champ."
          TextBox5.Text = ""
          TextBox5.SetFocus
          Exit Sub
      End If
     Userform1.Hide
 
    Dim L As Integer
L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1
Sheets("Feuil1").Range("a" & L) = TextBox1.Value
Sheets("Feuil1").Range("b" & L) = TextBox2.Value
Sheets("Feuil1").Range("c" & L) = ComboBox1.Value
Sheets("Feuil1").Range("d" & L) = TextBox5.Value
Sheets("Feuil1").Range("g" & L) = TextBox4.Value
 
 
    Unload Userform1
 
End Sub
 
Private Sub CommandButton3_Click()
Dim L As Integer
Dim r As Range
L = Sheets("Feuil1").Range("a65536").End(xlUp).Row + 1
Set r = Sheets("Feuil1").Range("a2:a" & L).Find(TextBox1)
If r Is Nothing Then
MsgBox ("OF Introuvable")
Else
TextBox1.Value = r
TextBox2.Value = r.Offset(0, 1)
ComboBox1.Value = r.Offset(0, 2)
TextBox4.Value = r.Offset(0, 6)
TextBox5.Value = r.Offset(0, 3)
End If
End Sub
 
 
Private Sub CommandButton2_Click()
Unload Userform1
End Sub