Créer un bouton VBA

VBA
1

Salut tout le monde.
Je désire effacer toutes les données qui se trouve dans les cases colorées en appuyant sur le bouton " Réinitialiser "
Merci .
CLASSEUR 1.xlsm (754,6 Ko)

1 « J'aime »
2

Bonjour,
Il faut bien préciser car vos entêtes ont aussi de couleur de fond,
Exemple : J15 à M15, pareil pour K58, votre formule.
Une bonne précisions nous aidera bien,

3

Bonjour
Vous avez raison.
Réinitialiser les zones en jaune
CLASSEUR 1.xlsm (754,6 Ko)

4

Bonjour,

Voir cet essai macro dans module 10
CLASSEUR 1.xlsm (736,1 Ko)

Cordialement

1 « J'aime »
5

Merci bc
ça marche !!!

6

Salut.
j’ai 1 petit souci :
quand j’enregistre une facture, je veux enlever les formules tout en gardant les valeurs dans
la colonne « F »
CLASSEUR 1.xlsm (754,2 Ko)
FACTURE 1 (Mr DUBOIS).xlsx (174,4 Ko)

7

Bonsoir,

Tu peux contourner de cette façon pour supprimer les formules
Tu sélectionnes ta plage avec tes formules
Tu fais Ctrl + C (pour copier)
Tu fais un clic droit
Dans le menu qui va apparaître
Tu fais un collage spécial
Tu coches Valeur
OK
et toutes tes formules vont être supprimé tout en laissant les valeurs

Cordialement

1 « J'aime »
8

j’utilise cette méthode.
mais peut on faire cela automatiquement
merci

9

vous pouvez ajouter ces 3 lignes avec « **** » à la macro

Sub enregistrement_facture()
     chemin = Sheets("Paramètres").Range("A2")
     If chemin = "" Then
          chemin = ThisWorkbook.Path
     End If
     If Right(chemin, 1) <> "\" Then
          chemin = chemin & "\"
     End If

     classeur = Workbooks.Add.Name
     ThisWorkbook.Sheets("Facture").Copy Workbooks(classeur).Sheets(1)
     With ActiveSheet.UsedRange     '***********************************************************
          .Value = .Value                   '***********************************************************
     End With                                '************************************************************
     File = Application.GetSaveAsFilename(chemin)
     If File = FAUX Then
          Exit Sub
     Else
          ActiveWorkbook.SaveAs Filename:=File & "xlsx"
          nomfichier = Split(File, "\")(UBound(Split(File, "\")))
          lignerecopie = ThisWorkbook.Sheets("Paramètres").Range("B" & Rows.Count).End(xlUp).Row + 1
          ThisWorkbook.Sheets("Paramètres").Range("B" & lignerecopie) = nomfichier & "xlsx"
          ThisWorkbook.Sheets("Paramètres").Range("C" & lignerecopie) = Split(File, nomfichier)(0)
          ActiveWorkbook.Close (SavesChanges = False)
     End If
End Sub
10

merci pour votre contribution mais je suis nul dans ces manip.
d’ailleurs ce classeur m’a été bidouillé par un autre membre du forum

11

Bonjour,

Il est normal que des membres « bidouillent », car le forum est là pour rendre service et pouvoir aider.

Il est important, ici ou ailleurs sur le net, d’avoir un fichier de travail et non le fichier d’origine.

Votre commentaire peut être malvenu et déplacé, car je ne connais aucun intervenant du forum qui n’aide pas avec passion et plaisir, et surtout bénévolement et sur leur temps libre.

L’objectif est de pouvoir répondre à la demande et non de « bidouiller » :-).

Je vous invite vivement à créer toujours une sauvegarde de votre fichier original pour éviter tout problème avec les réponses et d’avoir des propositions de mise en place encore inconnues pour vous, au point que vous ne sachiez plus comment il fonctionne.

Salutations

12

Ce sujet a été automatiquement fermé après 30 jours. Aucune réponse n’est permise dorénavant.