Copier/Coller Loop

voilà : https://www.cjoint.com/?BGeppAsuW2S
eric

Re,

regarde si c'est conforme.
Pour simplifier le code il faut ajouter Séquence en Feuil2!D3 :

Sub copierSéquence()
    Const débutSeq As Long = 2012 ' mettre à jour selon le besoin
    Const nbCol As Long = 10 ' nombre de colonnes à nettoyer sur shDest
    '
    Dim shSource As Worksheet, shDest As Worksheet, plage As Range, celDest As Range
    Dim i As Long
    Set shSource = Worksheets("Feuil1")
    Set shDest = Worksheets("Feuil2")
    ' nettoyer
    shDest.[D4].Resize(shDest.[D65536].End(xlUp).Row - 3, nbCol).ClearContents
    'remplir
    Set plage = Range(shSource.[D5], shSource.[D:D].Find("Total général", LookIn:=xlValues, LookAt:=xlWhole).Offset(-1, 0))
    Set celDest = shDest.[D:D].Find("Séquence", LookIn:=xlValues, LookAt:=xlWhole).Offset(1, 0)
    If Not plage Is Nothing Then
        For i = 1 To 12
            celDest.Resize(plage.Rows.Count, 1) = plage.Value
            celDest.Resize(plage.Rows.Count, 1).Offset(0, 1) = débutSeq * 1000 + i
            Set celDest = celDest.End(xlDown).Offset(1, 0)
        Next i
    End If
End Sub

https://www.cjoint.com/?BGdszMlyiBj
eric

ok Je te comprends

La clé qu'il y a sur en feuille 1 D5:D65 (sans le "total général" qui est en D66 car ca serait le signe de retour au début de séquance (D5)) j'aimerais la copier en feuille 2 D4:D64 le long des 2012001 qui sont en E4:E64.

Cette copie "Feuille1 D5:D65" (GQNIYC, MKEPKF,... ) doit etre copiée 12 fois de suite. Cest a dire qu'en feuille2 cellule D4 la séquence commence et se termine en D64 pour 2012001 mais elle recommence en feuille 2 D65 avec 2012002, et pareil pour 2012003 jusqu'à 2012012. Pour chaque 20120XX il y a cette séquence qui se répète.

Tu dois savoir que la séquence feuille 1 D5:D65 qui est à copier (GQNIYC, MKEPKF,...) est en relation avec le Tableau croisé dynamique que tu vois en feuille 1 F4:U66. C'est à dire que le tableau pourra etre modifié avec ajout/suppression de lignes, ce qui modifiera la séquence qu'il y a en feuille1 D5:D65. Donc la macro devra prendre en compte cette variable de manière à ce qu'il n'y ait pas de décalages en feuille 2.

J'aimerai également en feuille 2 F4, une séquence de chiffre 6 qui suive l'éventuelle transformation de la colonne E (c'est à dire que si 2 lignes du tableau croisé sont supprimés, cela réduira le nombre de 20120XX de 2 lignes, ce qui devra engendrer la meme chose pour le nombre de "6" en colonne F).
Tu dois savoir que pour toutes cellules contenant 2012001 en E, alors les cellules en F seront un 6, pour 2012002 ca sera un 7 et 2012003 un 8, tout cela jusqu'à 2012012.

Je te mets un autre lien pour que tu vois a quoi j'aimerais que ca ressemble dans la feuille 2 du premier fichier que je t'ai envoyé.

http://cjoint.com/?0GdpKeUqZ0v

J'espere avoir été clair. Si tu decides de me laisser tomber, previens moi quand meme.

Merci Eric

PS: je t'avais mis des commentaires dans le fichier excel ca n'a pas marché ou est-ce qu'ils n'étaient pas utiles? o_O

Bonjour Eric,

Voici le lien d'un fichier exemple que j'a fait http://cjoint.com/?0GdkUnJvXhD
Je t'ai laissé deux trois mots pour t'expliquer en gros ce que je voulais faire.

Si tu n'es pas sur n'hesites pas à me poster un message.

(le tableau CD = tableau Croisé Dynamique)

Je te remercie par avance

Viapif

Bonsoir,

tu peux déposer un fichier exemple sur cjoint.com et coller ici le lien fourni.

copier et mettre sur une autre feuille
laquelle ?
Le hic, c'est que le tableau CD sera modifié régulièrement
C'est quoi le tableau CD ? Le TCD ?

eric