Bonjour,
Je travaille depuis deux semaines sur un fichier excel. J'ai réussi, à l'aide d'un des membre de ce forum, mes macro, sauf la dernière ^^.
Mon fichier Excel étant trop imposant, je ne pourrais vous le partager, et j'en suis désolé. je vais essayer d'être claire pour que vos réponses soient les plus abouties possible.
Je posséde divers renseignements sur la plage A137433. Je compare la colonne B avec des références que j'ajoute par un simple Copier/coller dans la colonne R (38 données max). Lorsque celles-ci sont similaires, j'ajoute grâce à un programme le caractère "x" sur la même ligne que la référence se situant dans la colonne B. Ce qui implique bien évidemment, que le nombre de "x" varie à chaque comparaison.
Après des heures à m'acharner sur le problème sans y parvenir, et étant toujours au point mort, voici ce que j'aimerai obtenir: à l'aide d'un bouton de commande, j'aimerai copier l'entièreté des lignes (Colonne A à Colonne P uniquement) possédant le caractère "x" en colonne Q de la feuille 1 ( se nommant "Fichier"), et les afficher, les unes à la suite des autres, sur la feuille2 (se nommant "Résultat").
Le programme donnerait plus ou moins ceci :
Merci par avance,
Maxime
Je travaille depuis deux semaines sur un fichier excel. J'ai réussi, à l'aide d'un des membre de ce forum, mes macro, sauf la dernière ^^.
Mon fichier Excel étant trop imposant, je ne pourrais vous le partager, et j'en suis désolé. je vais essayer d'être claire pour que vos réponses soient les plus abouties possible.
Je posséde divers renseignements sur la plage A137433. Je compare la colonne B avec des références que j'ajoute par un simple Copier/coller dans la colonne R (38 données max). Lorsque celles-ci sont similaires, j'ajoute grâce à un programme le caractère "x" sur la même ligne que la référence se situant dans la colonne B. Ce qui implique bien évidemment, que le nombre de "x" varie à chaque comparaison.
Après des heures à m'acharner sur le problème sans y parvenir, et étant toujours au point mort, voici ce que j'aimerai obtenir: à l'aide d'un bouton de commande, j'aimerai copier l'entièreté des lignes (Colonne A à Colonne P uniquement) possédant le caractère "x" en colonne Q de la feuille 1 ( se nommant "Fichier"), et les afficher, les unes à la suite des autres, sur la feuille2 (se nommant "Résultat").
Le programme donnerait plus ou moins ceci :
Code:
Dim i as Long
Dim j as Long
For i = 1 to To [Q65536].End(xlUp).Row 'Parcours de la colonne Q
If Cells(i,18).Value = "x" Then ' Détéction de la présence du caractère
'Copier la plage Ai:Pi de la feuille 1
'Coller sur la plage Aj:Pj de la feuille 2
j = j +1
End If
Next i
Merci par avance,
Maxime