[RESOLU] Copier cellule vers une feuille ou une autre suivant critères...
Bonjour à tous !
Tout dabord, je me permet de vous aduler car beaucoup de message sur ce forum me permette d'avancer dans mes fichiers.
Cependant, betement, sur l'un d'entre eux, je n'arrive pas à avancer.
Explication :
Je travaille dans l'électroménager, et je fais un fichier pour le suivi de mes commandes.
Je commande via un site Professionnel, qui me donne un tableau de ma commande lorsque celle ci est validée.
Sur ma première feuille, je colle donc ce tableau.
Sur ma seconde feuille, j'importe les données de ce tableau dans l'ordre voulue en ne prenant que les cellules qui m'interesse.
Ca ... j'y ARRIVe
Mon soucis maintenant est que je désire pouvoir différencier deux sortes de commande : les commandes de clients HG ( hors garantie ) et les clients SG ( sous garantie ).
Donc ce qu'il me faut, c'est pouvoir inclure dans mon code déjà existant, un systeme qui recherche dans la case NOM CLIENT, les cellules contenant HG et les importer dans la feuille suivi HG, et de meme pour les cellules contenant SG vers suivi SG
J'ai eu beau rechercher, je n'arrive pas à faire ca.
Voici mon code actuel :
Grand merci par avance !
Bonjour à tous !
Tout dabord, je me permet de vous aduler car beaucoup de message sur ce forum me permette d'avancer dans mes fichiers.
Cependant, betement, sur l'un d'entre eux, je n'arrive pas à avancer.
Explication :
Je travaille dans l'électroménager, et je fais un fichier pour le suivi de mes commandes.
Je commande via un site Professionnel, qui me donne un tableau de ma commande lorsque celle ci est validée.
Sur ma première feuille, je colle donc ce tableau.
Sur ma seconde feuille, j'importe les données de ce tableau dans l'ordre voulue en ne prenant que les cellules qui m'interesse.
Ca ... j'y ARRIVe
Mon soucis maintenant est que je désire pouvoir différencier deux sortes de commande : les commandes de clients HG ( hors garantie ) et les clients SG ( sous garantie ).
Donc ce qu'il me faut, c'est pouvoir inclure dans mon code déjà existant, un systeme qui recherche dans la case NOM CLIENT, les cellules contenant HG et les importer dans la feuille suivi HG, et de meme pour les cellules contenant SG vers suivi SG
J'ai eu beau rechercher, je n'arrive pas à faire ca.
Voici mon code actuel :
Code:
Sub DonneeColler()
With ThisWorkbook ' avec ce classeur excel
Set WSSource = Worksheets("Coller") ' appeler la fiche coller wssource
Set WSCible = Worksheets("Suivi") ' appeler la fiche suivi wscible
End With ' fini le avec ^^ hé hé j'traduis tout
For Each c In Range("L11:L500") 'pour chaque cellule de la colonne L attention pour des tests prevoir M20 comme limite !!!
ligne = c.Row ' je repere le numero de la ligne
If Cells(ligne, 12) = "A importer" Then 'si la 12eme colonne est A importer
imp1 = Cells(ligne, 13) 'enregistrement en variables des renseignements qui serviront à remplir la fiche suivi
nom = Cells(ligne, 10) ' nom sera la cellule de la dixieme colonne
ref1 = Cells(ligne, 2) ' etc
ref2 = Cells(ligne, 3)
desig = Cells(ligne, 4)
qte = Cells(ligne, 5)
If imp1 = "" Then ' si la colonne 13 ne contient rien
Cells(ligne, 13) = "Importation ok" ' alors ecrire importation ok et commencer l'importation
With WSCible ' avec la fiche suivi
lig = WSCible.Columns(3).Find("", WSCible.Range("C1"), , , xlByRows).Row ' recherche la premiere ligne vide
.Cells(lig, 2) = nom ' et dans la colonne 2 coller la variable nom
.Cells(lig, 3) = ref1 ' etc
.Cells(lig, 4) = ref2
.Cells(lig, 5) = desig
.Cells(lig, 6) = qte
.Cells(lig, 1) = Format((Now), "d-mmm-yyyy") ' et mettre la date de l'importation
End With
End If
End If
If Cells(ligne, 12) = "" Then Exit For 'arret de l'examen de la colonne L
Next
MsgBox "Plus de données à importer"
WSCible.Select
End SubGrand merci par avance !
Dernière édition:
