Variable colonne

Bonjour

je vous écris car je bloque sur un petit problème.

je veux faire une mise en page de tableau ( jusque la pas de soucis

With Range("c3:c5")
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With

le problème c'est que je voudrais pouvoir créer ce tableau a un endroit défini par la valeur de la cellule A1

j'ai essayé le code suivant

Sub Plage13()

Dim col As String
col = Range("A1").Value

With Range(col & 2 : col & 5)
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With
End Sub

mais il me renvoi une erreur

quelqu'un peut il m'aider s'il vous plait ?

Bonjour,

Si tu mets A en cellule A1 le code ci-dessous fait ta mise en forme pour A2:A5

cdt

Sub Plage13()

Dim col As String
col = Range("A1").Value

With Range(col & 2 & ":" & col & 5)
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With
End Sub

Ce code fonctionne aussi :

Sub Plage13()

Dim col As String
col = Range("A1").Value

With Range(col & 2, col & 5)
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With
End Sub

cdt

je te remercie de ta réactivité , il me manquait juste les guillemets ... c'est rageant de rester bloquer pour ca

en tout cas merci je vais pouvoir avancer .

cordialement

de nouveau un petit problème

le code fonctionne très bien , j'ai un 2eme tableau a mettre en dessous :

toujours a partir de la valeur de a1 pour la colonne mais il faudrait pouvoir prendre la colonne avant et après

j'ai essayé avec un offset mais je n'arrive pas a l'intégrer dans mon code

Sub Plage13()

Dim col As String
col = Range("A1").Value
col1=range("a1").offset(0,-1)
col2=range("a1").offset(0,1)

'tableau équipes
With Range(col & 2 & ":" & col & 5)
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With

'couleur cellule catégorie
With Range(col & 2)
    .Interior.ColorIndex = 41
End With

'tableau rencontres
With Range(col1 & 20 & ":" & col2 & 25)
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With
End Sub

cordialement

Ca dépend, si en A1 tu a la colonne C : tu veux une mise en forme pour la plage B20:D25 ou tu veux une mise en forme pour B20:B25 et D20:D25

voici un exemple pour la plage B20:D25 par exemple

'tableau rencontres
With Range(Range(col & 20).Offset(0, -1), Range(col & 25).Offset(0, 1))
   .Font.ColorIndex = 3
   .HorizontalAlignment = xlCenter
   .Borders.Weight = xlMedium
End With