Probleme avec données alpha et numerique

[papapaul]

😱 Bonjour le Forum,
J'ai un peu honte de vous embêter avec ca.
J'ai des feuilles ou les données sont soit
alpha, soit num, des fois les deux.
Mon bouton permet de mettre les doublons en couleur.
Pour l'instant ca marche avec le numérique.
Je suis vraiment nul parceque malgré mes recherches et
de multiples tentatives, je n'arrive pas à ce que ca
marche quel que soit le type des données.😕
Ca doit pas être sorcier mais depuis ce matin
je patauge lamentablement.
Merci à ceux qui pourront m'aider.
Bonne journée à tous.😉

 

[porcinet82]

Re : Probleme avec données alpha et numerique

Salut,

C'etait vraiment pas grand chose, juste un End If de mal placé. Corrige de la manière suivante et ca va le faire:

    For Each Cel In Plage
        If IsNumeric(Cel) Then
            Cel = CStr(Cel)
        Else
            If Not IsNumeric(Cel) Then
                Cel = Cel
            End If
        End If
        On Error Resume Next
        If Cel <> "" Then Col.Add Cel, CStr(Cel)
        On Error GoTo 0
    Next Cel

@+

 

[Bebere]

Re : Probleme avec données alpha et numerique

bonjour Papapaul
une réponse,commentaires dans code
à) bientôt

 

[papapaul]

Re : Probleme avec données alpha et numerique

🙂 Merci beaucoup Porcinet,
Quand je vous dis que je suis pas doué.
@+

 

[papapaul]

Re : Probleme avec données alpha et numerique

😕 Merci Porcinet et Bébère,
J'ai ajouté une feuille 1 et alors
Y a quelque chose qui cloche.🙁
Je comprends pas pourquoi sur cette feuille
ca marche pas bien alors que c'est ok pour les autres.
Si vous avez une idée, moi je sèche.
(c'est quand même pas à cause d'excel 97 ??)
Merci à tous

 

[porcinet82]

Re : Probleme avec données alpha et numerique

Re,

C'est fort probable que ce soit du a Excel 97 car j'ai fait le test sur 2003 et 2007 ca fonctionne au poil...

@+

 

[papapaul]

Re : Probleme avec données alpha et numerique

🙁 Les 2 versions (Porcinet, Bébère) marchent
mais pas bien avec la feuille1
Je joins un fichier avec la méthode Bébère.
Avec les données uniques alpha kk,hh...c'est bon
mais pas avec les chiffres,
ou est l'erreur ?

 

[papapaul]

Re : Probleme avec données alpha et numerique

Oups voici le fichier

 

[Bebere]

Re : Probleme avec données alpha et numerique

Papapaul
commentaires dans code
à bientôt

 

[papapaul]

Re : Probleme avec données alpha et numerique

🙂 Bonjour Forum, Porcinet, Bébère,
Bébère une fois de plus c'est "magique".
Je viens de tester avec 97 (je suis au boulot) et avec une des
versions de ma fameuse Usine à gaz que tu m'as déjà
en grande partie aidé à réaliser.
Apparement c'est OK. Super
Je pensais bien qu'il fallait déplacer le compteur que tu a mis la :

For Each Cel In Plage
Compte = 0
Compte = Application.WorksheetFunction.CountIf(Plage, "=" & Cel)

mais fallait faire aussi des modifs dans le code après
For each item, et la je m'en serait jamais sorti tout seul.😱
Je trouve que ce que tu a fais aussi rapidement est prodigieux.

Je ne sais pas comment te remercier sinon en t'envoyant
un peu du soleil qui est revenu en Normandie.
Amitiès à toi et à tout XLD🙄