Autres aide sur macro

  • Initiateur de la discussion Initiateur de la discussion chilo27
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

chilo27

XLDnaute Occasionnel
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
 
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
 
Lorsque vous voulez entrer du code vous utilisez cette balise :
1616827225697.png

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"
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Retour