Problème avec la fonction Left

Bonjour tout le monde,


Je suis encore assez débutant en VBA, mais je m'entraine à faire quelques exercices.

Le dernier en date : trier une série de nom d'un classeur.

Plus précisément, je veux que le curseur identifie les valeurs qui sont des textes pour ensuite les mettre, dans une autre feuille, dans la colonne de la première lettre du mot en question, et ce, les uns à la suite des autres.

J'ai donc utilisé la fonction left, mais je galère à faire tourner ma macro.

Voici mon code actuel:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Sub Tri()   Dim numligne As Integer Dim numcolonne As Integer Dim Var_mot As String Dim Var_lettre As String       For numligne = 1 To 6 For numcolonne = 1 To 5 If Not numeric Then   Sheets("Mots").Select Cells(numligne, numcolonne).Activate Var_mot = Cells(numligne, numcolonne).Value Var_lettre = "=LEFT(Var_mot,1)"   Sheets("Tri").Select Columns("Var_lettre").Select If Range("Var_lettre" & 1).Value = "" Then Range("Var_lettre" & 1).Value = l Else Range("Var_lettre" & 2).Value = l End If If Range("Var_lettre" & 2).Value <> "" Then Range("Var_lettre" & 1).Select Selection.Selection(xlDown).Offset(1, 0).Value = Var_mot End If End If Next Next

---

Je reste à votre disposition si vous avez besoin de précision.

Merci d'avance

Coklin

Si tu t'entraine on va commencer par nettoyer ton code évite d'utilisert les .select c'est dans 99% des cas totalement inutile et cela ralenti le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29

Dim numligne As Integer Dim numcolonne As Integer Dim Var_mot As String Dim Var_lettre As String       For numligne = 1 To 6 For numcolonne = 1 To 5 If Not numeric Then     Var_mot = Sheets("Mots").Cells(numligne, numcolonne).Value Var_lettre = "=LEFT(Var_mot,1)"   With Sheets("Tri")   If .Range("Var_lettre" & 1).Value = "" Then .Range("Var_lettre" & 1).Value = l Else .Range("Var_lettre" & 2).Value = l End If If .Range("Var_lettre" & 2).Value <> "" Then .Range("Var_lettre" & 1).Selection(xlDown).Offset(1, 0).Value = Var_mot End If End With End If Next Next

---

Ensuite je ne comprend pas trop ce que tu veux faire. Tu met la valeur 1 dans la première ou deuxième ligne dans la colonne qui dépend de la première lettre de ton mot. Je ne vois pas en quoi cela permet de trier.
De plus si deux mot commence par la même lettre tu ne le verra pas.


Tu devrais également vérifier que la première lettre n'est pas un nombre
utilise la commande Isnumeric, ou mieu la commande like qui permet de vérifier qui c'est bien un lettre et non de la ponctuation (regarde l''aide il y a bcp d'exemple)

A mon avis tu devrais repenser l'algorithme de ton programme.

Si j'ai bien compris, tu veux

récupérer la première lettre de ton mot
vérifier que c'est bien une lettre
si c'est le cas copier le mot dans la colonne qui corespond

C'est bien ca?

ps : c'est relativement normale de ne pas avoir de réponse un dimanche soir a 21h45 ;)

Salut Krovax,


D'abord merci pour ta réponse. Ensuite tu as bien compris ce que je voulais faire.

Concernant la vérification des lettres, j'ai mis un if not numeric au début qui me permet d'éliminer les textes qui contiendraient des chiffres ou bien des nombres tout simplement.


Ensuite, je n'ai pas encore utilisé la fonction tri, qui n'est pas très compliqué à faire (key 1, ascending, etc.). La difficulté ici étant surtout de récupérer la lettre de gauche (donc la première) du texte de chaque cellule pour mettre le mot dans la colonne correspondant à cette lettre (dans une autre feuille intitulée "Tri")

D'où l'utilisation de Left, qui me permet de prendre la lettre de gauche, mais il doit y avoir une erreur de syntaxe ou d'algorithme.

Donc la logique de mon code :
1 - passer par tous les mots
2 - ne retenir que les textes
3 - Pour chaque texte, prendre la lettre de gauche
4 - Ranger le mot dans la colonne correspondante
a. Si la colonne est vide, alors le mot est en première place
b. Si la cellule 1 est pleine mais la 2 vide, alors le mot est en cellule 2
c. Si la cellule 1 et 2 sont pleine alors on fait stocke le mot dans la cellule Range(colonne & 1).End(xldown).Offset(1,0). Soit la première cellule vide de la colonne.

Est-ce un peu plus clair?

Coklin

If not numeric ne signifie rien tu ne lui dit pas ce qu'il doit tester pour lui il va tester une variable appelé numeric que tu na pas déclaré. Ce qui met fait dire que tu n'est pas en option explicite :aie:
La variable n'est pas déclaré elle est de base a false donc ton teste marche tout le temps et est totalement inutile

Met au tout début de ton module avant la première procédure ca t'évitera ce genre d'erreur

Code:

---

Option Explicit

---

Pour le reste c'est plus claire mais ce n'est pas vraiment ce que tu fais
tu fais (ou essaye de faire)
Si la première ligne de la colonne est vide tu met un 1 (et c'est tout)
Si non tu met 1 dans la deuxième ligne
si la deuxième ligne n'est pas vide tu met le mot dans la première ligne vide (au mieu la troisième position)

Du coup tu rate systématiquement le premier mot d'une colonne et tu as deux 1 dans les premières lignes

Je suis un peu mieux réveillé et j'ai repris ton code voila quelque remarque
var_mot est déjà une variable si ut le met entre guillemet pour VBA ce n'est pas la variable que tu appelle mais tu lui parle d'un chaine de caractère qui contient "var_mot"

Code:

---

.Range("Var_lettre" & 1).Value

---

doit etre remplacé par

Code:

---

.Range(Var_lettre & "1").Value

---

(les guillemet autour du 1 sont facultative)


Regarde ce code je n'ai pas testé mais ca devrais mieux fonctionner

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

Dim numligne As Integer Dim numcolonne As Integer Dim Var_mot As String Dim Var_lettre As String Dim DerniereLigne As Long     For numligne = 1 To 6 For numcolonne = 1 To 5 Var_mot = Sheets("Mots").Cells(numligne, numcolonne).Value Var_lettre = Left(Var_mot,1) If Var_lettre Like "[A-Za-z]" Then 'on vérifie que le premier caractère est bien une ettre soit majuscule soit minuscule With Sheets("Tri") DerniereLigne = .Range(Var_lettre & "65536").End(xlUp).Row 'on récupère le numéro de la dernière ligne de la colonne If .Range(Var_lettre & "1") = "" Then DerniereLigne = 0 'DerniereLignevau au minimum 1 donc la la première ligne était vide on écrirai dans la deuxième .Range(Var_lettre & DerniereLigne + 1) = Var_mot 'on met le mot dans la ligne qui suit la dernière ligne de la colonne End With End If Next numcolonne Next numligne

---

Salut,

Ce ne serait pas plutot:

Code:

---

Var_lettre = Left(Var_mot,1)

---

++
Minick

bien vu je n'avais pas fait attention a ca le lundi matin est difficile :roll:
Je modifie mon code

pour coklin les guillement signifie du texte VBA n'essayera jamais de de regarder ce qu'il y a dedans. QUe tu mettes "Bonjour" ou "1+1" il se comportera de la meme facon

Code:

---

msgbox "1+1"

---

ou

Code:

---

msgbox "=1+1"

---

n'afficheront pas 2

Code:

---

msgbox 1+1

---

la tu aura un 2 car sans les guillemet ce n'est pas du texte mais un calcul