Récupérer des 'infos

[JP.R]

Bonjour,
Voila mon souci...
J'ai un tableau que j’alimente réguliérement qui est constitué de 5 colonnes et X lignes. Je voudrai récupérer les infos de ces 5 colonnes suivant une info se trouvant dans une cellule du tableau et ayant un code spécifique et copier dans une autre feuille, toujours dans le même fichier.

Voici ce que j'aimerai effectueer: en colonne D lorqu'il y a le code XF ou FC alors je récupére toutes les infos des lignes concernées et je copie le tout dans une autre feuille de ce meme fichier.

Si qq un peu m'aider..merci

 

[fanfan38]

Re : Récupérer des 'infos

Bonjour
Un fichier exemple aurait été le bienvenu...
lig=1
for i=1 to range("a65536").end(xlup).row
if cells(i,4).value="XF" or cells(i,4).value="FC" then
sheets("feuil2").cells(lig,1).value=cells(i,1).value
sheets("feuil2").cells(lig,2).value=cells(i,2).value
sheets("feuil2").cells(lig,3).value=cells(i,3).value
sheets("feuil2").cells(lig,4).value=cells(i,4).value
sheets("feuil2").cells(lig,5).value=cells(i,5).value
lig=lig+1
endif
next

A+ François

 

[Guest]

Re : Récupérer des 'infos

Bonjour JP, le forum,

Fais une recherche sur le site avec 'filtres élaborés' tu trouveras plein d'exemples notament: https://www.excel-downloads.com/threads/forcer-les-filtres-elabores.93489/ .Dans le deuxième post de ce fil, un exemple de BOISGONTIER.

fais des tests et reviens nous voir si tu as un problème particulier

Bonnes recherches

A bientôt

 

[JP.R]

Re : Récupérer des 'infos

Bonjour
Un fichier exemple aurait été le bienvenu...
lig=1
for i=1 to range("a65536").end(xlup).row
if cells(i,4).value="XF" or cells(i,4).value="FC" then
sheets("feuil2").cells(lig,1).value=cells(i,1).value
sheets("feuil2").cells(lig,2).value=cells(i,2).value
sheets("feuil2").cells(lig,3).value=cells(i,3).value
sheets("feuil2").cells(lig,4).value=cells(i,4).value
sheets("feuil2").cells(lig,5).value=cells(i,5).value
lig=lig+1
endif
next

A+ François

Merci, je suis nouveau sur Forum et débutant sous Excel.
Ou je dois mettre tes infos ? dans une macro ?
merci

 

[Guest]

Re : Récupérer des 'infos

Re Bonjour Jp

comme Fanfan ne semble pas connecté, je me permets de répondre à sa place.

Oui il s'agit de lignes à mettre dans une macro, j'y ai ajouté quelques commentaires.

Sub Extraire()
lig=1 'Numéro de ligne sur la feuil2
 
'De la ligne 1 de la feuille des données jusqu'à la dernière non vide
for i=1 to range("a65536").end(xlup).row
 
'Si la colonne D (4) contient XF ou FC on copie les données de A à F
'Dans la feuil2 sur la ligne lig
if cells(i,4).value="XF" or cells(i,4).value="FC" then
   sheets("feuil2").cells(lig,1).value=cells(i,1).val ue
   sheets("feuil2").cells(lig,2).value=cells(i,2).val ue
   sheets("feuil2").cells(lig,3).value=cells(i,3).val ue
   sheets("feuil2").cells(lig,4).value=cells(i,4).val ue
   sheets("feuil2").cells(lig,5).value=cells(i,5).val ue
   lig=lig+1 'Prochaine numéro de ligne de feuil2
endif
next 'Passer à la ligne suivante de feuil1
 
End Sub

Mais si tu as du mal avec les macro et VBA, je te conseille de te diriger vers l'extraction avec filtre élaboré.

A bientôt

 

[JP.R]

Re : Récupérer des 'infos

Re Bonjour Jp

comme Fanfan ne semble pas connecté, je me permets de répondre à sa place.

Oui il s'agit de lignes à mettre dans une macro, j'y ai ajouté quelques commentaires.

Sub Extraire()
lig=1 'Numéro de ligne sur la feuil2
 
'De la ligne 1 de la feuille des données jusqu'à la dernière non vide
for i=1 to range("a65536").end(xlup).row
 
'Si la colonne D (4) contient XF ou FC on copie les données de A à F
'Dans la feuil2 sur la ligne lig
if cells(i,4).value="XF" or cells(i,4).value="FC" then
   sheets("feuil2").cells(lig,1).value=cells(i,1).val ue
   sheets("feuil2").cells(lig,2).value=cells(i,2).val ue
   sheets("feuil2").cells(lig,3).value=cells(i,3).val ue
   sheets("feuil2").cells(lig,4).value=cells(i,4).val ue
   sheets("feuil2").cells(lig,5).value=cells(i,5).val ue
   lig=lig+1 'Prochaine numéro de ligne de feuil2
endif
next 'Passer à la ligne suivante de feuil1
 
End Sub

Mais si tu as du mal avec les macro et VBA, je te conseille de te diriger vers l'extraction avec filtre élaboré.

A bientôt

Merci je vais essayer de suite a +