Simplification d'une macro - Instant Culture!

sp3ktroom · 29 Mai 2012

Bonsoir le Forum,

Voila, j'ai un question à la fois pratique, mais surtout qui me permettra de faire quelque pas en avant pour le VBA.
Ma question est toute simple, peut-on simplifier une macro de ce genre, et si oui de quelle manière?

Sub raz()
'
' faxd_remiseazero Macro
'

'
Range("F5").Select
ActiveCell.FormulaR1C1 = ""
Range("F7").Select
ActiveCell.FormulaR1C1 = ""
Range("F9").Select
ActiveCell.FormulaR1C1 = ""
Range("F10").Select
ActiveCell.FormulaR1C1 = ""
Range("G13:H15").Select
ActiveCell.FormulaR1C1 = ""
Range("T14:U14").Select
ActiveCell.FormulaR1C1 = ""
Range("T15").Select
ActiveCell.FormulaR1C1 = ""
Range("T16").Select
ActiveCell.FormulaR1C1 = ""
Range("T17").Select
ActiveCell.FormulaR1C1 = ""
Range("T18").Select
ActiveCell.FormulaR1C1 = ""
Range("T19:U19").Select
ActiveCell.FormulaR1C1 = ""
Range("T20:U20").Select
ActiveCell.FormulaR1C1 = ""
Range("T21:V21").Select
ActiveCell.FormulaR1C1 = ""
Range("T22").Select
ActiveCell.FormulaR1C1 = ""
Range("H26").Select
ActiveCell.FormulaR1C1 = ""
Range("A1").Select
End Sub

Merci de vos réponses.

Victor21 · 29 Mai 2012

Re : Simplification d'une macro - Instant Culture!

Bonsoir.

Sélectionnez les cellules concernées, et donnez un nom à cette sélection (Zonea par ex).
Application.Goto Reference:="Zonea"
Selection.ClearContents
Range("A1").Select
effacera les données de Zonea, et placera le curseur en A1

ROGER2327 · 30 Mai 2012

Re : Simplification d'une macro - Instant Culture!

Bonsoir à tous

VB:

Sub raz()
'
' faxd_remiseazero Macro
'

'
    Range("F5,F7,F9:F10,G13,H26,T14:T22").ClearContents
    Range("A1").Select
End Sub

devrait faire l'affaire.

ROGER2327
#5915

Jeudi 12 Merdre 139 (Saintes Miches, catéchumènes - fête Suprême Quarte)
10 Prairial An CCXX, 9,1803h - faux
2012-W22-2T22:01:58Z

sp3ktroom · 5 Juin 2012

Re : Simplification d'une macro - Instant Culture!

Bonjour ROGER2327 et VICTOR 21, et le Forum ,

Merci de vos réponses, j'ai été un peu long mais je vais creuser un peu ca avec vous si vous le voulez bien.

Tout d'abord, ROGER2327, j'ai essayer d'appliquer le code ci dessus mais j'obtiens une erreur de compil 1004 et se surligne en JAUNE la ligne suivante , je précise que ma macro initiale fonctionne, pourtant c'est bien dommage car ce code me semblais simple a assimiler et a comprendre. J'ai essayer denlever les ":" en les remplacants par une virgule mais cela ne fonctionne pas , et la ont peu malheureusement constater mon faible niveau en VBA , c'est pour cela que j'y travail d'ailleurs.

VICTOR21, je suis interesser de connaitre le développement de ton explication , MAIS et oui il y en a toujours un , tout d'abord comment fait on pour selectionner plusieures céllules différentes et qui ne se suivent pas ? et je pense que cela va avec mais comment nomme t on une zone également. Je cherche tout de même , une première pist me dirais dans l'onglet formule et gestion des noms , je crois pour m'en etre servi une fois (encore grace a ce forum 🙂 ) mais je ne suis pas sur et ne maitrise pas vraiment , surtout comment selectionner plusieures cellules etc ...... .

Merci d'avance de vos réponses.

sp3ktroom · 5 Juin 2012

Re : Simplification d'une macro - Instant Culture!

Euh pardon roger la ligne en question : Range("F5,F7,F9:F10,G13,H26,T14:T22").ClearContents

Victor21 · 5 Juin 2012

Re : Simplification d'une macro - Instant Culture!

Bonjour.

sp3ktroom à dit:
...comment fait on pour selectionner plusieures céllules différentes et qui ne se suivent pas ?

Maintenez la touche Ctrl enfoncée, et cliquez sur les cellules ou les groupes de cellules concernées.

sp3ktroom à dit:
... comment nomme t on une zone également.

Après avoir sélectionné les cellules concernées (voir ci-dessus) insertion, nom, définir, ou saisie du nom choisi dans la zone nom au-dessus de la colonne A.

ROGER2327 · 9 Juin 2012

Re : Simplification d'une macro - Instant Culture!

Bonsoir à tous

sp3ktroom à dit:
(...)
Tout d'abord, ROGER2327, j'ai essayer d'appliquer le code ci dessus mais j'obtiens une erreur de compil 1004 et se surligne en JAUNE la ligne suivante , je précise que ma macro initiale fonctionne, pourtant c'est bien dommage car ce code me semblais simple a assimiler et a comprendre. J'ai essayer denlever les ":" en les remplacants par une virgule mais cela ne fonctionne pas , et la ont peu malheureusement constater mon faible niveau en VBA , c'est pour cela que j'y travail d'ailleurs.
(...)

J'ai, comme toujours, testé la solution que je propose. Elle donne le même résultat que votre procédure. Je n'obtiens pas l'erreur que vous signalez. Bien entendu, si vous modifiez le code proposé comme vous le faites dans le message #5 , une erreur peut apparaître.

Code:

Range("F5,F7,F9:F10,G13,H26,T14:T22").ClearContent s

n'est pas

Code:

Range("F5,F7,F9:F10,G13,H26,T14:T22").ClearContents

Peut-être y verrons-nous plus clair si vous déposez votre classeur avec le code et les données réels qui provoquent l'erreur.

ROGER2327
#5927

Dimanche 22 Merdre 139 (Ontogénie pataphysique - fête Suprême Première première)
20 Prairial An CCXX, 9,9249h - fourche
2012-W23-5T23:49:11Z

Simplification d'une macro - Instant Culture!

sp3ktroom

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

sp3ktroom

XLDnaute Nouveau

sp3ktroom

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Simplification d'une macro - Instant Culture!

sp3ktroom

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

sp3ktroom

XLDnaute Nouveau

sp3ktroom

XLDnaute Nouveau

Victor21

XLDnaute Barbatruc

ROGER2327

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency