tester qu'une cellule contient du texte

[viniboy]

Bonjour à toutes et à tous et merci d'avance pour votre précieuse aide,

Je cherche avant de commencer mon programme a vérifier que chacune des cellules A1:A6 contiennnent du texte.

J'ai une boucle

dim coucou as range
for each coucou in range(A1:A6)...

ou
dim coucou as cell selon ce qui vous parait le plus adapté.

Comment tester que le contenu de coucou est du texte?

Merci à tous,
Cordialement,
Vincent

 

[Sylvie]

Bonjour Viniboy,

La fonction Len(Chainedecaractères) te renvoie 0, si l'argument n'est pas une chainde de caractères (par ex une valeur numérique)

essaie ceci
If Len(Range(A1:A6)=0 Then ...

ca devrait marcher..enfin j'espère !

Bonne journée

 

[Sylvie]

Bonjour Viniboy,

Message édité par: sylvie40, à: 26/07/2005 13:23

 

[Sylvie]

Re bonjour Viniboy

j'ai légèrement manqué de rigueur sur ce coup là : Cà m'apprendra !
mais je fais mes gammes alors tu ne m'en voudras pas trop j'espère whistle:
Alors vite je me corrige avant d'être montrée du doigt !

Dim Cell As Range
For Each Cell In Range('A1:A6')
If Len(Cell) = 0 Then....

(je n'avais pas écrit correctement la plage de cellules 'A1:A6')

Bonne journée

 

[viniboy]

Bonjour Sylvie et merci beaucoup,

Entre temps, j'ai trouvé 'la fonction' qui teste cela:

Donc si d'autres personnes ont besoin la syntaxe est:

WorksheetFunction.IsText(offset_test_cellules.Value)

(avec offset_test_cellules un objet range par exemple) .

Bonne journée,
Vincent