Autres aide sur macro

[chilo27]

Bonjour le Forum

J'ai besoin de l'aide pour simplifier une macro
(trop de lignes et je ne parviens pas à résoudre le problème)
Le 150 c'est pour pour marquer la ligne
Range("M7").Select
ActiveCell.FormulaR1C1 = "150"
Range("M348").Select
ActiveCell.FormulaR1C1 = "150"
Range("M684").Select
ActiveCell.FormulaR1C1 = "150"
Range("M1020").Select
ActiveCell.FormulaR1C1 = "150"
Range("M3036").Select
ActiveCell.FormulaR1C1 = "150"
Range("M3372").Select
ActiveCell.FormulaR1C1 = "150"
Range("D3456").Select

ActiveCell.FormulaR1C1 = "150"
Range("M4044").Select
ActiveCell.FormulaR1C1 = "150"
Range("L4128").Select

ActiveCell.FormulaR1C1 = "150"
Range("M6390").Select

ActiveCell.FormulaR1C1 = "150"
Range("M6732").Select
ActiveCell.FormulaR1C1 = "150"
Range("M7068").Select
ActiveCell.FormulaR1C1 = "150"
Range("M7146").Select

ActiveCell.FormulaR1C1 = "150"
Range("M9168").Select

ActiveCell.FormulaR1C1 = "150"
Range("L9504").Select

ActiveCell.FormulaR1C1 = "150"
Range("M10086").Select

ActiveCell.FormulaR1C1 = "150"
Range("M10176").Select

ActiveCell.FormulaR1C1 = "150"
Range("M12186").Select

ActiveCell.FormulaR1C1 = "150"
Range("M12780").Select
ActiveCell.FormulaR1C1 = "150"
Range("M154445").Select

ActiveCell.FormulaR1C1 = "150"
Range("A1").Select

En vous remerciant
par avance

 

[sylvanu]

Bonjour Chilo,
Il m'étonne qu'après 90 messages vous n'utilisiez toujours pas les balises </>.
Ci dessous un truc qui devrait marcher :

Sub essai()
    Dim Adresse(), i%
    Adresse = Array("M7", "M348", "M684", "M1020", "M3036", "M3372", "D3456", "M4044", "L4128", _
                    "M6390", "M6732", "M7068", "M7146", "M9168", "L9504", "M10086", "M10176", "M12186", _
                    "M12780", "M154445", "A1")
    For i = 0 To UBound(Adresse)
        Range(Adresse(i)) = 150
    Next i
End Sub

 

[chilo27]

Bonjour le forum, sylvanu

Pour la réponse
Je ne suis une lumière j'accepte votre explication sur la question de la balise
En vous relisant

Merci

 

[sylvanu]

Lorsque vous voulez entrer du code vous utilisez cette balise :

Ainsi le code est formaté et indenté, ce qui fait que c'est beaucoup plus lisible.
Qui plus est le contributeur peut directement copier tout le code en appuyant sur "Copier dans le presse papiers"

 

[chilo27]

Bonjour le forum

Sylvanu merci pour l'information et bonne journée