VBA Erreur sur Trim(Cells(1,1).Value)

Bonjour à tous,

Je vous expose les faits : je suis sur une application permettant d'uploader un fichier.txt, de le sauvegarder, l'ouvrir, récupérer et copier les données dans une feuille Excel.

Jusque la aucun problème.

Néanmoins, je bloque sur quelque chose.

Je vous explique, mon fichier Excel contient différente colonne de données, mais toutes font référence à un identifiant. Le but de cette partie est de faire ceci :

Exemple :

Idenfiant | Type | Commentaire
001 | chose | cool
001 | chose | bien

Voila, le but étant de n'avoir qu'une seule ligne par identifiant, et de récupérer les commentaires des lignes ayant le même id, pour les coller à la suite du 1er.

Ceci dis mon code fonctionne. Cependant, j'ai un gros problème d'espace quand je colle mes commentaires. C'est pourquoi je cherche à supprimer les espaces avant le 1er caractère, et après le dernier caractère; avant de le coller.

Voici le code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 'Boucle qui commence à la dernière ligne, et remonte de 1 For k = vNouveauNbLigne To 2 Step -1 'Si ma celulle de la 2ème colonne, à le même identifiant que la ligne du dessus If Cells(k, 2).Value = Cells(k - 1, 2).Value Then 'J'essaie de supprimer les espaces avant et après du texte de la cellule (colonne 7) qui contient un commentaire Cells(k - 1, 7) = Trim(Cells(k - 1, 7).Value) 'Je fais la même chose pour le commentaire mais de la ligne d'au dessus Cells(k, 7) = Trim(Cells(k, 7).Value) 'Je recopie le commentaire de l'identifiant (001 par exemple) de la ligne 2, pour le coller à coté du commentaire du même identifiant Cells(k - 1, 7).Value = Cells(k - 1, 7).Value & Trim(Cells(k, 7).Value) 'Puis je supprime la dernière ligne, dont je viens de copier le commentaire Rows(k).Delete End If Next
L'erreur retournée est : "Erreur 1004 : Erreur définie par l'application ou par l'objet".
Je sais que l'erreur provient de la ligne colorée en rouge.

Et je bloque depuis plusieurs heures.

Si quelqu'un à des questions (car on me dit souvent que j'explique pas très bien :( ).

bonjour,
si la valeur est null, le trim qui attend du string est désappointé, implémenter un null dans un string provoque une erreur:

Code:

Cells(k - 1, 7) = Trim("" & Cells(k - 1, 7).Value)

Bonjour rdurupt,

Tout d'abord merci à toi pour cette solution, je n'y avais pas pensé.

Néanmoins, j'ai toujours cette erreur.

Toutefois j'ai pu remarquer, que sur mes 1400lignes traitées, l'erreur sruvient quand je suis à la ligne k = 708.

Si je regarde sur cette ligne je peux remarquer en effet, que le commentaire de cette ligne est : " ceci est son commentaire "

Donc je me pose toujours des questions, et je suis à votre écoute si vous avez des solutions.

Merci d'avance.

bonjour,
poste un partie de ton fichier Excel la ligne k = 708. par exemple
et éventuellement quelques ligne que tu considères ok

Bonjour,
Controle bien la valeur contenue dans ta cellule au moment du debogage...
Si k=708 il s'agit de la ligne 707..

Au moment du debogage tu peu afficher le contenu de ta cellule dans la fenêtre exécution

Code:

?Cells(k-1,7)

Résolu

Re bonjour,

Je viens de trouver une solution, c'est de ne plus utiliser le Trim() pour effectuer un effacement avant et après mais un LTrim() sur le 1er commentaire, et un RTrim() sur les autres.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 Dim k As Integer For k = vNouveauNbLigne To 2 Step -1 If Cells(k, 2).Value = Cells(k - 1, 2).Value Then Cells(k - 1, 7) = RTrim("" & Cells(k - 1, 7).Value) Cells(k, 7) = RTrim("" & Cells(k, 7).Value) Cells(k - 1, 7).Value = " " & LTrim(Cells(k - 1, 7).Value) & RTrim(" " & Cells(k, 7).Value) 'Cells(k - 1, 7).Value = Trim(Cells(k - 1, 7).Value) Rows(k).Delete 'MsgBox Cells(vNouveauNbLigne - 1, 7).Value & "autre : " & Cells(vNouveauNbLigne, 7).Value End If Columns("G:Z").ColumnWidth = 50 Next
Et niquel, j'ai le résultat obtenu.

En tout cas, je tiens à vous remerciez de l'attention que vous avez porté à mon problème, je me suis inscris hier en tant que membre, et je ne le regrette pas.

A très bientôt.

:ccool: