Bonjour,
Je voudrais attribuer une macro à chaque bouton identique de plusieurs onglets (3 pour l'exemple). Le copiage du code s’effectue correctement avec la copie de l’onglet mais le bouton ne pointe plus vers le code, il s'agit des deux lignes '''attribution bouton <-> macro'' qui ne convienne pas.
Je voudrais attribuer une macro à chaque bouton identique de plusieurs onglets (3 pour l'exemple). Le copiage du code s’effectue correctement avec la copie de l’onglet mais le bouton ne pointe plus vers le code, il s'agit des deux lignes '''attribution bouton <-> macro'' qui ne convienne pas.
VB:
Sub CommandButton1_Click()
nbonglet = 3
With CommandButton1
If CommandButton1.Value = False Then
Chm = "C:\Users\Poste1\Desktop\"
Workbooks.Add
ActiveWorkbook.SaveAs Filename:=Chm & of & ".xlsx", _
FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False
Workbooks("Fichier_origine").Sheets("Onglet_1").Copy After:=Workbooks(of).Sheets(2)
Workbooks("Fichier_origine").Sheets("Onglet_2").Copy After:=Workbooks(of).Sheets(3)
For i = 1 To nbonglet
Sheets("Onglet_2").Copy After:=Sheets(Sheets.Count) 'copie de l'onglet 2 en x onglets
ActiveSheet.Name = "" & (i)
ActiveSheet.Shapes("Button 1").Select 'attribution bouton <-> macro
Selection.OnAction = "Feuil6.okbutton" 'attribution bouton <-> macro
Next i
End If
Application.DisplayAlerts = False
Sheets("Onglet_2").Delete 'supprime l'onglet "Tableau de suivi"
Sheets("Feuil1").Delete 'supprime onglet 1
Sheets("Feuil2").Delete 'supprime onglet 2
Sheets("Feuil3").Delete 'supprime onglet 3
Application.DisplayAlerts = True
Sheets("1").Select
ActiveWorkbook.Save
Windows("Fichier_origine").Activate
ActiveWorkbook.Close
Unload Me 'sortie userform
End With
End Sub
Dernière édition: