Autres aide sur macro

chilo27 · 27 Mars 2021

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 · 27 Mars 2021

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

VB:

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 · 27 Mars 2021

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 · 27 Mars 2021

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 · 27 Mars 2021

Bonjour le forum

Sylvanu merci pour l'information et bonne journée

Autres aide sur macro

chilo27

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

chilo27

XLDnaute Occasionnel

sylvanu

XLDnaute Barbatruc

chilo27

XLDnaute Occasionnel