Discussion :

[Tydher]

Bonjour à tous,

J'ecris en ce moment une macro me permettant d'effectuer plusieurs traitements.

A un moment, je copie/colle une plage de cellule :

Code :

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

1
2
3
4
5
6
7
8
9
10
Range("AN1:BC1").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("AN3").Select
    ActiveSheet.Paste
    Range("A1:L1").Select
    Application.CutCopyMode = False
    Selection.Cut
    Range("A3").Select
    ActiveSheet.Paste

Ensuite, je souhaite supprimer la ligne d'où vienne les informations en faisant :

Code :

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

1
2
Range("A1:CJ1").Select
Selection.Delete Shift:=xlUp

Cependant, il me supprime la première ligne mais aussi la ligne collée car il l'a garde en sélection (je l'ai vérifier avec le pas à pas détaillé, où les 3 premières lignes sont en bleues, donc sélectionnées)

Comment puis-je faire pour qu'il ne me supprime que la première ligne?

Merci

[mercatog]

Bonjour
Evite les Select

essaies comme ceci (adapte le nom de la feuille)

Code :

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

1
2
3
4
5
With Sheets("Feuil1")
    .Range("AN1:BC1").Cut .Range("AN3")
    .Range("A1:L1").Cut .Range("A3")
    .Rows(1).Delete
End With

[Tydher]

Oui c'est parfait, ça fonctionne comme je veux.
Je n'avais pas penser à utiliser les With.

Merci beaucoup de ta réponse.

[mercatog]

L'important c'est d'éviter d'utiliser les Select. promis?