Une boucle For Each avec ColumnDifferences

Version imprimable

2 pièce(s) jointe(s)

Bonsoir à tous,

Voilà je souhaiterais créer un petit code pour faire ceci:
sachant que les données peuvent changer: exemple dans la case visite cela peux monter à 10 ou 16
onglet départ:

Pièce jointe 512754

onglet arriver:

Pièce jointe 512758

je pense faire 2 boucle for each comme ceci mais pour la deuxième je voudrais faire un columnDifferences mais ça
ne fonctionne pas, ou si vous avez une meilleurs idée merci a vous
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 'la première boucle qui gére type et IMMAT For Each A In .Range("C2:C" & .Range("C" & Application.Rows.Count).End(xlUp).Row) 'Code qui copie les données 'la 2eme boucle gére toute les visites For Each B In .Range("C2:C" & .Range("C" & Application.Columns.ColumnDifferences(Comparison:=ActiveSheet.Range("C" & A.Value))).Row) 'Code qui copie les visite Next B Next A
Mon problème et juste sur la 2 eme boucle je ne mais pas toutes les données dans les boucles pour ne pas surcharger
merci

Bonjour,

Citation:

Envoyé par tony76

Mon problème et juste sur la 2 eme boucle

Tu devrais le régler avec ce code
Code:

1 2 3 4 'la 2eme boucle gére toute les visites For Each B In .Rows(A.Row) If Left(.Range(1, B.Column).Value, 6) = "VISITE" Then 'Code qui copie les visite

Merci pour la réponse anasecu, mais sa ne règle pas mon problème
je m’explique

la première boucle (A) parcours l'enssemble de la colonne C à partir de la C2
et à chaque tour vaut la valeur de la colonne C

et chaque tour de la boucle A la boucle B devrais valoir la totalité des visites de la valeur de A soit dans l'exemple vaut 4 pour 4 visites etc...
et la A devrait valoir a chaque tour la valeur de C2 puis C6 si on suis ma logique

et la je bloque
en espèrent que je réexplique bien.
Code:

1 2 3 4 5 6 'la 2eme boucle gére toute les visites For Each B In 'égale la quantité de la colonne E (visite) d'après la valeur de la colonne C soit dans l'exemple 4 etc... 'Code qui copie les visite Next B

24/10/2019, 18h18
anasecu

Bonsoir,

Citation:

Envoyé par tony76

chaque tour de la boucle A la boucle B devrais valoir la totalité des visites de la valeur de A soit dans l'exemple vaut 4 pour 4 visites etc...

Il me semble bien que c'est ce que fait ma proposition : l'as tu seulement essayée ?
Il faut bien sûr rajouter les cumuls que tu veux lorsque la condition est valide.
24/10/2019, 18h53
tony76
Citation:

Envoyé par anasecu

Bonsoir,

Il me semble bien que c'est ce que fait ma proposition : l'as tu seulement essayée ?
Il faut bien sûr rajouter les cumuls que tu veux lorsque la condition est valide.

oui je les tester a la seconde ou je les vu, car je me fait des nœuds au cerveau depuis un moment
la boucle que tu ma proposé

B = vide
.Rows(A.row) = vide

au premier tour dans la boucle A

B = 2
.Rows(A.row) = 2

la boucle fait un tour et sort, hors je voudrais qu'elle boucle sur l’ensemble des visite
Code:

1 2 For Each B In .Rows(A.Row)
et le if me donne une erreur

Code:

If Left(.Range(1, B.Column).Value, 6) = "VISITE" Then
24/10/2019, 21h26
anasecu

Citation:

Envoyé par tony76

et le if me donne une erreur

au temps pour moi, ainsi cela devrait mieux aller

Code:

If Left(.Cells(1, B.Column).Value, 6) = "VISITE" Then
25/10/2019, 01h07
tony76

1 pièce(s) jointe(s)

Citation:

Envoyé par anasecu

au temps pour moi, ainsi cela devrait mieux aller

Code:

If Left(.Cells(1, B.Column).Value, 6) = "VISITE" Then

Il y a pas de souci mais je dois mal m'expliquer ton if fonctionne mais ne me sert pas !

j'ai fait un petit exemple de ce que je souhaiterais comme dans mon post de départ

en gros 2 onglet

onglet un (Feuil1)

IMMAT TYPE VISITE DATE

7003650 camion vidange 25/02/2018

7003650 camion filtre 02/02/2015

7003650 camion réglage 14/09/2016

7003650 camion vidange 02/03/2022

7003650 camion V.pont 25/10/2024

onglet 2 (BDD) (ce que je cherche à faire)

IMMAT TYPE VISITE DATE VISITE DATE VISITE DATE VISITE DATE VISITE DATE

7003650 camion vidange 25/02/2018 filtre 02/02/2015 réglage 14/09/2016 vidange 02/03/2022 V.pont 25/10/2024

je me triture le cerveau depuis une petite semaine la je bloque

ci-joint le fichier Excel avec les bases minimaliste et le code réduit au plus petit possible

Pièce jointe 513042

merci d'avance
25/10/2019, 11h50
anasecu

Bonjour,

Citation:

Envoyé par tony76

je dois mal m'expliquer

J'ai bien l'impression que tu as raison ;-)

Citation:

Envoyé par tony76

onglet un (Feuil1)

IMMAT TYPE VISITE DATE

7003650 camion vidange 25/02/2018

Et dans ton classeur cela devient :

EMAT8 TYPE IMMAT PDATE PKM PH ENSEMBLE DATEVID KMVID HVID SAISIEPOT HNOUV PERKM PERH PERMOIS

Comment concilier les deux vu la non-conformité ?
25/10/2019, 14h43
tony76

Citation:

Envoyé par anasecu

Bonjour,

J'ai bien l'impression que tu as raison ;-)

Et dans ton classeur cela devient :

EMAT8 TYPE IMMAT PDATE PKM PH ENSEMBLE DATEVID KMVID HVID SAISIEPOT HNOUV PERKM PERH PERMOIS

Comment concilier les deux vu la non-conformité ?

Bonjour et merci pour ta patience

En faite non c'est le contraire

sheets("Feuil1") la feuil de départ

EMAT8 TYPE IMMAT PDATE PKM PH ENSEMBLE DATEVID KMVID HVID SAISIEPOT HNOUV PERKM PERH PERMOIS

sheets("BDD") la feuil d'arrivé (je colle pas tout trop long)

IMMATRICULATION MARQUE TYPE SECTION RETARD KM H POT Echange COMPT Potentiel Total MOTIF N°DET DATE_IDSPO VISITE 1 etc.

j'ai mis les couleurs pour simuler ce que sa dois donner dans l'onglet BDD pour te faire voir ce que je souhaite faire (je n'est pas tout fait mais le principe et la)

pour la non conformité je ne pense pas ce que soie un problème je peux copier une cellule X vers une autre cellule Y
comme je les fait dans le code

le plus difficile dans ce code se sont les 2 boucles A et B

Code:

Sheets("BDD").Range("A" & DerLgn_BDD + 1).Value = Sheets("Feuil1").Range("C" & A.Row).Value
25/10/2019, 21h55
anasecu

1 pièce(s) jointe(s)

Bonjour,

Citation:

Envoyé par tony76

je me triture le cerveau depuis une petite semaine la je bloque

Je comprend bien car ce que tu veux réaliser n'a pas l'air bien précis.

Citation:

Envoyé par tony76

le plus difficile dans ce code se sont les 2 boucles A et B

Pour les boucles je t'ai rajouté une feuille 'test' avec le code des boucles.

Ce n'est peut-être pas ce que tu veux mais cela te permettra de préciser.

IMMAT	TYPE	VISITE	DATE
7003650	camion	vidange	25/02/2018
7003650	camion	filtre	02/02/2015
7003650	camion	réglage	14/09/2016
7003650	camion	vidange	02/03/2022
7003650	camion	V.pont	25/10/2024

IMMAT	TYPE	VISITE	DATE	VISITE	DATE	VISITE	DATE	VISITE	DATE	VISITE	DATE
7003650	camion	vidange	25/02/2018	filtre	02/02/2015	réglage	14/09/2016	vidange	02/03/2022	V.pont	25/10/2024

IMMAT	TYPE	VISITE	DATE
7003650	camion	vidange	25/02/2018

Merci pour ton code, j'avais pas pensé au

Code:

setp 9

bien vu

mais ce n'est pas encore le rendu que je souhaiterais

ce que ton code donne: (j'ai volontairement raccourci les lignes pour en ne laisser que 3 de chaque IMMAT pour la lisibilité)

IMMAT TYPE VISITE DATE

70030056 PREMIUM 340 4X2 CHRONOTACHYGRAPHE 01/05/2018

70030056 PREMIUM 340 4X2 CONTROLE CRIC

70030056 PREMIUM 340 4X2 ECHANGE APG

70030057 PREMIUM 340 4X2 CHRONOTACHYGRAPHE

70030057 PREMIUM 340 4X2 CONTROLE CRIC

70030057 PREMIUM 340 4X2 ECHANGE APG

70030060 PREMIUM 340 4X2 CHRONOTACHYGRAPHE

70030060 PREMIUM 340 4X2 CONTROLE CRIC

70030060 PREMIUM 340 4X2 ECHANGE APG

ce que je souhaiterais avoir il n'y à plus qu'une seul IMMAT et TYPE par ligne et les visites qui sont dans le premier tableau vertical devienne horizontal (les dates sont fictive)

IMMAT TYPE VISITE DATE VISITE DATE VISITE DATE

70030056 PREMIUM 340 4X2 CHRONOTACHYGRAPHE 01/05/2018 CONTROLE CRIC 01/05/2018 ECHANGE APG 01/05/2018

70030057 PREMIUM 340 4X2 CHRONOTACHYGRAPHE 02/05/2018 CONTROLE CRIC 02/05/2018 ECHANGE APG 02/05/2018

70030060 PREMIUM 340 4X2 CHRONOTACHYGRAPHE 03/05/2018 CONTROLE CRIC 03/05/2018 ECHANGE APG 03/05/2018

En espèrent que je me suis mieux explique :arf:

IMMAT	TYPE	VISITE	DATE
70030056	PREMIUM 340 4X2	CHRONOTACHYGRAPHE	01/05/2018
70030056	PREMIUM 340 4X2	CONTROLE CRIC
70030056	PREMIUM 340 4X2	ECHANGE APG
70030057	PREMIUM 340 4X2	CHRONOTACHYGRAPHE
70030057	PREMIUM 340 4X2	CONTROLE CRIC
70030057	PREMIUM 340 4X2	ECHANGE APG
70030060	PREMIUM 340 4X2	CHRONOTACHYGRAPHE
70030060	PREMIUM 340 4X2	CONTROLE CRIC
70030060	PREMIUM 340 4X2	ECHANGE APG

IMMAT	TYPE	VISITE	DATE	VISITE	DATE	VISITE	DATE
70030056	PREMIUM 340 4X2	CHRONOTACHYGRAPHE	01/05/2018	CONTROLE CRIC	01/05/2018	ECHANGE APG	01/05/2018
70030057	PREMIUM 340 4X2	CHRONOTACHYGRAPHE	02/05/2018	CONTROLE CRIC	02/05/2018	ECHANGE APG	02/05/2018
70030060	PREMIUM 340 4X2	CHRONOTACHYGRAPHE	03/05/2018	CONTROLE CRIC	03/05/2018	ECHANGE APG	03/05/2018

1 pièce(s) jointe(s)

Bonsoir,

Citation:

Envoyé par tony76

ce que je souhaiterais avoir il n'y à plus qu'une seul IMMAT et TYPE par ligne et les visites qui sont dans le premier tableau vertical devienne horizontal (les dates sont fictive)

Pour cela il n'y a pas beaucoup de modifications à faire puisqu'il suffit d'étaler les colonnes.

Voila ton classeur modifié (avec les dates toujours fictives :) ) et le code pour ceux qui n'ouvrent pas les classeurs

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim A As Range, col As Long, clv As Long, lig As Long, tdc As Long
    tdc = Application.Calculation
    Application.Calculation = xlCalculationManual
    lig = 2
    Rows(lig).Resize(Range("A" & Application.Rows.Count).End(xlUp).Row).ClearContents
    With Sheets("BDD")
        For Each A In .Range("C2:C" & .Range("C" & Application.Rows.Count).End(xlUp).Row)
            Cells(lig, 1) = A.Offset(0, -2).Value
            Cells(lig, 2) = A.Value
            clv = 3
            For col = 14 To .Cells(1, Columns.Count).End(xlToLeft).Column Step 9
                If .Cells(A.Row, col).Value <> "" Then
                    Cells(lig, clv) = .Cells(A.Row, col).Value
                    Cells(lig, clv + 1) = .Cells(A.Row, col).Offset(0, 1).Value
                    If Cells(1, clv).Value = "" Then Cells(1, clv - 2).Resize(1, 2).Copy Destination:=Cells(1, clv)
                    clv = clv + 2
                End If
            Next col
            lig = lig + 1
        Next A
    End With
    ActiveSheet.UsedRange.Columns.AutoFit
'    MsgBox ("Traitement terminé.")
    Application.Calculation = tdc

26/10/2019, 22h27
tony76

Merci j'ai eu un moment de joie :mouarf:

Mais tu part de l'onglet BDD pour aller à l'onglet test

hors mon souhait et de partir de l'onglet Feuil1 pour aller à l'onglet BDD ou test peu importe
27/10/2019, 11h56
anasecu

1 pièce(s) jointe(s)

bonjour,

Citation:

Envoyé par tony76

hors mon souhait et de partir de l'onglet Feuil1 pour aller à l'onglet BDD ou test peu importe

Qu'à cela ne tienne mon code un peu modifié fonctionne aussi avec cette feuille
27/10/2019, 18h17
tony76

Citation:

Envoyé par anasecu

bonjour,

Qu'à cela ne tienne mon code un peu modifié fonctionne aussi avec cette feuille

Bonjour,

Bah un grand merci tout simplement génial encore mieux que ce que je pensé :mouarf3: ,
j'ai juste 2 ou 3 petites modif pour que sa rentre dans les bonne cases mais le plus dur et fait.

Un grand merci anasecu :ccool: