Bonjour Le Forum,
J'ai un probléme de code.
J'ai un classeur dans lequel via un bouton je souhaiterais faire une copie d'une feuille appelée "Tableau de bord". Je souhaiterais en plus garder la mise en forme mais effacer les formules donc uniquement garder les valeurs.
Private Sub export_Click()
Sheets("tableau_de_bord").Copy
Activesheets.Columns("B:I").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("tableau_de_bord").Select
nom = Range("E13").Value
Sheets("tableau_de_bord").Name = Range("E13").Value
Range("b1").Select
End Sub
Pouvez vous m'aider ?
Merci par avance,
Hugues
J'ai un probléme de code.
J'ai un classeur dans lequel via un bouton je souhaiterais faire une copie d'une feuille appelée "Tableau de bord". Je souhaiterais en plus garder la mise en forme mais effacer les formules donc uniquement garder les valeurs.
Private Sub export_Click()
Sheets("tableau_de_bord").Copy
Activesheets.Columns("B:I").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("tableau_de_bord").Select
nom = Range("E13").Value
Sheets("tableau_de_bord").Name = Range("E13").Value
Range("b1").Select
End Sub
Pouvez vous m'aider ?
Merci par avance,
Hugues