Discussion :

[ThSPB]

Bonjour à toutes et tous,
J'ai un souci, vraisemblablement de syntaxe, pour sélectionner une plage mobile afin de la coller sur une autre feuille.
Je m'explique, sur la feuille "Compilation" qui contient environ 1800 colonnes actives j'ai créé des pavés identiques "Activité1", "Activité2", etc jusqu’à "Activité60". Sur la 3ème colonne de chacun des pavé se trouve des commentaires (lignes 13 à 72), ce sont ces commentaires que je souhaites coller dans une autre feuille "Synthèse Activité" a partir de la cellule "N65". Et comme vous l'avez compris pour chaque pavé, l'adresse de la colonne recherchée change. J'ai donc "déclaré" l'integer "CTCom" (Colonne Transfert Commentaires) qui va donner le numéro de la colonne, j'ai vérifié il fonctionne.
Voici mon code (Soyez indulgent s'il vous plait) .

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
    Range("N65").Select
        Sheets("Compilation").Cells(13, CTCom).Cells(72, CTCom).Select
            Selection.Copy
        Sheets("Synthese activité").Select
            ActiveSheet.Paste

Pouvez vous me donner la bonne syntaxe ?
Merci d'avance
Thierry

[Daniel.C]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim C As Range
With Sheets("Compilation")
    .Range(.Cells(13, ctcom), .Cells(72, ctcom)).Copy
End With
With Sheets("Synthese activité")
    .Select
    Set C = .Range("N65").End(xlDown)
    If C.Row = .Rows.Count Then
        .Range("N65").Select
    Else
        C.Select
    End If
    .Paste
End With

[ThSPB]

Bonjour Daniel et Merci.
Ça fonctionne exactement comme je le voulais. Je vais faire tourner et également chercher à comprendre pour pouvoir le reproduire et l'adapter à de prochain besoins.
Encore une fois Merci
Thierry

[Daniel.C]

Voici le code commenté. S'il y a quelque chose que tu ne comprends pas, dis-le.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Dim C As Range
'tous les noms commençant par "." se rattachent à "Sheets("Compilation")"
With Sheets("Compilation")
    'copie de la plage
    .Range(.Cells(13, ctcom), .Cells(72, ctcom)).Copy
End With
'tous les noms commençant par "." se rattachent à "Sheets("Synthese activité")"
With Sheets("Synthese activité")
    'sélection de la feuille
    .Select
    '"C" est la dernière cellule remplie
    Set C = .Range("N65").End(xlDown)
    'si N65 est vide, "C" représente la dernière cellule de la colonne
    'si c'est le cas, on sélectionne N65
    If C.Row = .Rows.Count Then
        .Range("N65").Select
    Else
        'sinon, on sélectionne la première cellule vide (la cellule sous la dernière cellule rempplie
        C.Offset(1).Select
    End If
    'on effectue le collage
    .Paste
End With