insérer le guillemet dans cellule si pas vide

[pancaspremium]

bonjour
je suis à la recherche d'un fonction me permettant d'insérer un guillemet ( ' )
que dans la cellule contenant soit des chiffres ou lettres.

Dans mon exemple annexé tout ce qui est dans ligne 2 doit contenir le '.

possible ?? merci à tous pour votre aide

a+

 

[tototiti2008]

Re : insérer le guillemet dans cellule si pas vide

Bonjour,

peut-être avec un code comme ça ?

Sub test()
Dim Cellule As Range
    For Each Cellule In Range("A2:D2")
        If Cellule.Value <> "" Then
        Cellule.Value = "'" & Cellule.Value
        End If
    Next
End Sub

 

[Gorfael]

Re : insérer le guillemet dans cellule si pas vide

Salut pancaspremium et le forum
J'ai pas regardé ton exemple, je pense ton sujet assez descriptif.
Mais comme tu donnes un moyen (mettre ' en ête de la cellule) et pas un but (transformer la cellule en texte, d'après ce que je crois comprendre).
Tu peux directement le faire manuellement :
Clic-droit sur la colonne, la ligne ou la cellule => menu contextuel>>format de cellule
Catégorie : texte
Attention : toute cellule formatée en texte ne contiendra que du texte => elle ne peut plus calculer (si tu mets =, il apparaît) et ne peut servir dans un calcul.
A+

 

[pancaspremium]

Re : insérer le guillemet dans cellule si pas vide

Mes remerciements un peu tardifs.... mais merci à vous 2