Discussion :

[KTMARC]

Salut chers tous
J'ai une plage de cellules D8:D20 que je renseigne avec des chiffres
Je voudrais à l'aide d'une macro insérer devant chaque chiffre le signe =
J'ai essayé avec mes maigres connaissances de concocter cette macro et il semble manquer quelque chose mais je ne sais quoi.

Code :

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

1
2
3
4
Dim cel As Range
For Each cel In Range("D8:D20")
cel.FormulaR1C1 = "= cel.Value"
Next cel

[ARTURO83]

Bonjour,

Si j'ai bien compris

Code :

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

1
2
3
    For Each cel In Range("D8:D20")
        cel = "'=" & cel
    Next cel

Cdlt

[KTMARC]

Bonjour,

Si j'ai bien compris

Code :

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

1
2
3
    For Each cel In Range("D8:D20")
        cel = "'=" & cel
    Next cel

Cdlt

MERCI

[Philippe Tulliez]

Bonjour,
Je profite de cette discussion pour rappeler que l'apostrophe que l'on place devant une valeur numérique pour forcer celle-ci à être considérée comme du texte n'est pas considérée comme une valeur dans la cellule.

Il n'y a donc pas de possibilité de faire un Rechercher/Remplacer de ' par rien par exemple ni de vérifier si le premier caractère de gauche de la cellule est égal à l'apostrophe car en effet l'apostrophe dans ce cas précis est considéré comme un caractère préfixé

Si on souhaitait faire en sorte que des nombres précédés par ce préfixe redeviennent des nombres on utilisera en VBA la propriété PrefixCharacter de l'objet Range
Code pour rétablir les nombres alphanumériques comme de valeurs nnumériques

Code :

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

1
2
3
4
5
6
7
8
9
Dim Cel as range
For Each cel In Range("D8:D20")
  With cel
     If .PrefixCharacter = "'" Then
        .Value = .Value
     End If
  End With
Next
End Sub

J'ai voulu évoquer cette propriété parce-qu'il existe un autre façon de faire (comme le code ci-dessous) qui consiste à multiplier la valeur contenue dans la cellule texte par 1.
Cependant pas dans ce cas de figure où la valeur est précédée par le signe d'égalité.

Code :

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

1
2
3
4
5
6
Dim cel As Range
For Each cel In Range("F8:F20")
  With cel
   .Value = .Value * 1
  End With
Next

[Patrice740]

Bonjour Philippe,

Il y a un moyen tout simple pour supprimer l’apostrophe en préfixe (et qui conserve les formules) :

Code :

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

1
2
3
4
5
6
Dim cel As Range
For Each cel In Range("A1:A10")
  With cel
   .Formula = .Formula
  End With
Next

[Philippe Tulliez]

Bonjour Patrice,

Il y a un moyen tout simple pour supprimer l’apostrophe en préfixe (et qui conserve les formules)

Le but de mon intervention était de faire remarquer que l'apostrophe n'était pas un caractère traitable comme une chaîne de caractères mais je suis tout à fait d'accord avec toi.

On peut également utiliser la procédure ci-dessous si l'on souhaite ne conserver que le résultat de la formule

Code :

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

1
2
3
4
5
6
Dim cel As Range
For Each cel In Range("A1:A10")
  With cel
   .Value = .Formula
  End With
Next

J'utilise d'ailleurs cette instruction en lieu et place du Copier/Collage Special -Valeur