XL 2010 transfert de données sur autre classeur, selon 1 critère

[juliemanette]

Bonjour à tous

j'ai plusieurs questions.

1- J'ai une base de donnée, avec un état des devis (Accepté, Refusé, ou en attente), j'ai mis grâce à la mise en forme conditionnelle, une couleur différente pour chacun des états. Mais cette couleur ne se met que sur la cellule en question. Est il possible que la couleur se mette sur toute la ligne du tableau?

2- J'aimerais, aussi, que toutes les lignes qui sont en état "Accepté", se copie automatiquement sur un autre classeur.

Merci de votre aide 🙂

 

[MP59]

Bonsoir à tous,
1 Réponse à la première partie : MFC

 

[sylvanu]

Bonjour à tous,
1 Réponse à la seconde partie : Archivage

Sub Archivage()
    Dim DL%, DL2%, L%
    Application.ScreenUpdating = False
    DL = Range("C65500").End(xlUp).Row
    DL2 = 1 + Range("A65500").End(xlUp).Row
    For L = 3 To DL
        If Cells(L, "E") = "Accepté" Then
            Sheets("Archives").Range("B" & DL2 & ":D" & DL2) = Range("C" & L & ":E" & L).Value
            Sheets("Archives").Cells(DL2, "A") = Date
            DL2 = DL2 + 1
            Application.CutCopyMode = False
            Range("C" & L & ":E" & L).Delete Shift:=xlUp
        End If
    Next L
End Sub

 

[MP59]

2° partie en Query avec actualisation nécessaire.
j'ai aussi fait une actualisation avec macro mais mon fichier s'attache au message de sylvanu que je salue

 

[MP59]

le voici avec macro pour rafraichissement à l'activation de la feuille reprenant la requête Power Query

 

[MP59]

L'avantage de Query est que les modifications dans la feuille initiale sont prises en compte.
Ex : un activé recopié devient un désactivé car l'activation était faîte par erreur, avec la mise à jour de la requête la recopie est actualisée.

 

[juliemanette]

L'avantage de Query est que les modifications dans la feuille initiale sont prises en compte.
Ex : un activé recopié devient un désactivé car l'activation était faîte par erreur, avec la mise à jour de la requête

Bonjour à tous,
1 Réponse à la seconde partie : Archivage

Sub Archivage()
    Dim DL%, DL2%, L%
    Application.ScreenUpdating = False
    DL = Range("C65500").End(xlUp).Row
    DL2 = 1 + Range("A65500").End(xlUp).Row
    For L = 3 To DL
        If Cells(L, "E") = "Accepté" Then
            Sheets("Archives").Range("B" & DL2 & ":D" & DL2) = Range("C" & L & ":E" & L).Value
            Sheets("Archives").Cells(DL2, "A") = Date
            DL2 = DL2 + 1
            Application.CutCopyMode = False
            Range("C" & L & ":E" & L).Delete Shift:=xlUp
        End If
    Next L
End Sub

bonjour

merci, mais je comprend pas comment vous avez faite le bouton archiver, j'ai regarder sur internet, ca me dit d'aller dans les options avancées de Excel, mais je n'ai pas cette fonction dans les options..

 

[juliemanette]

Bonsoir à tous,
1 Réponse à la première partie : MFC

merci

 

[juliemanette]

2° partie en Query avec actualisation nécessaire.
j'ai aussi fait une actualisation avec macro mais mon fichier s'attache au message de sylvanu que je salue

bonjour

une actualisation avec macro? savez vous me dire svp

 

[MP59]

bonjour

une actualisation avec macro? savez vous me dire svp

Bonjour,
voir fichier au post #5
c'est le même qu'au post#2 mais en xlsm (macros) avec une macro événementielle qui actualise la feuille de copie de la base lorsqu'on la sélectionne.