Probleme avec données alpha et numerique

porcinet82

XLDnaute Barbatruc

• 23 Juillet 2007

• #2

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:

Code:

    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

@+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 23 Juillet 2007

• #3

Re : Probleme avec données alpha et numerique

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

 

Pièces jointes

• ALPHANUM.xls

  33 KB · Affichages: 63
• ALPHANUM.xls

  33 KB · Affichages: 66
• ALPHANUM.xls

  33 KB · Affichages: 66

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 23 Juillet 2007

• #4

Re : Probleme avec données alpha et numerique

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

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 23 Juillet 2007

• #5

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

 

Pièces jointes

• ALPHANUM.xls

  42 KB · Affichages: 87
• ALPHANUM.xls

  42 KB · Affichages: 88
• ALPHANUM.xls

  42 KB · Affichages: 79

Vote positif 0 Vote négatif

porcinet82

XLDnaute Barbatruc

• 23 Juillet 2007

• #6

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...

@+

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 23 Juillet 2007

• #7

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 ?

 

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 23 Juillet 2007

• #8

Re : Probleme avec données alpha et numerique

Oups voici le fichier

 

Pièces jointes

• probleme-bebere.xls

  38.5 KB · Affichages: 65
• probleme-bebere.xls

  38.5 KB · Affichages: 68
• probleme-bebere.xls

  38.5 KB · Affichages: 70

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 23 Juillet 2007

• #9

Re : Probleme avec données alpha et numerique

Papapaul
commentaires dans code
à bientôt

 

Pièces jointes

• probleme-bebere.xls

  36.5 KB · Affichages: 54
• probleme-bebere.xls

  36.5 KB · Affichages: 56
• probleme-bebere.xls

  36.5 KB · Affichages: 57

Vote positif 0 Vote négatif

papapaul

XLDnaute Impliqué

• 24 Juillet 2007

• #10

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🙄

 

Vote positif 0 Vote négatif