Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Burk91 · 19 Octobre 2010

Bonjour à tous et merci pour votre aide.

Je cherche à faire une macro qui va :

- lire une feuille de mon fichier Excel (Feuille CSV Importé) et
- COUPER les données qui sont dedans
- vers les autres onglets de ce même fichier Excel (Les autre Feuilles : Clients, Véhicules, Options).

Juste une petite condition, si le premier champs de la ligne porte le libellé CLIENT, alors il renseigne la feuille client.
si c'est Voiture, il renseigne la feuille Voiture de ce même fichier, et pareil pour les options.

Il faudrait donc être capable de lire la feuille "CSV Importé", puis COUPER (toute la ligne) ces données dans les bonnes feuille du fichier excel (Clients, Véhicules, Options)

J'illustre mon problème car une photo vaut mieux que de long discoure

http://img88.imageshack.us/i/importationdedonneesv3.jpg/

Uploaded with ImageShack.us

En tout cas je vous remercie d'avance pour toute aide, piste, ou début d'idée, car la je rame, et mon niveau en vba me permet pas de faire tout ce que j'aimerai faire

Alex

JNP · 19 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Bonjour Burk91 ,

Burk91 à dit:
J'illustre mon problème car une photo vaut mieux que de long discoure

Oui, mais le fichier, ce serait encore mieux ...
On va pas s'amuser à tout recomposer et mettre en forme .
A +

Burk91 · 19 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Effectivement JNP, avec les fichiers c'est mieux.

Merci

JNP · 19 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Re ,

Code:

Sub Traite()
Dim I As Integer
With Sheets("CSV Importé")
For I = 1 To .Range("A35000").End(xlUp).Row
If .Cells(I, 1) = "Client" Then
.Rows(I).Copy Sheets("Clients").Range("A" & Sheets("Clients").Range("A35000").End(xlUp).Row + 1)
ElseIf .Cells(I, 1) = "Option" Then
.Rows(I).Copy Sheets("Options").Range("A" & Sheets("Options").Range("A35000").End(xlUp).Row + 1)
Else
.Rows(I).Copy Sheets("Véhicules").Range("A" & Sheets("Véhicules").Range("A35000").End(xlUp).Row + 1)
End If
Next I
End With
End Sub

mais tes véhicules sont en m... sur ton CSV ...
A +

Burk91 · 19 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

your the best

hahahaha Mille mercis JNP !!!

Burk91 · 22 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Merci JNP pour ta super requête, mais j'aimerai dans un cas particulier coller celle ligne a un endroit précis ^^
Juste pour un cas particulier.

Donc j aimerai addapter ta requete

Code:

If .Cells(I, 1) = "Client" Then
.Rows(I).Copy Sheets("Clients").Range("A" & Sheets("Clients").Range("A35000").[B]End(xlUp).Row + 1[/B])
ElseIf

et modifier la partie qui me pose problème

Code:

End(xlUp).Row + 1

Moi j'aurai aimé coller par exemple dans la 4eme ligne, colonne A (A4):
donc voila ce que j'essaie de faire mais ca ne fonctionne pas vraiment

Code:

If .Cells(I, 1) = "Client" Then
.Rows(I).Copy Sheets("Clients").Range("A" & Sheets("Clients").Range("A35000").[B]A4[/B])
ElseIf

voila mon A4 mais forcement je fais une erreur de syntaxe

JNP · 22 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Re ,

Code:

.Rows(I).Copy Sheets("Clients").Range("A4")

tout simplement .
Mais à chaque fois, cette ligne sera écrasée par la suivante ...
A +

Burk91 · 22 Octobre 2010

Re : Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Superrrrrrrrr JNP

Merci encore

Macro qui Coupe les cellules intéligament d'une feuille Excel vers une autre

Burk91

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

Burk91

XLDnaute Nouveau

Pièces jointes

JNP

XLDnaute Barbatruc

Burk91

XLDnaute Nouveau

Burk91

XLDnaute Nouveau

JNP

XLDnaute Barbatruc

Burk91

XLDnaute Nouveau

Discussions similaires