Copie Decaler

[br44]

Bonjour le forum ,

lors d'un essais sur mon programme je me suis aperçu d'un petit souci .

En effet , je dois effectuer l'opèration suivante copier dans l'odre chronologique des fiches qui doivent appâraitre dans un ordre different .

Vous trouverez ci-joint un fichier explicatif .

Vous remerciant par avance je vous dis à bientôt
BR44

 

[skoobi]

Re : Copie Decaler

Bonjour br44,

ton soucis me dit quelque chose ...... 😀

Le mieux je pense serait que tu affectes une plage bien précise pour chaque Refclient dans la feuille groupage afin que l'ordre soit toujours réspecté.

Celà donnerait (par exemple) pour C018:

If Range("G3").Value = "C018" Then
      L = 1
'Si une modification n'est pas en cours
    If TrouveRefCgr Is Nothing Then
         Sheets("Détail").Range("1:29").Copy Sheets("GroupageClients").Range[B][COLOR="Red"]("A1")[/COLOR][/B]

et pour C040 (j'ai mis "A90" au pif)

ElseIf Range("G3").Value = "C040" Then
    L = 5
'Si une modification n'est pas en cours
    If TrouveRefCgr Is Nothing Then
         Sheets("Détail").Range("1:29").Copy Sheets("GroupageClients").Range[B][COLOR="red"]("A90")[/COLOR][/B]
         Sheets("Facture").Range("1:50").Copy
    With Sheets("GroupageClients").Range("A65536").End(xlUp).Offset(1, 0)  (A COMPLETER SI NECESSAIRE)
                   .PasteSpecial Paste:=xlValues
                   .PasteSpecial Paste:=xlFormats

etc....

Les modifications sont à faire que pour la création c'est à dire dans la partie "'Si une modification n'est pas en cours" uniquement.

Test et dis nous 🙂

 

[br44]

Re : Copie Decaler

Re: Bonjour Skoobi,le forum

Merçi pour cette réponse et j'ai tester seulement il y a petit souci car dans se cas les deux feuilles se s'èparent la première va bien en (("A30" ) adresse exact) mais l'autre se place à la suite de la Ref C038 . Si je mets l'addresse de la cellule dans se cas ("A60") il y a un message d'erreure qui dit :la zone de collage doit être de même taille que la zone copier :cellule fusioner

De plus je me retrouve de nouveau avec mon problème de formule au niveau de l'adresse.

Mais je vais essayer en entrant la plage ("60:110") peut-être que comme ça ?

J'avais penser à un select case où au truc du genre :

For i= 1 to 2 Step 79 Nombre de lignes pour les deux feuilles

Mais je ne sais pas si se style le code est employable dans ce cas?


En te remerciant pour cette rèponse je te dis à plus et je continue à chercher à bientôt donc sur se post . Br44

 

[br44]

Re : Copie Decaler

Re: Rebonjour à tous ,

Ce petit message pour vous dire qu'aprés essai avec la plage complète ça marche 🙂

Il ne me reste plus qu'à adapter pour la Ref C103 est se sera bon .

Milles excuses pour le dèrangement inutile et Merçi à tous ceux qui se sont interesser à se post . A bientôt donc sur le forum
Amicalement BR44