Faire un coller sans ecraser les lignes masquées

Bonjour à tous,

J’ai pu résoudre un problème grâce à brunoM45 (Merci).

Je souhaite résoudre le 2° problème. Qui m’a l’air compliqué…..du moins pour moi.

Mon fichier en copie..

A la base, entre les lignes (A7 et A14) (A14 et A21) (A21 et A28)(A28 et A35) (A35 et A42) (A42 et A49) (A49 et A55) etc.…

il y aura toujours 6 lignes masquées. Ces 6 lignes ne doivent jamais être supprimées.

Quand la personne récupère ce fichier, ce fichier est vide. Elle doit faire un copier coller de données qui lui concerne et cela depuis un autre classeur. (Ce ne sont jamais les mêmes données.) IL y a souvent 300 lignes.

Je voulais donc savoir si on pouvait faire un coller de ces données dans ce fichier vide ou en écrasant les anciennes, sans les coller dans les lignes masquées.

Un grand merci d'avance.

Francis

Bonjour,

Je ne comprend pas bien ce que tu explique, sur ton classeur il n'y a que les lignes 5 et 6 qui sont cachées.

Elle ne servent, à priori, que pour valider ta liste en colonne G

??

Tu dis.

A+

Bonjour et merci de t’occuper de mon cas….

Tout à fait, les lignes 5 et 6 elles ne servent qu’à valider la liste en colonne G.

Ce sont les lignes dessous : entre les lignes (A7 et A14) (A14 et A21) (A21 et A28) (A28 et A35) (A35 et A42) (A42 et A49)

(A49 et A55) etc.…il y aura toujours 6 lignes masquées. Ces 6 lignes ne doivent jamais être supprimées.

Peuvent être renseigné MAIS SURTOUT NE PAS POUVOIR COLLER

Pour mieux m’expliquer, si je copie depuis un autre classeur une liste de A7 à A230, je souhaite que ces valeurs ne soient pas coller dans les lignes masquées.

Merci

Tu a bien relu ce que tu écrit ??

Entre les lignes (A7 et A14) (A14 et A21) QUELLE SONT LES LIGNES CACHEES ??

Exacte, entre la ligne A7 et A14 il y a 6 lignes masquées (A8, A9, A10, A11, A12, A13)

Je te fournis un autre fichier avec une liste de données à copier

Là c'est clair..

C'est possible mais faudra employer une feuille tampon, en direct non.

Tu dis.

A+

Je ne sais pas ce qu'est une feuille tampon ....

le fichier à copier peut venir de n'importe quel services.

Mais une chose est sur c'est que ces données doivent être coller dans mon fichier (que tu as)

Merci

Une feuille tampon c'est une feuille qui ne sert qu'à recevoir le "coller"

A partir de là ont peu dispatcher les lignes comme ont veux.

En clair.. faudrait une "fausse page" de copie.

le probleme est que je peut avoir jusqu a 400 lignes a coller...la galere

n y aurait il pas une autre solution.

car mon equipe est aussi bon que moi sur excel. c est dire nul

le probleme est que je peut avoir jusqu a 400 lignes a coller...la galere

n y aurait il pas une autre solution.

car mon equipe est aussi bon que moi sur excel. c est dire nul

400 lignes.. 400.000 lignes aucune importance (si ce n'est le temps)

Comment arrive la copie ?

l'équipe copie où ? et comment.

Apparemment tu est en réseau ?

Oui, c'est en reseau

Cette copie se fait depuis un fichier ou il y a des milliers de données. l'equipe prend ce qu'elle à besoin. Elle fait un copier puis doit le coller dans le fichier que je t ai envoyé.

Je pense m'être mieux éxpliqué!!

Oui,

Tu peu pas les obligés à copier sur une feuille;;; disons "Provisoire" et cliquer sur un bouton ?

Note : j'essaye de te trouver une solution.

oui je faire comme ca

Alors ça pose plus de problème, mais plus le temps maintenant (ou plutôt plus envie).. demain je vois pour finaliser .. OK ?

Ou un autre intervenant ?

ok

merci

ok

merci

Re,

Clle le code ci-dessous sur le Module1

Sub CopierLigne()
Dim Lig As Long, S As String
Dim LigEsp As Long
Dim Wks As Worksheet
    Set Wks = Sheets("AnnexePS")
    LigEsp = 7
    Application.ScreenUpdating = False
    With Sheets("Feuil1")
        For Lig = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
            .Range("A" & Lig & ":F" & Lig).Copy Wks.Cells(LigEsp, 1)
            S = LigEsp + 1 & ":" & LigEsp + 6
            Wks.Rows(S).Hidden = True
            LigEsp = LigEsp + 7
        Next Lig
    End With
End Sub

Ensuite tu le lie à un bouton

Les données sur la feuil1 sont copiées sur la feuille AnnexePS toutes les 7 lignes.

A+

Edit: ajoute aussi la ligne

    Application.ScreenUpdating = False

dans ton autre macro, ça ira plus vite.

merci

j essai ce code a midi

je te tiens au courant

francis

merci

j essai ce code a midi

je te tiens au courant

francis

Bonsoir,

J'ai testé le code mais cela ne fonctionne pas ....

Je pense que c'est à cause du bouton. Je ne sais pas faire...

Peut tu inserer le code et le bouton sur mon fichier??

Merci

Francis

Voila..

Un grand merci à toi

Tout fonctionne comme je le souhaitais.

Merci

Francis