probleme conversion avec colonne 5 (case 5 en vba)

[papapaul]

Je vais essayer d'être court :

On m'a transmis ce code pour convertir les données des colonnes 2 et 5,
Ca marche trés bien dans le fichier que je voulais.
Quand je mets ca dans un autre gros fichier, ca plante,
ma listbox ne reconnait pas la colonne 5, si j'enleve ce code, la listbox marche.

J'ai essayer d'inverser les colonnes ou de mettre la 5 à blanc, ca plante
quand même.

Si quelqu'un connait la raison, ce serait sympa de m'expliquer,
j'y comprends que couic.


With ListBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
Select Case col
Case 2, 5 'convertion les données pour les valeurs décimales (colonnes 2 et 5)
If CDbl(.List(i)) < CDbl(.List(j)) Then
temp = CDbl(.List(i))
.List(i) = CDbl(.List(j))
.List(j) = temp
End If
Case Else 'pas de convertion pour les autres colonnes

If .List(i) < .List(j) Then
temp = .List(i)
.List(i) = .List(j)
.List(j) = temp
End If
End Select
Next j
Next i
End With

Bonne soirée au forumeurs 🙂

 

[JYLL]

Re : probleme conversion avec colonne 5 (case 5 en vba)

Bonsoir papapaul et le forum,

A aucun moment la variable "col" est initialisée, alors tu fais toujours le case else, col ne peut jamais être à 2 ou 5.

Bon test.

 

[papapaul]

Re : probleme conversion avec colonne 5 (case 5 en vba)

Merci de ta réponse, JYYL 🙂

Mais le bout de code etait pas complet.

J'ai bien mis un truc pour la variable, c'était dans le vba général.

Col as a byte : avec ca, ca marche dans le fichier d'origine

Mais même avec ce code, sur un autre fichier précis, et celui la seulement,
ca plante sur la colonne 5. Pour mais autres fichiers ca gêne pas.
Quand j'enlève Case 5, tout va bien.

Pour mais autres fichiers, je touche à rien et ca gêne pas.

J'ai chercher dans le fichier qui pose problème, arial, verrouillage...
je vois pas. Je vais le mettre dans ce fil ce soir.
Peut-être ca éclairera les gens qui comprennentpas non plus.

Merci et @+ 😉

 

[papapaul]

Re : probleme conversion avec colonne 5 (case 5 en vba)

😛 Salut,

Comme promis à JYLL je joins mon fichier,
J'ai du le réduire. Ca bug à la fin du processus pour l'ajout de
lignes successives (sur la feuille"tmp") mais j'ai pas eu le temps de modifier tout. C'est pas grave. Le probleme commence dès le début quand je veux choisir dans la combobox l'intitulé de la 5ème colonne.
Dans ce fichier c'est impeccable.
Ce que je pige pas c'est que quand je l'essaye avec d'autres fichiers,
il plante parfois mais pas toujours à cause de la conversion de la colonne 5,
(Dans la macro du userform1 : dans la partie tri listbox,
case 2, 5 ...)
J'ai tout tenter, arial, format, protection cellules, feuilles, ...

J'utilise un autre truc maintenant mais ca m'énerve un peu de
pas trouver pourquoi ca plante pas tout le temps ou jamais.
Si quelqu'un comprends, ca m'intéresse.😕
Milles excuses pour mes codes a rallonge mais c'est seulement
un début, en vrai mon truc est mieux fini.

Bonsoir à tous. 😉

 

[JYLL]

Re : probleme conversion avec colonne 5 (case 5 en vba)

Bonsoir Papapaul et le forum,

Peux-tu me dire en deux mots ce que tu fais pour que ça plante sur case5, moi j'ai des erreurs dues aux feuilles qui existent déjà mais je n'arrive pas à reproduire ton erreur. Je mets un point d'arrêt en exécussion et je trouve toujours col=1

à te lire.

 

[papapaul]

Re : probleme conversion avec colonne 5 (case 5 en vba)

🙁

Ca plante avec le fichier joint quand je choisis la colonne libelle
C'est pourtant bien la colonne 5. Je comprends que couic.

Sinon pour le fichier que j'ai mis tout a l'heure, c'est normal qu'il
coince sur les feuilles tmp et extraction, normalement
elles sont supprimées avant les autres recherches mais j'ai
enlevé les codes pour alleger le zip.
Y avait un usf2, je peux te donner les codes si tu veux ,
mais ca fait 4 pages !!!

En tout cas merci de te pencher sur ce probleme,

+🙄

 

[JYLL]

Re : probleme conversion avec colonne 5 (case 5 en vba)

Re bonsoir papapaul ,

Désolé, mais dans le classeur que tu viens d'envoyer il n'y a aucune Macro. De plus dans les colonnes 5, dans toutes tes feuilles il y a du texte.

Au plaisir de te relire.

 

[Robert]

Re : probleme conversion avec colonne 5 (case 5 en vba)

Bonsoir Papapaul, Jyll, bonsoir le forum,

Je reconnais ma patte dans le premier fichier mais le contexte n'y est plus. Tu as renommé des onglets mais pas dans le code VBA et comme tu y fait référence ça plante.

J'ai retrouvé la dernière version que je t'avais envoyé je la replace ici. Dis-nous ce qui ne va pas. Si tu adaptes à une autre fichier, fait défiler les macros pas à pas pour essayer comprendre pourquoi il y a une erreur.

 

[papapaul]

Re : probleme conversion avec colonne 5 (case 5 en vba)

🙂 Bonsoir Robert,
Merci encore pour toute l'aide que tu m'as apportée.
J'ai utilisé tes trucs dans un fichier qui est devenu trop gros
pour le mettre ici même en allégeant au maximum.
Alors le problème, (JYLL a pas compris mais c'était pas
facile à expliquer), tout va bien avec le fichier que tu mets.
Mais quand j'applique la macro sur le fichier ci-dessous.
Que je veux selectionner la 5ème colonne (libellé), ca plante sur la ligne en rouge ci-dessous:
With ListBox1
For i = 0 To .ListCount - 1
For j = 0 To .ListCount - 1
Select Case col
Case 2, 5 'convertion les données pour les valeurs décimales (colonnes 2 et 5)
If CDbl(.List(i)) < CDbl(.List(j)) Then
temp = CDbl(.List(i))
.List(i) = CDbl(.List(j))
.List(j) = temp
End If
Case Else 'pas de convertion pour les autres colonnes
If .List(i) < .List(j) Then
temp = .List(i)
.List(i) = .List(j)
.List(j) = temp
End If
End Select
Next j
Next i
End With
Cette colonne n'est pas décimale mais avec case else je pense
que ca devrait quand même passer. Je pige pas.
Ou alors on peut peut être faire en sorte que la conversion soit
demander sur toutes les colonnes numérique ou pas pour
que le tri se fasse correctement ,

Merci à toi de te pencher la dessus.
Je sais que c'est pas facile.

@+ 😕

 

[papapaul]

Re : probleme conversion avec colonne 5 (case 5 en vba)

😉

Ca ressemble plus a grand chose.🙄
Y a plus qu'une feuille mais y a tout
mes userform et msgbox.
Et les codes que j'ai bricolés
Milles excuses à Robert pour le "massacre" mais ca marche

Bon courage. 🙂