Discussion :

[tcheylan]

Bonjour,
Je souhaiterais sélectionner une plage de cellule non vide (de A3/A4 à B100 par exemple) pour ensuite la copier a la place exacte que je souhaite (c'est-à-dire en A6), j'ai la macro couper/coller a partir de A3 du type :

Code :

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

1
2
3
4
5
6
7
Sub Copie1()
Worksheets("Feuil1").Activate
Range("A3:B100").Select
Selection.Cut
Range("A6").Offset(0, 0).Select
ActiveSheet.Paste
End Sub

La ligne avec "range" me convient bien car garde l'écart entre les lignes (une ligne vide entre chaque ligne).
Mon problème c'est qu'une fois sur deux la ligne A3 est vide dans ce cas ma copie commence en A7, (car ma macro copie aussi la ligne A3 qui est vide).
Si quelqu'un a une solution pour modifier un peu ce code, merci d'avance.

Cordialement.

[Thautheme]

Bonjour Tcheylan, bonjour le forum,

La règle d'or en VBA c'est d'éviter autant que possible les Select et autres Activate. Pour pallier à ton problème une petit test devrait faire l'affaire :

Code :

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

1
2
3
4
5
6
7
8
9
Sub Copie1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("Feuil1") 'définit l'onglet O
'définit la plage PL (selon que A3 est vide ou pas)
If O.Range("A3") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A4:B100")
PL.Copy ActiveSheet.Range("A6") 'copie la plage PL et la colle dans la cellule A6 de l'onglet actif
End Sub

[Menhir]

Tout d'abord, une réécriture de ta macro :

Code :

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

1
2
3
4
Sub Copie1()
    Worksheets("Feuil1").Activate
    Range("A3:B100").Cut Range("A6")
End Sub

Les Select/Selection, dans la plupart des cas, ça ne fait que compliquer le code et ralentir l'exécution.

Attention aussi : tu dis que tu veux faire une "copie" dans tes explications mais ta macro fait un déplacement (Cut).

Mon problème c'est qu'une fois sur deux la ligne A3 est vide dans ce cas ma copie commence en A7, (car ma macro copie aussi la ligne A3 qui est vide).

Je ne suis pas sûr d'avoir compris ton problème.
Si ce que tu souhaites c'est commencer la copie en A4 si A3 est vide, tu peux faire comme ça.

Code :

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

    Range("A3:B100").Offset(IIf(Range("A3") = "", 1, 0), 0).Cut Range("A6")

[tcheylan]

Super, vos deux solutions fonctionnent et je vous remercie, ma macro est enfin fonctionnelle !
Bonne journée à vous

Edit: Est-il possible de modifier cette macro pour qu'au lieu de couper/coller, elle coupe/insère en décalant les lignes vers le bas ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Copie1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("DPGF") 'définit l'onglet O
'définit la plage PL (selon que A3 est vide ou pas)
If O.Range("A3") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A4:B100")
If O.Range("A4") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A5:B100")
If O.Range("A5") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A6:B100")
PL.Copy Sheets("DPGF_FINAL").Copy("A6") 'copie la plage PL et la colle dans la cellule A6 de l'onglet actif
Set O = Worksheets("DPGF_FINAL")
End Sub

[Thautheme]

Re,

Essaie comme ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Copie1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("DPGF") 'définit l'onglet O
'définit la plage PL (selon que A3 est vide ou pas)
If O.Range("A3") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A4:B100")
If O.Range("A4") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A5:B100")
If O.Range("A5") <> "" Then Set PL = O.Range("A3:B100") Else Set PL = O.Range("A6:B100")
PL.Cut 'coupe la plage PL
Sheets("DPGF_FINAL").Range("A6").Insert Shift:=xlDown  'insère la plage PL à partir de la cellule A6 de l'onglet "DPGF_FINAL" 
'PL.Rows.Delete 'si tu veux supprimer les lignes
Set O = Worksheets("DPGF_FINAL")
End Sub

[tcheylan]

Super, ca fonctionne.
Dernière question pour régler un petit détail, tout s'insère bien et au bon endroit et merci pour votre aide, seulement j'ai un range "A3:B100" qui copie aussi les lignes vides en dessous de ma plage de cellule, ce qui crée parfois un gros espace en dessous de mon insertion;
peut être est-il possible de modifier mon code pour que la macro sélectionne seulement ma plage de cellule, tout en gardant l'espacement entre les lignes ?
Rappel de ma macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copie1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim PL As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("DPGF") 'définit l'onglet O
'définit la plage PL (selon que A3 est vide ou pas)
If O.Range("A3") <> "" Then Set PL = O.Range("A3:B80") Else Set PL = O.Range("A4:B80")
If O.Range("A4") <> "" Then Set PL = O.Range("A3:B80") Else Set PL = O.Range("A5:B80")
If O.Range("A5") <> "" Then Set PL = O.Range("A3:B80") Else Set PL = O.Range("A6:B80")
PL.Copy
Sheets("DPGF_FINAL").Range("A6").Insert Shift:=xlDown 'copie la plage PL et la colle dans la cellule A6 de l'onglet actif
Set O = Worksheets("DPGF_FINAL")
End Sub

[Thautheme]

Arf !... Les questions sans fin. J'adore !...

Essaie ça (si j'ai bien compris) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Copie1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim LD As Integer 'déclare la variable LD (Ligne Début)
Dim LF As Integer 'déclare la variable LF (Ligne Fin)
Dim P As Range 'déclare la variable PL (PLage)
 
Set O = Worksheets("DPGF") 'définit l'onglet O
LD = O.Range("A1").End(xlDown).Row + 1 'définit la ligne du début LD
LF = O.Cells(Application.Rows.Count, "A").End(xlUp).Row + 1 'définit la ligne de fin LF
Set LD = O.Range(O.Cells(LD, 1), O.Cells(LF, 2)) 'définit la plage PL
PL.Copy 'copy la plage PL
Sheets("DPGF_FINAL").Range("A6").Insert Shift:=xlDown 'insere la plage pL à partir de cellule A6 de l'onglet "DPGF_FINAL"
End Sub