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

juliemanette · 20 Février 2023

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 · 20 Février 2023

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

sylvanu · 20 Février 2023

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

VB:

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 · 20 Février 2023

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 · 20 Février 2023

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

MP59 · 20 Février 2023

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 · 21 Février 2023

MP59 à dit:
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

sylvanu à dit:

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

VB:

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

Cliquez pour agrandir...

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 · 21 Février 2023

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

merci

juliemanette · 21 Février 2023

MP59 à dit:
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 · 21 Février 2023

juliemanette à dit:
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.

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

juliemanette

XLDnaute Nouveau

Pièces jointes

MP59

XLDnaute Occasionnel

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

MP59

XLDnaute Occasionnel

Pièces jointes

MP59

XLDnaute Occasionnel

Pièces jointes

MP59

XLDnaute Occasionnel

juliemanette

XLDnaute Nouveau

juliemanette

XLDnaute Nouveau

juliemanette

XLDnaute Nouveau

MP59

XLDnaute Occasionnel

Discussions similaires