Discussion :

[tony76]

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:




onglet arriver:



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 :

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
 
'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

[anasecu]

Bonjour,

Mon problème et juste sur la 2 eme boucle

Tu devrais le régler avec ce code

Code :

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

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

[tony76]

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 :

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

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

[anasecu]

Bonsoir,

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.

[tony76]

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 :

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

1
2
 
For Each B In .Rows(A.Row)

et le if me donne une erreur

Code :

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

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

[anasecu]

et le if me donne une erreur

au temps pour moi, ainsi cela devrait mieux aller

Code :

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

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