[VBA Excel] Ajout info

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
Configuration: Windows XP
Firefox 2.0.0.14

1 réponse

  1. onesdf
    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
    1. 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

Discussions similaires

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

21 réponses