Suivi améliorations

M

Marc

Guest

• 17 Janvier 2006

• #16

Oups,

Petit problème, je viens de me rendre compte que l'intégralité des colonnes était copié.

J'aurai aimé qu'ils soit copier dans l'onglet 'AP En cours' Si (Données!V3=L & Données!E3=AP)

Bonne soirée

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 17 Janvier 2006

• #17

Re,

tu ne dois pas avoir de pb il te suffit de mettre le filtre automatique et de choisir AP en E3 et L en V3.

Ensuite tu exécutes ta macro.

😉

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 18 Janvier 2006

• #18

Salut,

Je fais des tests à nouveau et je te tiens au courant dans la soirée. Merci pour tout.

Bonne soirée

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 18 Janvier 2006

• #19

Apparament le probleme est que si j'ai un K ou J dans la colonne Données!V il recopie la ligne dans la liste en APEncours....

Je te tiens au courant + tard j'ai a faire désolé A+

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 18 Janvier 2006

• #20

Bonsoir,

Désolé je t'embête encore, mais c'est bien ce que je pensais (sauf si je l'utilise mal). Les deux conditions que je souhaitais ne sont pas remplie, quand j'exécute la macro toutes les lignes se copient quelque soit le 'type' et 'l'etat'.

Merci à toi ...

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 18 Janvier 2006

• #21

Bonsoir,
Je suis naz, je vais me coucher. Je reviendrais faire un tour demain soir.

Bonne nuit

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 19 Janvier 2006

• #22

Marc,

Désolé mais j'ai un peu lu trop vite ton message et de fait il y a un petit pb que je n'avais pas vu (peu de ligne dans le fichier ... lol!) car il semble que même si tu filtres des données, la macro récupère même ce qui est filtré.

D'autre part, si je comprends bien tu veux récupérer les données de la feuille 'Données' sur base des critères de la colonne E et V.

Merci de confirmer car cela va changer la macro si on doit considérer deux critères au lieu de 1 seul.

Bon ap.

😉

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 19 Janvier 2006

• #23

Bonjour,

C'est bien ça je m'interesse aux deux colonnes E (Type de la proposition d'amélioration exemples :AP,8P,...) V (lettre au format WINDINGS L == smiling qui fait la tronche ou K = smiling content).

Moi je voudrais copier dans AP_encours tout les petits bonhommes qui font la tronche pour les AP.

Plutard j'aurais peu être cette macro à modifié pour d'autre fichier de suivie.

Pour l'instand ce fichier je prends les choses dans l'ordre.

Merci à plus tard

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 19 Janvier 2006

• #24

Je rajoute aussi que je me suis trompé dans la réponse que je t'ai donnée quelques lignes avant les données doivent être éffacées avant chaque éxécution de la MACRO.

J'avais mal compris la question. Oups ...


Merci pour tout ...

A bientôt Marc ...

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 19 Janvier 2006

• #25

Re,

Heu si j'efface les données avant la macro, je pourrai pas les mettre dans la feuille AP...
Cela dit, la macro ne prévoit pas d'effacer les données dans la feuille données mais uniquement de recopier les valeur vers la feuille AP et ce, sur base de ton choix de filtre.
Merci de préciser mais on peut faire cela plus tard.

😉

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 19 Janvier 2006

• #26

Re,

Non non je veux pas dire d'effacer dans les données dans la feuilles 'donnée' mais d'effacer dans la feuille AP_soldé de maniére à ce qu'il n'y est pas 2 fois la même ligne.

Désolé pour la com

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 20 Janvier 2006

• #27

Bonsoir,

Bon après pas mal de recherche je pense que la solution se trouve ici dessous. remplace donc mon code par celui-ci :

Code:

Sub Transfert()
'Macro par DAN pour Marc le 19/01/2006
'Macro pour fil : [URL]https://www.excel-downloads.com/threads/suivi-ameliorations.53120/[/URL][B]Lien supprimé[/B]
Dim i As Integer
Dim lig As Integer
Dim ligne As Integer
 Range('A7', Range('M65536')).ClearContents
 lig = Sheets('Données').Range('E65536').End(xlUp).Row
 For i = 3 To lig
 If Sheets('Données').Rows(i).Hidden = False Then
 With Sheets('AP_Encours')
 ligne = .Range('a65536').End(xlUp).Row + 1
 .Cells(ligne, 1) = Sheets('Données').Cells(i, 6).Value
 .Cells(ligne, 2) = Sheets('Données').Cells(i, 3).Value
 .Cells(ligne, 3) = Sheets('Données').Cells(i, 7).Value
 .Cells(ligne, 4) = Sheets('Données').Cells(i, 10).Value
 .Cells(ligne, 5) = Sheets('Données').Cells(i, 11).Value
 .Cells(ligne, 6) = Sheets('Données').Cells(i, 12).Value
 .Cells(ligne, 7) = Sheets('Données').Cells(i, 4).Value
 .Cells(ligne, 8) = Sheets('Données').Cells(i, 16).Value
 .Cells(ligne, 9) = Sheets('Données').Cells(i, 18).Value
 .Cells(ligne, 11) = Sheets('Données').Cells(i, 23).Value
 .Cells(ligne, 12) = Sheets('Données').Cells(i, 21).Value
 .Cells(ligne, 13) = Sheets('Données').Cells(i, 22).Value
 End With
 End If
Next i
End Sub

La macro réinitialise ta feuille AP_Encours (veille bien à mettre le même nom à ta feuille) et copie les valeurs demandées après filtrage dans ta feuille 'données'

Merci à Hervé pour l'instruction HIDDEN qui a permis notamment de ne copier que ce qui est visible dans la feuille 'données'

Bonne nuit

😉

 

Dernière édition: 23 Novembre 2006

Vote positif 0 Vote négatif

M

Marc

Guest

• 20 Janvier 2006

• #28

Cool,

C'est dommage je n'est pas le temps de l'essayer tout de suite (boulot boulot) pas grave je le ferais ce soir. En tout cas merci beaucoup pour ton aide.

A ce soir

 

Vote positif 0 Vote négatif

M

Marc

Guest

• 20 Janvier 2006

• #29

C'est génial,

La macro marche exactement comme je voulais, je ne sais pas comment je peux te remercier. Merci de ton aide et bonne continuation.

Grâce à toi je sais que si j'ai un probléme je peux compter sur le forum. Merci

PS : Je me suis acheté deux livres sur 'Excel & VBA' en attendant d'être plus riche.

Merci @ +
Marc

 

Vote positif 0 Vote négatif

Dan

XLDnaute Barbatruc

• 20 Janvier 2006

• #30

OK. Pas de quoi.
Bonne soirée

😉

 

Vote positif 0 Vote négatif