XL 2016 Filtrer et transférer des données vers une autre feuille

  • Initiateur de la discussion Initiateur de la discussion Dadi147
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Dadi147

XLDnaute Occasionnel
Bonjour, comment puis-je transférer les données de chaque produit sur une feuille spéciale sous la condition des noms dans la première colonne
Capture d’écran 15-10-2022 01.53.15.png
 

Pièces jointes

Solution
Bonjour Dadi, Staple,
Un essai en PJ avec :
VB:
Sub Dispatche()
    On Error GoTo Fin
    Application.ScreenUpdating = False
    Dim DL%, L%, F
    DL = [A65500].End(xlUp).Row
    For Each F In Worksheets
        If F.Name <> "data" Then
            With Sheets(F.Name)
                .Range("A1:E10000").ClearContents
                .Cells(1, 1) = F.Name: .Cells(1, 2) = "km": .Cells(1, 3) = "prix"
            End With
        End If
    Next F
    For L = 2 To DL
        Feuille = Cells(L, "A")
        If Feuille = "" Then Exit Sub
        With Sheets(Feuille)
            .Cells(.[C65500].End(xlUp).Row + 1, 2) = Cells(L, 3)
            .Cells(.[C65500].End(xlUp).Row + 1, 3) = Cells(L, 5)
        End With
    Next L
    Exit Sub
Fin:
    MsgBox "La...
Bonjour le fil, @Dadi147

@Dadi147
Comme déjà expliqué, en utilisant les possibilités offertes par le TCD
(Tableau Croisé Dynamique)
C'était dans une autre de tes discussions

Apparemment tu n'as pas essayé ma proposition ?
(qui ne nécessite aucune connaissance en VBA, puisque tout se fait dans Excel à la souris)
 
Apparemment tu n'as pas essayé ma proposition ?
(qui ne nécessite aucune connaissance en VBA, puisque tout se fait dans Excel à la souris)
Bonjour le fil, @Dadi147

@Dadi147
Comme déjà expliqué, en utilisant les possibilités offertes par le TCD
(Tableau Croisé Dynamique)
C'était dans une autre de tes discussions

Apparemment tu n'as pas essayé ma proposition ?
(qui ne nécessite aucune connaissance en VBA, puisque tout se fait dans Excel à la souris)
Bonjour... Franchement, j'ai essayé plusieurs fois, mais je n'ai pas réussi à mettre en œuvre la question, alors je vous ai raconté mon expérience. Je veux un code qui effectuera la tâche sans interférer avec moi. Merci de votre suivi.
 
Bonjour Dadi, Staple,
Un essai en PJ avec :
VB:
Sub Dispatche()
    On Error GoTo Fin
    Application.ScreenUpdating = False
    Dim DL%, L%, F
    DL = [A65500].End(xlUp).Row
    For Each F In Worksheets
        If F.Name <> "data" Then
            With Sheets(F.Name)
                .Range("A1:E10000").ClearContents
                .Cells(1, 1) = F.Name: .Cells(1, 2) = "km": .Cells(1, 3) = "prix"
            End With
        End If
    Next F
    For L = 2 To DL
        Feuille = Cells(L, "A")
        If Feuille = "" Then Exit Sub
        With Sheets(Feuille)
            .Cells(.[C65500].End(xlUp).Row + 1, 2) = Cells(L, 3)
            .Cells(.[C65500].End(xlUp).Row + 1, 3) = Cells(L, 5)
        End With
    Next L
    Exit Sub
Fin:
    MsgBox "La feuille " & Cells(L, "A") & " n'existe pas."
End Sub
 

Pièces jointes

- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
5
Affichages
318
Réponses
4
Affichages
221
Réponses
7
Affichages
387
Réponses
1
Affichages
489
Retour