Discussion :

[vincent-57]

Bonjour,

J'aurais besoin d'un peu d'aide pour ma macro dans Excel.

Je veux mettre en page un fichier CSV avec excel.
Jusqu'ici rien de complique. J'utilise la fonction split qui me fait le bon boulot.

Mon Probleme vien maintenan:

Certain de mes "projet" von sur plusieur lignes. Donc mon split me renvoi une erreur car je sor de mon index etc.Ceci n'est pas le problemes non plus.

En faite j'aimerais que si le 6eme Charactere de ma chaine n'est pas une "virgules" il me copie le contenu de la celulle a la fin du contenue de ma cellule Precedente.

Quelqu'un aurait-il une idée de comment faire?

Je parcour ma liste en commencant par la fin et en allant jusqu'au debut pour le momen.

voici mon bou de 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
19
20
21
22
Sub Report()
 
 
Dim l As Variant
 
Max = ActiveSheet.UsedRange.Rows.Count
 
 
For l = Max To 2 Step -1
 
    If Mid(Cells(l, 1), 6, 1) = "," Then   ' le 6eme Charactere est une "virgules alors rien faire    
        MsgBox "Vrai" & l
        'I = I - 1
 
    Else        'Copier le contenue de la celulle a la fin du contenu de la cellule precedente.    
        MsgBox "Faux" & l
 
 
    End If
 
Next l
End Sub

Mes messageBox me serve juste a verifier le bon fonctionnemen de mon If.

Merci d'avance pour votre aide.
Amicalement,
Vincent.

[Krovax]

Bonjour,
essaye de voir ca

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Report()
Dim l As Variant
Max = Cells(Columns(1).Cells.Count, 1).End(xlUp).Row
'on sait jamais autant traiter les lignes vide et la possibilité d'être sous 2007 ;) 
For l = Max To 2 Step -1
    If Mid(Cells(l, 1), 6, 1) = "," Then   ' le 6eme Charactere est une "virgules alors rien faire      
    Else        'Copier le contenue de la celulle a la fin du contenu de la cellule precedente.    
     cells(l-1,1)=cells(l-1,1) & cells(l,1)  'je prend la cellule du dessus meme si tu parcour a l'envers sinon remplace par un +1 au lieu du -1
     cells(l,1).EntireRow.delete
    End If
Next l
End Sub

[vincent-57]

Merci beaucoup Krovax,

ton Code marche a merveille, j'ai juste remplacé

Code :

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

cells(l-1,1)=cells(l-1,1) & cells(l,1)

Par

Code :

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

cells(l-1,1)=cells(l-1,1 )& cells(l-1,2)  & cells(l,1)

Car par momen il y a des valeur dans la colonne B encore.

je te remercie beaucoup. J'etais arrivé a ce point mais j'avais du fair une erreur d'allocation ou qqchose.

Amicalement,
Vincent.