F fablog XLDnaute Occasionnel 12 Octobre 2016 #1 Bonjour, est-il possible de simplifier cette macro par laquelle j'écris "Cliquez ici" dans plusieurs cases ayant une liste déroulante? VB: Range("E5:G5").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("E7").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("E9").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J3:p3").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J5:p5").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J7:p7").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J9:p9").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U163:W163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U164:W164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U165:W165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U166:W166").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y166").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Merci par avance!
Bonjour, est-il possible de simplifier cette macro par laquelle j'écris "Cliquez ici" dans plusieurs cases ayant une liste déroulante? VB: Range("E5:G5").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("E7").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("E9").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J3:p3").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J5:p5").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J7:p7").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("J9:p9").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U163:W163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U164:W164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U165:W165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("U166:W166").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("Y166").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG163").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG164").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Range("AG165").Select ActiveCell.FormulaR1C1 = "Cliquez ici" Merci par avance!
DoubleZero XLDnaute Barbatruc 12 Octobre 2016 #2 Bonjour, fablog, le Forum, Comme ceci ? VB: Option Explicit Sub Ici_et_là() ' emplacements adapter... Range("A1:D1,E5,E7,E9,J3,J5,J7,J9,U163").Value = "Cliquez ici" End Sub A bientôt Vote positif 0 Vote négatif
Bonjour, fablog, le Forum, Comme ceci ? VB: Option Explicit Sub Ici_et_là() ' emplacements adapter... Range("A1:D1,E5,E7,E9,J3,J5,J7,J9,U163").Value = "Cliquez ici" End Sub A bientôt
F fablog XLDnaute Occasionnel 12 Octobre 2016 #3 Excellent, merci beaucoup. Je viens d'en apprendre un peu plus sur VBA Vote positif 0 Vote négatif