VBA copie avec condition et mise à jour

[Citaro]

Bonjour à tous,

Dans un classeur avec 3 feuilles :
Feuille tout
Feuille fonct
Feuille asc
Depuis la feuille tout je voudrais copier, vers la feuille fonct, les valeurs avec format si colonne Code compris entre 100 et 199;
Depuis la feuille tout je voudrais copier, vers la feuille asc, les valeurs avec format si colonne Code compris entre 200 et 299.
En actionnant la macro il faut commencer par effacer les données des feuilles fonct et asc puis le copier coller suivant les conditions.

Merci d'avance
Citaro

 

[Guest]

Re : VBA copie avec condition et mise à jour

Bonjour,

Voici une méthode d'extraction à toi d'adapter pour la feuille "asc".

Sub Extraire()
    With Worksheets("fonct")
        .UsedRange.ClearContents
        .Range("A1:B1") = Array("Code", "Code")
        .Range("A2:B2") = Array(">=100", "<200")
    End With
    Sheets("tout").Range("A1").CurrentRegion.AdvancedFilter _
            Action:=xlFilterCopy, _
            CriteriaRange:=Sheets("fonct").Range("A1:B2"), _
            CopyToRange:=Sheets("fonct").Range("A4")
    Worksheets("fonct").Rows("1:3").EntireRow.Delete
End Sub

A+

 

[Citaro]

Re : VBA copie avec condition et mise à jour

Merci Hasco,
C'est résultat attendu, je l'ai adapté pour la feuille asc

Citaro

 

[Citaro]

Re : VBA copie avec condition et mise à jour

Bonjour,
Pour Hasco,
Je ne parviens pas à modifier le code pour un tableau colonne A à K, entête des colonnes en ligne 5 et le code en colonne I.
Si tu peux m'aider
Merci d(avance.

 

[Guest]

Re : VBA copie avec condition et mise à jour

Bonjour,

Il suffit de changer A1 pour A5 dans:

Sheets("tout").Range("A1").CurrentRegion.AdvancedFilter

Bien-sûr, comme excel l'exige souvent ton tableau doit être entouré d'une ligne vide au-dessus de l'entête (puisque qu'il ne commence pas en ligne1) et d'une colonne vide à droite.

Dans ces conditions, excel se chargera de trouver la colonne qui correspond à l'entête "Code".

Bon week-end

 

[Citaro]

Re : VBA copie avec condition et mise à jour

Merci hasco

 

[Citaro]

Re : VBA copie avec condition et mise à jour

Bonsoir Hasco,

Une petite demande de modification après de vaines tentatives,
Il faudrait modifier le code pour conserver les données à partir de la colonne L à chaque lancement de la macro

Merci d'avance
Citaro

 

[Guest]

Re : VBA copie avec condition et mise à jour

Bonjour,

Nous sommes sur un forum de partage et d'échanges.
J'ai répondu largement à la question initiale.
Maintenant nous ne sommes pas sur un marché à la macro avec SAV.

Tu dis avoir fait des tentatives. Elles sont où?

A+