Microsoft 365 mettre une ligne d'un tableau dans une autre feuille a partir d'une condition (liste déroulante)

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #2

Bonjour CF31, et bienvenu sur XLD,
Sans fichier test pour guider, une ébauche en PJ.
Elle utilise une macro événementielle Worksheet_Change qui s'active lorsque Accepté est entré en colonne B.
cette macro doit être impérativement dans la feuille considérée, avec :

VB:

Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [B:B]) Is Nothing Then             ' Colonne de détection
        If Target <> "Accepté" Then Exit Sub                    ' Non accepté donc on sort
        Dim DL%, Ligne%, N%
        Application.ScreenUpdating = False                      ' Figeage écran
        DL = 1 + Sheets("Accepté").[B65500].End(xlUp).Row       ' Première ligne vide de Accepté
        Ligne = Target.Row                                      ' Ligne à copier
        For N = 1 To 3                                          ' Car 3 colonnes à copier
            Sheets("Accepté").Cells(DL, N) = Cells(Ligne, N)    ' Copie de la ligne dans Accepté
        Next N
        Application.ScreenUpdating = True                       ' Libération écran
    End If
End Sub

 

Pièces jointes

• CF31.xlsm

  15 KB · Affichages: 9

Vote positif 0 Vote négatif

Solution

C

CF31

XLDnaute Nouveau

• 10 Février 2022

• #3

Merci beaucoup !
Par contre, je ne sais pas comment on fait une macro?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #4

Re,
Sans macro, je ne vois pas comment faire un transfert inter feuilles.
Dans ce cas, deux possibilités :
1- Vous mettez un filtre sur votre tableau. Vous pouvez ainsi filtrer sur Accepté sans transfert de ligne, et donc sans macro.
2- Vous faites un fichier vraiment représentatif que vous fournissez. J'implémenterais la macro. Normalement vous ne devriez pas y toucher si vous ne changer rien dans la structure du fichier.

 

Vote positif 0 Vote négatif

C

CF31

XLDnaute Nouveau

• 10 Février 2022

• #5

D'accord, merci,

Je peux vous joindre le fichier, je vous l'envoi de suite.
Dans ce fichier je souhaite séparé les devis envoyé et devis accepté

Sinon? est ce difficile de faire une macro ? Je peux apprendre ?

 

Vote positif 0 Vote négatif

C

CF31

XLDnaute Nouveau

• 10 Février 2022

• #6

Voici le fichier

 

Pièces jointes

• test.xlsx

  16.2 KB · Affichages: 4

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #7

CF31 à dit:

Sinon? est ce difficile de faire une macro ? Je peux apprendre ?

Cliquez pour agrandir...

Par expérience, aujourd'hui dans l'industrie, maitriser le VBA est un plus.
Cela permet souvent de gagner beaucoup de temps, et sur un CV c'est toujours un plus.
Qui plus est, c'est aussi une amélioration de ses connaissances, et plaisant à l'utilisation.

Il y a d'innombrables tutos dispo sur internet, comme par ex:
Celui de David sur XLD :

VBA

www.excel-downloads.com

Mais aussi :

Comment débuter en programmation VBA sous Excel 1/2 - pro.Du.code(^^);

Vous souhaitez apprendre à programmer et vous utilisez beaucoup Excel ? Cliquez ici pour apprendre à programmer en VBA.

pro-du-code.com

Cours VBA pas à pas pour débutant - Cours VBA

Visual basic pour les applications vba : visual basic cours vba pas à pas pour débutant for application est le langage de programmation intégré à la suite bureautique microsoft office.

www.cours-gratuit.com

....
Faites une recherche avec "débuter en VBA excel" ou "initiation VBA" ....

Quand à votre fichier, je vais le traiter de suite.

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #8

Ci joint un essai.
J'ai mis identiques tous les tableaux, ColC à Col J, c'est plus simple pour la copie.
Pour voir la macro faire ALT+F11 ( ou onglet Développeur / Visual Basic ),
puis cliquer sur Feuil1(2022), vous avez le code dans la feuille.

 

Pièces jointes

• test (V2).xlsm

  24.4 KB · Affichages: 9

Vote positif 0 Vote négatif

C

CF31

XLDnaute Nouveau

• 10 Février 2022

• #9

Super! merci beaucoup!

Si je veux réaliser la même chose dans un autre document (pour les prochain exercice) y a t-il un moyen de copier coller la macro?

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 10 Février 2022

• #10

Vous pouvez enregistrer sous .... et modifier le nouveau fichier.
ou
1- Vous ouvrez ma PJ
2- Vous ouvrez votre fichier
3- Vous faites ALT+F11
4- Dans feuille1(2022) vous copiez tout le texte
5- Dans la feuille concernée de votre fichier vous faites coller
Mais dans ce cas il faut modifier si besoin le nom des colonnes (J) et le nom des autres feuilles utilisées ( Acceptés et En cours-envoyés )

Cependant il n'est peut être pas "pertinent" de commencer par une macro événementielle qui est un peu spéciale car d'exécution automatique. Vous devriez commencer par une macro "plus classique" avec des exemples donnés dans les tutos.

 

Vote positif 0 Vote négatif

C

CF31

XLDnaute Nouveau

• 10 Février 2022

• #11

Je vous avoue que je n'avait aucune idée qu'il fallait utiliser une macro !
Mais je vais me renseigner pour apprendre!

Merci beaucoup en tout cas !

 

Vote positif 0 Vote négatif