Modification valeur cellule et enregistrement fiche

Bonjour tout le monde,

Je suis quelque peu novice dans les macros et je vais expliqué le soucis que je rencontre.

J'ai fait des fiches dans lesquelles dès que je renseigne le nom et prénom, l'adresse et le numéro de téléphone apparaissent automatiquement. J'ai mis une macro me permettant d'effacer la formule et qu'il ne reste que la valeur trouvée dans la cellule.

J'ai une autre marco me permettant d'enregistrer la fiche avec le nom du client et du type de fiche et en supprimant toutes les macros.

J'aimerai pouvoir rassemblée ces 2 marcos en 1 seule afin de ne mettre qu'un seul bouton sur mon document et c'est là que je bloque je n'y arrive pas du tout.

Ci-dessous les vba que j'ai fait :

Pour le remplacement de la formule par la valeur :

Sub DONNEES()

Range("c6") = Range("c6")

Range("f6") = Range("f6")

Range("g6") = Range("g6")

Range("c8") = Range("c8")

Range("f8") = Range("f8")

Range("c10") = Range("c10")

Range("f10") = Range("f10")

End Sub

Pour l'enregistrement et la suppression des vba :

Sub CopierFeuille()

Application.EnableEvents = False

ThisWorkbook.Sheets("fiche materiel").Copy

With ActiveWorkbook

'suppression des boutons

ActiveSheet.Shapes.SelectAll

Selection.Delete

'definition du nom du fichier

NomDeSauvegarde = ActiveWorkbook.Sheets("fiche materiel").Range("b2").Text & "_" & ActiveWorkbook.Sheets("fiche materiel").Range("c4").Text

NomSauve = ActiveWorkbook.Application.GetSaveAsFilename(InitialFileName:=NomDeSauvegarde, _

FileFilter:="Excel Files (*.xlsx), *.xlsx")

If NomSauve = False Then Exit Sub

ActiveWorkbook.SaveAs NomSauve

End With

Application.EnableEvents = True

End Sub

Je joints également le fichier ça sera peut être plus simple.

En remerciant d'avance ceux qui pourront m'aider

Juju17

Bonjour,

Je ne comprends pas d'où vient le problème, j'ai copié coller le code de CopierFeuille dans ton code Donnee et j'ai ceci :

Sub DONNEES()
Range("c6") = Range("c6")
Range("f6") = Range("f6")
Range("g6") = Range("g6")
Range("c8") = Range("c8")
Range("f8") = Range("f8")
Range("c10") = Range("c10")
Range("f10") = Range("f10")

Application.EnableEvents = False
ThisWorkbook.Sheets("fiche materiel").Copy
With ActiveWorkbook
'suppression des boutons
ActiveSheet.Shapes.SelectAll
Selection.Delete

'definition du nom du fichier
NomDeSauvegarde = ActiveWorkbook.Sheets("fiche materiel").Range("b2").Text & "_" & ActiveWorkbook.Sheets("fiche materiel").Range("c4").Text

NomSauve = ActiveWorkbook.Application.GetSaveAsFilename(InitialFileName:=NomDeSauvegarde, _
FileFilter:="Excel Files (*.xlsx), *.xlsx")
If NomSauve = False Then Exit Sub

ActiveWorkbook.SaveAs NomSauve

End With
Application.EnableEvents = True
End Sub

Qui marche parfaitement puisque qu'il me propose d'enregistrer le fichier...

Où est le problème donc?

Au passage tu as au moins 6 modules qui sont vides... Et 4... Quantité non justifiée vu la taille des différentes procédures qu'ils contiennent...

Je viens de comprendre où était mon erreur. Je mérite des coups sur la tête

Désolé pour vous avoir fait perdre votre temps.

Je ferai plus attention la prochaine fois.