Discussion :

[patricktoulon]

re
j'ai adapté celle de marc

[mercatog]

J'ai parlé de ta bêtise en #17

Pour ton adaptation de Marc, pourquoi ta fonction est un variant? Hein? Quelle est la valeur ajoutée?
On continue?


On pollue le sujet, un nettoyage est nécessaire.

Messieurs les modérateurs, excusez

[patricktoulon]

re

string/variant est ce bien grave dans ce cas précis hein!!! sachant qu'un variant peur valoir les trois type de variables
la valeur ajouté :
tu n'a qu'a relire la questions de l'auteur en POST #1

la méthode de Marc adaptée a ma sauce répond exactement a sa demande ( en tout point)

[mercatog]

@Patrick

Sans aller vers la démagogie des sauces, je parlais d'abord de ce "code"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub LePourquoi_parce_que()
 
Sheets("Feuil1").Cells(5, 2).Value = "1000 2"
if len(replace(Sheets("Feuil1").Cells(5, 2).Value)," ","")=len(Sheets("Feuil1").Cells(5, 2).Value )Then
    Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " est numerique"
Else
    Debug.Print Sheets("Feuil1").Cells(5, 2).Value & " n'est pas numerique"
End If
End Sub

Sur la forme, erreur de débogage, cf parenthèse
Sur le fond, pour toi, il faudra indiquer à l'utilisateur ou tout utilisateur ultérieur que ton code ne fait que supprimer les espaces dans une chaine de caractères ne comportant que des chiffres, sinon rapidement mis en cause. Penses y question portabilité et maintenance.

Sur la seconde question Variant, tous les autres types pour toi n'est qu'une futilité de plus puisque le variant suffit à tout. Le variant utilisé au besoin oui, à tort et à travers c'est du bricolage basique. Grave quand même.

String (longueur variable) 10 octets + longueur de la chaîne
Variant (caractères) 22 octets + longueur de la chaîne
Boolean 2 octets *

Pour le code de Marc, il est déjà parfait, lui rajouter de ta sauce n'a pas forcément une valeur ajoutée d'autant plus qu'un booléen flexible mieux qu'un string figé et aussi voir l'astérisque cotée.

Voilà, sur le principe et sur les fondements de base.

[patricktoulon]

Mercatog
je sais très bien que mon premier code est une daube tout du moins beaucoup d'énergie pour une si petite raison et effectivement affecte un retour positif si une chaine non numérique est injectée

j'avais juste envie de me détendre , la réponse ayant déjà été apportée dans les posts précédents

mais bon ca n'a pas été perçu comme tel. bon....tant pis

pour la méthode de marc
avec la fonction "strcomp" on obtient une valeur booléenne (true/false)

avec ma "Sauce" dans le double if je transforme le retour de cette valeur en" string" (true="numeric":false="pas numérique")

ces variables string retournées étant ce qui a été demandé je crois

en gros Marc donne la méthode ,moi je donne le retour en chaine string pas plus compliqué que ca

en une seule ligne je la trouvait sympa et propre

après ce qui est important :

c'est que le demandeur a eu un aperçu sur diverses méthodes

et en meme temps appris ou entrevue certaines fonctions Excel et vba :"instr","isnumeric","like", len" ,"replace" ,"trim" ,etc....pouvant lui permettre d'obtenir un resultat

c'est mon point de vue

[Invité]

Merci Marc,
je pensai m'être calé entre deux fréquences.

Comme la fréquence de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con ! (Marc-L)

J'ai voté pour compenser le sans aucune explication …

C'est vrai qu'un Replace aurait été plus judicieux que le Trim !

Et puis sachant Robert se prenant la tête dans d'autres discussions n'en finissant pas, pour une fois que c'était simple !
J'en ai fait une belle hier aussi …