Simplification VBA excel
enark78
Messages postés
417
Date d'inscription
Statut
Membre
Dernière intervention
-
enark78 Messages postés 417 Date d'inscription Statut Membre Dernière intervention -
enark78 Messages postés 417 Date d'inscription Statut Membre Dernière intervention -
Bonjour, j'ai voulu simplifier une macro (ue je n'ai pas faite) seulement elle ne fonctionne pas. Pouvez-vous m'aider ?
Macro deja faite:
Sheets("P1").Select
ActiveWindow.SmallScroll Down:=-54
Range("C1:N31").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("C34:N53").Select
Selection.Copy
Range("B34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-24
Range("M1").Select
Selection.AutoFill Destination:=Range("M1:N1"), Type:=xlFillDefault
Range("M1:N1").Select
Range("N2:N3").ClearContents
Range("N13:N14").ClearContents
Range("N24:N25").ClearContents
Range("N35:N36").ClearContents
Range("N46:N47").ClearContents
ActiveWindow.SmallScroll Down:=-18
ce qu'elle donne une fois simplifiée par mes soins:
Sheets("P1").Select
ActiveWindow.SmallScroll Down:=-54
Sheets("P1").Range("B1").Value = Sheets("P1").Range("C1:N53").Value
Range("M1").Select
Selection.AutoFill Destination:=Range("M1:N1"), Type:=xlFillDefault
Range("M1:N1").Select
Range("N2:N3").ClearContents
Range("N13:N14").ClearContents
Range("N24:N25").ClearContents
Range("N35:N36").ClearContents
Range("N46:N47").ClearContents
Voyez-vous d'ou vient/viennent l'/les erreur(s) ?
Merci d'avance.
Macro deja faite:
Sheets("P1").Select
ActiveWindow.SmallScroll Down:=-54
Range("C1:N31").Select
Selection.Copy
Range("B1").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=12
Range("C34:N53").Select
Selection.Copy
Range("B34").Select
ActiveSheet.Paste
ActiveWindow.SmallScroll Down:=-24
Range("M1").Select
Selection.AutoFill Destination:=Range("M1:N1"), Type:=xlFillDefault
Range("M1:N1").Select
Range("N2:N3").ClearContents
Range("N13:N14").ClearContents
Range("N24:N25").ClearContents
Range("N35:N36").ClearContents
Range("N46:N47").ClearContents
ActiveWindow.SmallScroll Down:=-18
ce qu'elle donne une fois simplifiée par mes soins:
Sheets("P1").Select
ActiveWindow.SmallScroll Down:=-54
Sheets("P1").Range("B1").Value = Sheets("P1").Range("C1:N53").Value
Range("M1").Select
Selection.AutoFill Destination:=Range("M1:N1"), Type:=xlFillDefault
Range("M1:N1").Select
Range("N2:N3").ClearContents
Range("N13:N14").ClearContents
Range("N24:N25").ClearContents
Range("N35:N36").ClearContents
Range("N46:N47").ClearContents
Voyez-vous d'ou vient/viennent l'/les erreur(s) ?
Merci d'avance.
A voir également:
- Simplification VBA excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
- Excel compter cellule couleur sans vba - Guide
24 réponses
OK, alors je vais me servir de l'aide que tu m'as apporté (désolé j'étais parti manger).
Merci encore pour ton aide.
Merci encore pour ton aide.
J'y suis deja allé mais pour le problème que j'avais, il n'y avait rien d'interresaant, ou en tout cas ej ne l'ai pas trouvé.
le message de l'anonyme a été supprimé :)
il y a deux sites qui pourrai peut etre t'aider
https://www.excel-exercice.com/
https://vb.developpez.com/faqvba/
tiré d'un post sur le form sdz ^^
il y a deux sites qui pourrai peut etre t'aider
https://www.excel-exercice.com/
https://vb.developpez.com/faqvba/
tiré d'un post sur le form sdz ^^