Discussion :

[cbredeche]

bonjour
a chaque validation d'un userform je cree un bouton
"code de création de bouton"

Code :

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

1
2
3
4
5
6
7
Sub CreationBouton()
    For i = 9 To Sheets("TABLEAU RECAP").Range("B65536").End(xlUp).Row
        Sheets("TABLEAU RECAP").Buttons.Add(Range("T" & i).Left, Range("T" & i).Top, Range("T" & i).Width * 1, Range("T" & i).Height).Select
        Selection.Characters.Text = "VALIDATION"
        Selection.OnAction = "'appelvalid " & i & " '"
    Next
End Sub

cela sa marche ,a cela dès que je clique sur le bouton crée dans le "tableau recap" mon userform3 ne ouvre pas mon code est le suivant

Code :

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

1
2
3
Sub appelvalid()
    UserForm3.Show
End Sub

trouvez ci dessous le code de mon userform3

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
Private Sub CommandButton1_Click()
 
Dim L1 As Integer
Dim ds As Worksheet
 
'protection feuille
Dim cell As Range
 
Worksheets("TABLEAU RECAP").Unprotect ("cedric")
 
 
With ThisWorkbook.Worksheets("TABLEAU RECAP")
 L1 = .Cells(.Rows.Count, 2).End(xlUp).Row + 0
 
 
     .Range("U" & L1).Value = ComboBox1 'NON DU RESPONSABLE'
 
 
 
  Worksheets("TABLEAU RECAP").Protect ("cedric"), DrawingObjects:=True, Contents:=True, Scenarios:=True, UserInterfaceOnly:=True
 End With
End Sub

pouvez vous m'aidez

[Jean-Philippe André]

Salut

tu ne rattaches pas "appelvalid" mais "appelvalid 1 ", "appelvalid 2 "

Code :

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

Selection.OnAction = "'appelvalid " & i & " '"

si tu supprimes le & i & " ", tu pointeras deja sur le bon nom

[cbredeche]

j ai fais ce que vous m'avez dis cela ne marche pas

[cbredeche]

c est bon j ai laisser

Code :

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

Selection.OnAction = "appelvalid"

merci encore

[Jean-Philippe André]

Ce code fonctionne bien chez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub CreationBouton()
    For i = 9 To 12
        ActiveSheet.Buttons.Add(Range("B" & i).Left, Range("B" & i).Top, Range("B" & i).Width * 1, Range("B" & i).Height).Select
        Selection.Characters.Text = "VALIDATION"
        Selection.OnAction = "appelvalid"
    Next
End Sub
Sub appelvalid()
    UserForm1.Show
End Sub

Donc verifie que le OnAction est le bon (le reste de ton code ne changeant pas).

[cbredeche]

merci