Copier une plage et decaler les cellules

Bonjour,

Je voudrais utiliser une formule de copie d'une colonne nommé "Agent" coller dans une feuille nommée HEURES avec la 1ère cellule de la plage à coller à A8 et le reste : le contenu de chaque cellule après après A8 avec un décalage de 7 ligne vers le bas.

Merci du coup de main...

Sinon j'ai essayé avec ce code ci-dessous qui n'a pas marché

Public Sub copy()
Dim Num As Integer
Num = Range("Equipe1").Rows.Count
For i = 0 To Num
Range("Equipe1").Offset(0, i).copy Destinaion:=Range("A2").Offset(0, 2 * i)
Next i
End Sub

Bonjour

Je ne comprends absolument rien. Peut-être parce que ventre vide...

As-tu un extrait de ton fichier...???

Et surtout prend le temps d'exprimer très clairement ce que tu veux...

Je sais , c'est un peu rasoir de faire de la prose , mais cela peut-être très utile.

A bientôt

Bonjour et Merci!

J'ai une une colonne nommé "agent"../

Dans cette colonne j'ai le nom des agents : agent 1, agent2,....

Il y'a une feuille nommé HEURES, je veux copier le nom des agents 1 à 1 mais le 1er agent de la colonne(agent1) dans la cellule A8 de la feuille HEURES, agent2 à 7 lignes en dessous de A8 , agent3, 7 lignes sous la cellule de agent2 ainsi de suite...

En bref, copier une les cellules d'une plage dans des cellules décalé de 8 lignes..

Merci!

Re

En supposant que ta feuille s'appelle Equipe1 avec le noms des agents en colonne A à partir de la deuxième ligne:

Public Sub copier()
Dim Num As Integer
Num = Sheets("Equipe1").Range("A" & Rows.Count).End(xlUp).Row
ligc = 8
For i = 2 To Num
    Worksheets("Equipe1").Range("A" & i).copy Destination:=Worksheets("HEURES").Range("A" & ligc)
    ligc = ligc + 8
Next i
End Sub

Tu copies un à un tes agents dans la feuille HEURES en décalant de 8

Tu peux au moins t'en inspirer

A+

Finalement, il n'y a que des génies ici. Y'a t'il un moyen de contribuer à ce forum.. Je n'ai pas assez d'argent mais si on peut ouvrir les dons ça permettra aux gens comme nous qui sont pauvres mais fier du forum de déposer 10$ ou plus....

Re

En supposant que ta feuille s'appelle Equipe1 avec le noms des agents en colonne A à partir de la deuxième ligne:

Public Sub copier()
Dim Num As Integer
Num = Sheets("Equipe1").Range("A" & Rows.Count).End(xlUp).Row
ligc = 8
For i = 2 To Num
    Worksheets("Equipe1").Range("A" & i).copy Destination:=Worksheets("HEURES").Range("A" & ligc)
    ligc = ligc + 8
Next i
End Sub

Tu copies un à un tes agents dans la feuille HEURES en décalant de 8

Tu peux au moins t'en inspirer

A+

Salut Patty,

Je ne sais pas comment vous avez faites mais ça marche!!!!

Merci!!!

Re

En supposant que ta feuille s'appelle Equipe1 avec le noms des agents en colonne A à partir de la deuxième ligne:

Public Sub copier()
Dim Num As Integer
Num = Sheets("Equipe1").Range("A" & Rows.Count).End(xlUp).Row
ligc = 8
For i = 2 To Num
    Worksheets("Equipe1").Range("A" & i).copy Destination:=Worksheets("HEURES").Range("A" & ligc)
    ligc = ligc + 8
Next i
End Sub

Tu copies un à un tes agents dans la feuille HEURES en décalant de 8

Tu peux au moins t'en inspirer

A+

Salut! Désolé j'avais mal visualisé le résultat... Il a copié toute la colonne alors que je voulais juste la plage nommé agent.

Merci et désolé pour la précipitation!!!

Re

Pour copier une plage :

si nom plage AGENTS

Public Sub copier()
[AGENTS].Copy Destination:=Worksheets("HEURES").Range("A" & ligc)

Je n'ai pas remis tout le code, ...

A+

Re

Pour copier une plage :

si nom plage AGENTS

Public Sub copier()
[AGENTS].Copy Destination:=Worksheets("HEURES").Range("A" & ligc)

Je n'ai pas remis tout le code, ...

A+

Bonjour Patty5046!

Il y'a un gros soucis, quand j'ai mis ce code, c'est devenu bizzarre car il a copié la liste de la plage plusieurs fois au complet sans les décaler...

Ma plage s'appelle agent ....

Soit on garde le premier mais qu'il s'arrête à la première cellule vide......

Merci!

Bonjour

Décidément, difficile quand même sans fichier

quand tu copies ta plage agent sur ta feuille HEURES, peut-être faut-il que tu calcules la dernière ligne de la feuille "HEURES" pour recopier ensuite ta plage 8 lignes plus loin ????

Ce n'est pas très clair pour moi , désolée

Peux-tu tout de même joindre un extrait de ton fichier ,j'y verrai peutêtre plus clair

Sinon, j'essaie de réfléchir !!!!???? après mon déjeuner, mais sans garantie

A+

Bonjour,

Veuillez trouver le fichier ci-joint.

dans la feuille QUART PAR AGENT il y'a la liste des agents qui est pris dans la feuille EQUIPE...

Je veux juste copier cette liste d'agent et le coller dans la feuille HEURES , j'ai mis l'agent1 et l'agent2 ....

Par ailleurs si vous avez un moyen pour faire la même chose avec le tableau ça serait mieux.

la macro est dans le Module4.

Merci d'avance!

32tased.xlsm (129.12 Ko)

Bonjour

Est-ce que cela te va mieux ???

61tased-2.xlsm (117.17 Ko)

Tu vois

A+

Salut!

C'est ça même et ça marche bien! Merci!

Avez vous une idée pour faire de même avec le tableau ie quand les agents augmentent qu'on puissent copier la table de formule qu'autant d'agent.

Merci!

Erreur de message pour ma part, désolé !

Désolé, c'est une erreur de post!

Rechercher des sujets similaires à "copier plage decaler"