Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel COPIER COLLER MACRO POUR PIERRE FAUCONIER

COPIER COLLER MACRO POUR PIERRE FAUCONIER

2 réponses
Avatar
michel craps
code de la macro

Sub abss()
'
' abss Macro
' Macro enregistrée le 19/09/2004 par michel craps
'
' Touche de raccourci du clavier: Ctrl+z
'
Range("U342:V342").Select
Selection.Cut
Range("G342").Select
ActiveSheet.Paste
Range("AE342:AH342").Select
Selection.Cut
Range("I342:L342").Select
ActiveSheet.Paste
Range("AK342:AP342").Select
Selection.Cut
Range("M342").Select
ActiveSheet.Paste
Range("U342:V342,AE342:AH342,AK342:AP342").Select
Range("AK342").Activate
ActiveWindow.SmallScroll ToRight:=5
Selection.Delete Shift:=xlToLeft
End Sub
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Jacquouille
Bonsoir
Moi, je dirai à mon pote Pierrot et ses 12 laitues qu'il doit rester dans le
même fil, sinon on se mêle les pinceaux.....
--
Bien amicalmement,
Vivement conseillé >> http://www.excelabo.net
Jacquouille.

"michel craps" a écrit dans le message de
news:414dd50a$0$4214$
code de la macro

Sub abss()
'
' abss Macro
' Macro enregistrée le 19/09/2004 par michel craps
'
' Touche de raccourci du clavier: Ctrl+z
'
Range("U342:V342").Select
Selection.Cut
Range("G342").Select
ActiveSheet.Paste
Range("AE342:AH342").Select
Selection.Cut
Range("I342:L342").Select
ActiveSheet.Paste
Range("AK342:AP342").Select
Selection.Cut
Range("M342").Select
ActiveSheet.Paste
Range("U342:V342,AE342:AH342,AK342:AP342").Select
Range("AK342").Activate
ActiveWindow.SmallScroll ToRight:=5
Selection.Delete Shift:=xlToLeft
End Sub




Avatar
Pierre Fauconnier
Re Michel

Comme le dit le très apprécié calidifontain Jacquouille, reste dans le même
fil, sinon cela complique le suivi du message... J'ai donné une esquisse de
réponse dans le fil initial...

Pierre

"michel craps" a écrit dans le message de
news:414dd50a$0$4214$
code de la macro

Sub abss()
'
' abss Macro
' Macro enregistrée le 19/09/2004 par michel craps
'
' Touche de raccourci du clavier: Ctrl+z
'
Range("U342:V342").Select
Selection.Cut
Range("G342").Select
ActiveSheet.Paste
Range("AE342:AH342").Select
Selection.Cut
Range("I342:L342").Select
ActiveSheet.Paste
Range("AK342:AP342").Select
Selection.Cut
Range("M342").Select
ActiveSheet.Paste
Range("U342:V342,AE342:AH342,AK342:AP342").Select
Range("AK342").Activate
ActiveWindow.SmallScroll ToRight:=5
Selection.Delete Shift:=xlToLeft
End Sub