Bonjour,

J'ai vraiment du mal à trouver le petit bout de programme qui me manque.

Voilà, je veux copier les lignes 22 à 28 d'un feuille sur une autre ou bien les lignes 22 à 29 toujours d'une feuille sur une autre jusqu'à lignes 22 à 41.

Voilà le morceau de programme ci-dessous qui fonctionne uniquement pour les lignes 22 à 38 ( ce programme garde la mise en forme = hauteur des lignes )


Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub Macro1()
    Rows("22:38").Select
    Range("AB22").Activate
    Selection.Copy
    Sheets("Compétences").Select
    Range("A2").Select
    ActiveSheet.Paste
    Range("A2:A3").Select
End Sub
Le souci est que je veux remplacer 38 par une variable " i " que j'aurai défini avant.
j'ai tout essayé ( à mon niveau ). J'ai même utilisé la fonction cells car en fait si je copie non pas les lignes mais les colonnes ( de A à W ) ça me suffit. Autrement dit je commence de A22 et termine à W28 ou W29 ( jusqu'à W41 ).

Le souci est de garder la mise en forme.

Merci d'avance.


Novice72