Macro remplissage auto

Version imprimable

12/01/2019, 16h58
vaness.def

1 pièce(s) jointe(s)

Macro remplissage auto

Bonjour,

J'aurai besoin de votre aide sur une macro.

La macro a pour but de mettre des "=" devant les nombres dans les cellules en couleur. Jusque là tout marche parfaitement, a part que celle-ci ne marche pas pour les nombre à décimal.
Je m'explique: lorsque je saisie 100, 250,... elle marche parfaitement, en revanche lorsque je saisie 150,60 ou 253,75 elle bug.

Petit précision qui a son importance: c'est un fichier protégé dont je ne connais pas le mot de passe.

Pouvez-vous me dire comment la faire fonctionner avec des décimales ?

Merci par avance, cela m'aidera énormément car j'ai plusieurs onglets du même type.

Voici en pièce jointe le fichier.

Bonjour,

Avec :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub sauvegarde_saisie()
    Dim CELLULE As Range
    For Each CELLULE In Range("A2:Z200")
        If CELLULE.Interior.Color = RGB(255, 255, 204) And CELLULE.Value <> "" Then
            CELLULE.Value = CELLULE.Value  ' pour supprimer le =
            CELLULE.Value = "=" & CELLULE.Formula
        End If
    Next CELLULE
End Sub
 
Sub vide()
    Dim CELLULE As Range
    For Each CELLULE In Range("A2:Z200")
        If CELLULE.Interior.Color = RGB(255, 255, 204) Then
            CELLULE.ClearContents
        End If
    Next CELLULE
End Sub

12/01/2019, 17h23
vaness.def

Merci

Bonjour Patrice740,

C'est avec un grand merci que je vais pouvoir utiliser pleinement la macro modifiée.
Petite question sur cette instruction

CELLULE.Value = "=" & CELLULE.Formula
A quoi correspond le .Formula ?

Merci par avance.

Cordialement,
Vanessa
12/01/2019, 17h42
Patrice740

Citation:

Envoyé par vaness.def

Petite question sur cette instruction
CELLULE.Value = "=" & CELLULE.Formula
A quoi correspond le .Formula ?

.Formula correspond à un texte en anglais, qui représente le contenu de la cellule (quand il commence par = (ou + dans certains cas) c'est une formule et sinon il représente la valeur d'une constante)