Discussion :

[Vadorblanc]

Bonjour
Si dans ("Récap trimestre 4") j'ai au moins 2 lignes écrites A2 : P3 tout fonctionne, mais lorsque je n'ai qu'une ligne écrite A2 : P2 celà provoque un beug. Pourtant j'ai des variables dans cet onglet de 0 à x lignes selon.
Comment modifier ce code pour ne pas avoir ce bloquage ?
Le code va chercher plusieurs Sheets et les colle à la suite dans l'onglet ("Récap trimestres 1+2+3+4").
Merci pour l'astuce

Code :

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

1
2
3
4
5
Sheets("Récap trimestre 4").Activate
Sheets("Récap trimestre 4").Range("A2", Range("P2").End(xlDown)).Copy
 
Sheets("Récap trimestres 1+2+3+4").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False 'Collage spécial valeurs

[gFZT82]

Bonjour Vadorblanc,

Je pense que c’est la ligne

Code :

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

Range("P2").End(xlDown)

qui te joue des tours.

Quand tu n’as qu’une ligne, elle va chercher le fond du panier.
Avec .End(xlUp), ça doit fonctionner

Code :

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

1
2
3
4
5
6
7
8
 
    Dim DerCell As String
    With Sheets("Récap trimestre 4")
        DerCell = .Range("P" & .Rows.Count).End(xlUp).Address
        .Range("A2", Range(DerCell)).Copy
    End With
    Sheets("Récap trimestres 1+2+3+4").Range("A" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False 'Collage spécial valeurs

Cordialement

[Vadorblanc]

Bonjour gFZT82
Je viens d'essayer ton code, mais j'ai un beug sur la ligne:

Code :

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

.Range("A2", Range(DerCell)).Copy

Du coup et après de ce que tu viens de m'écrire, je supprime la variable

Code :

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

Sheets("Récap trimestre 4").Range("A2", Range("P2").End(xlDown)).Copy

par du fixe, sachant que ma plage ne dépassera jamais 100 lignes

Code :

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

Sheets("Récap trimestre 4").Range("A2:P100").Copy

Merci pour ta proposition
Bien cordialement