Copier/Coller Loop

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

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

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

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

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