Discussion :

[vaness.def]

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.

[Patrice740]

Bonjour,

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vaness.def]

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

[Patrice740]

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)