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

1 réponse

  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
    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
      0

Discussions similaires

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

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

1 réponse