re
j'ai adapté celle de marc
Version imprimable
re
j'ai adapté celle de marc
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
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)
@Patrick
Sans aller vers la démagogie des sauces, je parlais d'abord de ce "code"Sur la forme, erreur de débogage, cf parenthèseCode:
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 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.
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.Citation:
String (longueur variable) 10 octets + longueur de la chaîne
Variant (caractères) 22 octets + longueur de la chaîne
Boolean 2 octets *
Voilà, sur le principe et sur les fondements de base.
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