Discussion :

[Amnesyk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Amnesyk]

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.

[Invité]

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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

?Cells(k-1,7)

[Amnesyk]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.