[VBA Excel] Ajout info

Fermé

edi - 13 juin 2008 à 15:04
edi - 13 juin 2008 à 15:18

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:

[VBA Excel] Ajout info
Liste déroulante excel - Guide
Si et excel - Guide
Aller à la ligne excel - Guide
Crystaldisk info - Télécharger - Informations & Diagnostic
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

onesdf Messages postés 375 Date d'inscription mercredi 21 mai 2008 Statut Membre Dernière intervention 17 octobre 2008 120
13 juin 2008 à 15:08

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

edi
13 juin 2008 à 15:18

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 ?

Comment savoir comment on nous a ajouté sur Snap

Pourquoi des inconnus bizarres m'ajoutent sur snap ?