Bonsoir Le Forum,
J'ai ci-dessous une macro qui fonctionne bien.
Elle me reproduit correctement dans une feuille "Destination" les couleurs des cellules d'un tableau de l'autre "feuille disponibilité".
Toutefois je n'arrive pas à reproduire la couleur de la police des cellules du tableau Source dans les cellules du tableau destination.
J'ai bien essayé avec
Selection.Interior.Bold = 2
ou encore avec Selection.Interior.Bold = True
comme ci-après, mais rien n'y fait. J'ai un message d'erreur.
Avez-vous une possibilité à me proposer ?
Merci
Webperegrino
Sub Indiv()
Range("C2:G13").Select
Selection.Interior.ColorIndex = 2
Selection.Interior.ColorIndex = 2
' C'EST ICI QUE ÇA COINCE !
'Selection.Interior.Bold = True
'Selection.Interior.Bold = True Range("C2").Select
'Pour la suite ça fonctionne
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-1]C[-2],'Feuille disponibilité'!R[3]C[-2]:R[20]C[-1],2)"
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C[-2],'Feuille disponibilité'!R[2]C[-2]:R[19]C,3)"
End Sub
J'ai ci-dessous une macro qui fonctionne bien.
Elle me reproduit correctement dans une feuille "Destination" les couleurs des cellules d'un tableau de l'autre "feuille disponibilité".
Toutefois je n'arrive pas à reproduire la couleur de la police des cellules du tableau Source dans les cellules du tableau destination.
J'ai bien essayé avec
Selection.Interior.Bold = 2
ou encore avec Selection.Interior.Bold = True
comme ci-après, mais rien n'y fait. J'ai un message d'erreur.
Avez-vous une possibilité à me proposer ?
Merci
Webperegrino
Sub Indiv()
Range("C2:G13").Select
Selection.Interior.ColorIndex = 2
Selection.Interior.ColorIndex = 2
' C'EST ICI QUE ÇA COINCE !
'Selection.Interior.Bold = True
'Selection.Interior.Bold = True Range("C2").Select
'Pour la suite ça fonctionne
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-1]C[-2],'Feuille disponibilité'!R[3]C[-2]:R[20]C[-1],2)"
Range("C3").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(R[-2]C[-2],'Feuille disponibilité'!R[2]C[-2]:R[19]C,3)"
End Sub