[VBA Excel] Ajout info

edi -  
 edi -
Bonjour,

Je commence à comprendre un peu vba mais j'ai un point sur lequel je bloque.

Je souhaite :
1 - Sélectionner la colonne D
2 - Vérifier si l'info dans chaque cellule de la colonne D est un nombre ou du texte c'est à dire 1234 ou '1234
3- Si c'est un nombre, je souhaite le passer en format texte en rajoutant l'apostrophe.

Quelqu'un aurait il une idée ?
Merci d'avance.
ed
A voir également:

1 réponse

Réponse 1 / 1
onesdf Messages postés 375 Date d'inscription   Statut Membre Dernière intervention   120
 
Salut 
Sub TresFacile()
    For Each Cellule In Columns("D").Cells
        If IsNumeric(Cellule.Value) And Not (IsEmpty(Cellule)) Then Cellule.Value = "'" & Cellule.Value
    Next
End Sub
0
edi
 
Sub MerciBeaucoup()
onesdf("Message").Select
If Macro TresFacile() = True Then "Merci Beaucoup onesdf"
End Sub


Ca marche au poil et c'est clair, precis, net.
Encore merci.
ed
0

Discussions similaires

Qui sont les personnes dans mon ajout rapide de Snapchat ?
lobino68 -
m_manolo25 -

21 réponses
Comment savoir comment on nous a ajouté sur Snap
Laura -
Lob6 -

15 réponses
Pourquoi des inconnus bizarres m'ajoutent sur snap ?
FrelX_ -
Leo -

1 réponse