Lone-wolf
XLDnaute Barbatruc
Bonjour à tous,
j'aimerais simplifier le code que voici:
Merci pour votre aide
A+ 😎
j'aimerais simplifier le code que voici:
Code:
Range("E2").Value = "A": Range("E2").Font.Bold = True: Range("E2").Font.Color = RGB(255, 255, 255)
Range("F2").Value = "B": Range("F2").Font.Bold = True: Range("F2").Font.Color = RGB(255, 255, 255)
Range("G2").Value = "C": Range("G2").Font.Bold = True: Range("G2").Font.Color = RGB(255, 255, 255)
Range("H2").Value = "D": Range("H2").Font.Bold = True: Range("H2").Font.Color = RGB(255, 255, 255)
Range("I2").Value = "E": Range("I2").Font.Bold = True: Range("I2").Font.Color = RGB(255, 255, 255)
Range("J2").Value = "F": Range("J2").Font.Bold = True: Range("J2").Font.Color = RGB(255, 255, 255)
Range("K2").Value = "G": Range("K2").Font.Bold = True: Range("K2").Font.Color = RGB(255, 255, 255)
Range("L2").Value = "H": Range("L2").Font.Bold = True: Range("L2").Font.Color = RGB(255, 255, 255)
Range("M2").Value = "I": Range("M2").Font.Bold = True: Range("M2").Font.Color = RGB(255, 255, 255)
Range("N2").Value = "J": Range("N2").Font.Bold = True: Range("N2").Font.Color = RGB(255, 255, 255)
Range("D3").Value = "1": Range("D3").Font.Bold = True: Range("D3").Font.Color = RGB(255, 255, 255)
Range("D4").Value = "2": Range("D4").Font.Bold = True: Range("D4").Font.Color = RGB(255, 255, 255)
Range("D5").Value = "3": Range("D5").Font.Bold = True: Range("D5").Font.Color = RGB(255, 255, 255)
Range("D6").Value = "4": Range("D6").Font.Bold = True: Range("D6").Font.Color = RGB(255, 255, 255)
Range("D7").Value = "5": Range("D7").Font.Bold = True: Range("D7").Font.Color = RGB(255, 255, 255)
Range("D8").Value = "6": Range("D8").Font.Bold = True: Range("D8").Font.Color = RGB(255, 255, 255)
Range("D9").Value = "7": Range("D9").Font.Bold = True: Range("D9").Font.Color = RGB(255, 255, 255)
Range("D10").Value = "8": Range("D10").Font.Bold = True: Range("D10").Font.Color = RGB(255, 255, 255)
Range("D11").Value = "9": Range("D11").Font.Bold = True: Range("D11").Font.Color = RGB(255, 255, 255)
Range("D12").Value = "10": Range("D12").Font.Bold = True: Range("D12").Font.Color = RGB(255, 255, 255)
Merci pour votre aide
A+ 😎