Bonjour,
J'ai réussi à copier coller l'objet (bouton) sur la nouvel feuille qui apparait dès que j'execute le code (en copiant collant des ranges), par contre étant donnée que c'est un objet c'est peux etre plus propre d'utiliser autre chose que des "range" pour copier coller ce bouton,
pourriez vous donc me dire que faut il utiliser à la place d'un range svp
Voici mon code actuel
je vous joints mon fichier excel dont le code fonctionne bien mais avec des "range"
merci
J'ai réussi à copier coller l'objet (bouton) sur la nouvel feuille qui apparait dès que j'execute le code (en copiant collant des ranges), par contre étant donnée que c'est un objet c'est peux etre plus propre d'utiliser autre chose que des "range" pour copier coller ce bouton,
pourriez vous donc me dire que faut il utiliser à la place d'un range svp
Voici mon code actuel
Code:
Sub Recup()
Dim plage As Range
Dim NomFeuille As String
Dim feuilleinitiale As String
Dim plage_a_copier As Range
Dim objet_a_copier As Range
feuilleinitiale = CStr(Val(ActiveSheet.Name))
With Worksheets("mensuel")
NomFeuille = CStr(Val(ActiveSheet.Name) + 1)
Set objet_a_copier = ActiveSheet.Range("Q9:T14")
Sheets.Add Before:=Sheets("mensuel") 'créer un nouvel onglet qui se placera juste avant l'onglet "mensuel"
ActiveSheet.Name = NomFeuille
With Worksheets(NomFeuille)
objet_a_copier.Copy ActiveSheet.Range("Q9")
End With
End With
End Sub
je vous joints mon fichier excel dont le code fonctionne bien mais avec des "range"
merci