Couper selection multiple

  • Initiateur de la discussion Initiateur de la discussion CB60
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

CB60

XLDnaute Barbatruc
Bonsoir à tous
Quelqu'un a t il une astuce pour remplacer cela qui ne fonctionne pas
Code:
Sub Couper()
    Set Destination = Sheets("Réalisé").[A65536].End(xlUp)(2)
    Set filtre = Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
       filtre.EntireRow.Select
       Selection.Cut
       Destination.Paste
 
End Sub
 
Re : Couper selection multiple

re Bonsoir
Je viens de m'en sortir de cette façon :
en faisant un tris avant de copier et effacer mes valeurs
Code:
Sub trisCoupe()
Application.ScreenUpdating = False
Set destination = Sheets("Réalisé").[A65536].End(xlUp)(2)
    Columns("A:J").Select
    [J1].Sort Key1:=[J2], Order1:=xlAscending, Key2:=Range("A2") _
        , Order2:=xlAscending, Key3:=Range("B2"), Order3:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
        xlSortNormal
    Selection.AutoFilter Field:=10, Criteria1:="réalisé"
    Set filtre = Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
       filtre.EntireRow.Select
       Selection.Copy
       destination.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.ClearContents
    Selection.AutoFilter Field:=10
    [a2].Select
    Application.ScreenUpdating = True
End Sub
je vais tester ta boucle, merci
 
Re : Couper selection multiple

Bonsoir CB60, bhbh,

je te propose ceci (si j'ai bien compris):

Code:
 Sub Couper()
Set Destination = Sheets("Réalisé").[A65536].End(xlUp)(2)
Set filtre = Range("A2", [A65000].End(xlUp)).SpecialCells(xlCellTypeVisible)
filtre.EntireRow.Copy Destination
filtre.EntireRow.ClearContents

End Sub
 
Re : Couper selection multiple

Bonsoir Skooby

J'etais pas partie sur un copié mais c'est beaucoup plus clair que mon boulot.
Merci
edit j'ai mis ça sur la derniere ligne de la macro
filtre.EntireRow.Delete Shift:=xlUp
pour éviter les lignes vides
Bhbh, ta boucle fonctionne mais ne me prend pas l'ensemble de la ligne.

Bonne soirée
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
8
Affichages
431
Réponses
6
Affichages
292
Réponses
12
Affichages
874
Réponses
10
Affichages
455
Réponses
3
Affichages
437
  • Question Question
Microsoft 365 Question code VBA
Réponses
2
Affichages
364
Retour