Excel VBA - Erreur 400 du à un "-"

Logiciel & apps Programmation
1

Bonjour tout le monde,

Mon problème a lieu dans excel.
J’ai écrit un code qui fonctionne très bien, sauf quant ma variable possède un trait d’union :

Code :

Sub creer_listecat(categorie As String, Feuil As String)

Dim coll, rowl, colli, rowli, colc, rowc, colci, rowci As Integer

coll = 1 'Colonne de départ de la liste de compte BDD
rowl = 2 'Ligne de départ de la liste de compte BDD
colli = coll 'Colonne actuelle de la liste de compte BDD
rowli = rowl 'Ligne actuelle de la liste de compte BDD

colc = 1 'Colonne de départ de la liste de compte par catégorie
rowc = 1 'Ligne de départ de la liste de compte par catégorie
colci = colc 'Colonne actuelle de la liste de compte par catégorie
rowci = rowc 'Ligne de départ de la liste de compte par catégorie

Worksheets(Feuil).Cells.ClearContents 'Efface le contenu de la feuille de compte par catégorie

'Création de l’en-tête de la section
Worksheets(Feuil).Cells(rowci, 1).Value = “Compte iCampus pour la catégorie Arts appliqués”
rowci = rowci + 1
Worksheets(Feuil).Cells(rowci, 1).Value = “Compte”
Worksheets(Feuil).Cells(rowci, 2).Value = “Mot Passe”
Worksheets(Feuil).Cells(rowci, 3).Value = “Nom, Prénom”
Worksheets(Feuil).Cells(rowci, 4).Value = “Date de remise”
rowci = rowci + 1

'Trouver première ligne catégorie
Do While Cells(rowli, colli + 6) <> categorie
rowli = rowli + 1
Loop

Do 'Tant que la ligne est de la catégorie
Worksheets(Feuil).Cells(rowci, 1).Value = Cells(rowli, colli)
Worksheets(Feuil).Cells(rowci, 2).Value = Cells(rowli, colli + 1)
rowci = rowci + 1
rowli = rowli + 1
Loop While Cells(rowli, colli + 6) = categorie

End Sub

Lorsque je fais : creer_listecat “Traduction Interprétariat”, “Compte TI”
Tout fonctionne correctement.

Mais si je mets : creer_listecat “Traduction - Interprétariat”, “Compte TI”
J’ai une erreur 400 sur le code :
Code :

Do While Cells(rowli, colli + 6) <> categorie
rowli = rowli + 1
Loop

Car il ne trouve jamais la correspondance, donc il tourne jusqu’à la fin de la feuille sans jamais rien trouvé.
J’ai beau copié/coller le “Traduction - Interprétariat” pour être certaine qu’il s’agit bien du même “-” partout, toujours erreur 400.

La solution simple est de ne pas mettre de “-”, mais j’ai toute une liste de ce genre de thème qui officiellement doivent être inscrit avec un “-” dans mes fichiers… donc si la chose est possible, j’aimerais pouvoir le conserver.

Quelqu’un aurait-il une idée pour résoudre mon problème ?

D’avance un grand merci pour vos lumières. :slight_smile:

2

Tu as quelle version d’excel ?

Pour essayer de cerner le problème, modifie ton code de la façon suivante
Do 'Tant que la ligne est de la catégorie
Worksheets(Feuil).Cells(rowci, 1).Value = Cells(rowli, colli)
Worksheets(Feuil).Cells(rowci, 2).Value = Cells(rowli, colli + 1)
rowci = rowci + 1
rowli = rowli + 1
x = Cells(rowli, colli + 6)
Loop While Cells(rowli, colli + 6) = categorie

Ensuite, tu mets un point d’arrêt sur la dernière ligne, et tu examines à chaque passage la valeur de x.
Quand elle atteint la valeur de sortie, tu tapes dans la fenêtre d’exécution
? x = categorie

En principe, cela doit te retourner faux, puisque tu ne sors pas de la boucle.
Ensuite, tu regardes ce qui diffère dans les deux chaines :
D’abord la longueur
? len(x) = len(categorie)

puis caractère par caractère
? left(x,1) = left(categorie, 1)
? left(x,2) = left(categorie, 2)
? left(x,3) = left(categorie, 3)

3

Bonjour,

finalement, sur un autre forum, on m’a fournit une autre façon de codé ce que je désire faire tout en étant bien plus optimisé.
Et ça fonctionne sans problème avec les “-”.

Toutefois mon problème venait visiblement de mes variables. Je déclare categorie comme string, mais dans mon appelation c’était considéré comme un variant. Je savais pas qu’il fallait mettre le ‘As string’ sur toutes les variables et que le mettre seulement en fin de ligne ne fonctionne pas.

Merci tout de même pour ton aide :slight_smile: