Discussion :

[arctica]

je vous sollicite car j'ai un dossier à faire fonctionner et que je débute en vba
j'ai une 1ere feuille appelée "globale" ayant environ de 3000 à 10000 lignes de données diverses suivant les nombres d'expes dans laquelle la colonne H contient les numéros de départements , et la colonne L contient le nom du transporteur
j'ai une feuille "carte des délais" dans laquelle il y a plusieurs plages nommée d24hr, d48hr, j24hr, j48hr contenant chacune des numéro de départements. et 4 feuilles nommées dhl24, dhl48, joy24, joy48, (total 6 feuilles)
Ce que je souhaiterais c'est que les lignes de la page "globale" contenant un numéro de département ( dans colonne H)appartenant à une des plages dans la feuille "carte des delais" définie par le transporteur colonne L soient copiees dans leurs feuilles de destinations respectives
par exemple
dans la feuille dhl24 on retrouvera toutes les lignes dont les départements appartiennent à la la plage d24hr et dans la feuille dhl48 on retrouvera toutes les lignes dont les département aapartiennent à la plage d48 hr etc de même pour joy48 et joy 24 peut être par le biais de cette formule si(et( gauche (l6;1)="d";nb.si(d24hr;h6);alors transfert vers feuille!dhl24 sinon rien

Merci pour votre aide

[arctica]

Bonjour

voila le fichier en xls

Merci pour votre aide

[mondev]

Salut 'arctica',

Voilà j'ai tenté ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Private Sub Worksheet_Activate()
 
    Me.Cells.Clear
 
    For Each cellH In ThisWorkbook.Sheets("globale"). _
        Range("H1:" & "H" & Range("H1").End(xlDown).Row).Cells
        For Each cellPlage In Application.Range("d24hr").Cells
            If cellH.Value = cellPlage.Value Then
                cellH.EntireRow.Copy
                If Me.Range("H1").End(xlDown).Row = Me.Rows.Count Then
                    If Me.Range("H1").Value = "" Then
                        Me.Paste Destination:=Me.Range("H1").EntireRow
                        Else
                            Me.Paste Destination:=Me.Range("H2").EntireRow
                    End If
                    Else
                        Me.Paste Destination:=Me.Range("H1"). _
                        End(xlDown).Offset(1, 0).EntireRow
                End If
            End If
        Next cellPlage
    Next cellH
 
    Application.CutCopyMode = False
End Sub

Ca à l'air de bien marcher quand on active la feuille "dhl24", ensuite c'est facile de l'adapter pour les autres feuilles.

Mais le problème c'est qu'il est un peu (trop) lourd ce code, alors si c'est pour l'exécuter qu'une seule fois ça ira, mais là comme il est... !

Si c'est ce que tu cherches, on essayera de l'optimiser.


A toi...

[laetitia]

bonjour arctica mondev le forum j'ai regarde tes fichiers quelque chose m'interpelle dans la feuille "carte des delais" tu as des doublons de chiffres normal pas normal??? de plus dans la meme feuille ta plage est variable ou pas ???
de ("b3 & z")

[arctica]

Bonsoir Laetitia, bonsoir Mondev

en réponse à ta question ,Laetitia, non ce ne sont pas des doublons, chaque plage représente un ensemble de département à livrer par 2 transporteur différents en 24hou 48h

ainsi d24hr est l'ensemble des départements à livrer en 24 par dhl
ainsi d48hr est l'ensemble des départements à livrer en 48 par dhl
j48hr est l'ensemble des départements à livrer en 48 par joyaux
j24hr est l'ensemble des départements à livrer en 24 par joyaux

en tous cas merci pour votre aide

Salut Mondev,

la macro me fait une erreur au départ en me disant:
erreur de compilation,
utilisation incorrecte du mot clé me

qu'est ce que me?

[mondev]

Salut,

"Me" c'est l'objet "dhl24" (la feuille). On peut utiliser ce mot clé pour désigner l'objet "parent".
Donc,
- si tu as copié le code dans le module de la feuille "dhl24", il devrait marcher, sinon,
- si tu l'as copié dans un autre module "standard", remplace :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkBook.Sheets("dhl24")

et aussi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub Worksheet_Activate()

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Sub unNomDeTonChoix()

mais dans ce cas, la procédure ne sera pas exécutée automatiquement.


a+...