Automatiser une action

Excel
1

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 (753,4 Ko)
FACTURE 1 (Mr DUBOIS).xlsx (174,4 Ko)

2

Bonjour,
Il faut faire une copier coller en valeur.
Cordialement

1 « J'aime »
3

bonjour
est il possible d’automatisé cette action ?
merci

4

Oui une petite macro suffit,

Sub mettre_en_valeur()
Application.ScreenUpdating = False
With Range(Range("F16"), Range("F16").End(xlDown))
        .Copy
        .PasteSpecial (xlPasteValues)
End With
Application.CutCopyMode = False
Range("P5").Select
Application.ScreenUpdating = True
End Sub

Une suggestion
FACTURE 1 (Mr DUBOIS).xlsm (202,2 Ko)
Cordialement

5

c’est dommage ! ça ne fonctionne pas.
quand je suis dans la feuille « STOCK » , j’établis une facture puis j’appuis sur STORE
ainsi une nouvelle facture est enregistrée mais je ne retrouve pas le bouton "mettre en valeur

6

CLASSEUR 1 (3).xlsm (503,5 Ko)

1 « J'aime »
7

en fait je l’ai fais sur la feuille facture mais pas sur Classeur 1

1 « J'aime »
8

bravo à vous
c’est ce que je cherchais
mais vous avez aussi enlevé la formule de la colonne « G » dont j’ai besoin
désolé si je vous dérange !!!

9

CLASSEUR 1 (3).xlsm (506,9 Ko)

1 « J'aime »
10

de mieux en mieux
chapeau !!!
pourquoi les lignes cachées apparaissent ?
Mr X.xlsx (18,2 Ko)

11

CLASSEUR 1 (3).xlsm (508,0 Ko)

1 « J'aime »
12

c’est parfait !!!
merci

1 « J'aime »
13

Bonjour.
je veux utiliser le bouton Réinitialiser pour effacer toute modifications (contenu et format) apportées à la feuille « FACTURE » ;
j’ai peur d’effacé par inadvertance une ligne ou une colonne;
c’est à dire avoir un modèle type
CLASSEUR 2.xlsm (517,1 Ko)

14

c’est quoi ce format, il y a plein de choses qu’on peut faire et qu’on doit réinitialiser après !
Quelque exemples :

Sub EffaceDonnées()
     Dim Supp
     Supp = MsgBox("Voulez-vous éffacer les données du tableau Facture", vbYesNo + vbQuestion + _
                                                                         vbDefaultButton2, "Confirmation de suppression")
     If Supp = vbYes Then
          Application.ScreenUpdating = False
          With Sheets("Facture").Range("E5:G5,F7:G7,C16:E55")
               .ClearContents                'vider
               .Font.ColorIndex = 1          'couleur noir
               .Font.Size = 10               'hauteur 10
               .Font.Bold = False            'no gras
          End With
          MsgBox "Toutes les colonnes vont être résetées."
     End If
End Sub
15

désolé
je n’ai pas réussi !
je ne suis pas vraiment calé dans les Macro

16

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