Pb selection plage de donnees

[nougitch]

Bonjour,

Pourquoi avec le code suivant, seul la cellule "A1" se met en forme ?

    With Range("A1", [IV1].End(xlToLeft))
        .Font.Color = RGB(255, 255, 255)
        .Interior.ColorIndex = 11
        .HorizontalAlignment = xlCenter
    End With

Merci par avance pour votre aide.
Cdt,

 

[Compte Supprimé 979]

Re : Pb selection plage de donnees

Salut Nougitch,

Une plage de cellule est séparée par ":"

Donc :

With Range("A1:" & [IV1].End(xlToLeft).Address)
  .Font.Color = RGB(255, 255, 255)
  .Interior.ColorIndex = 11
  .HorizontalAlignment = xlCenter
End With

Devrait mieux fonctionner 😉

A+

 

[RENAUDER]

Re : Pb selection plage de donnees

Bonjour,
Chez moi ça fonctionne.
J'ai rempli A1, B1, C1 et D1 et ces 4 cellules sont bien misent en forme

 

[skoobi]

Re : Pb selection plage de donnees

Bonjour,

car seul la colonne A contient une donnée, les autres sont vides non?

Edit: oupsss collision, salut Bruno, Eric 🙂

 

[nougitch]

Re : Pb selection plage de donnees

Trop fort Skoobi ! J'avais placer le code avant de ne remplir les entetes. Merci !
Merci a tous !!!

 

[nougitch]

Re : Pb selection plage de donnees

Et pour des colonnes svp ?

Ceci ne fonctionne pas :

With Columns("A", [IV1].End(xlToLeft).Column)
    .EntireColumn.AutoFit
End With

Merci !

 

[Pierrot93]

Re : Pb selection plage de donnees

Bonjour à tous

essaye comme ceci :

Range("A1:" & Range("IV1").End(xlToLeft).Address).Columns.EntireColumn.AutoFit

@+

 

[Pierrot93]

Re : Pb selection plage de donnees

Re

on peut également procéder comme suit pour la totalité des instructions :

With Range("A1", Range("IV1").End(xlToLeft))
  .Font.Color = RGB(255, 255, 255)
  .Interior.ColorIndex = 11
  .HorizontalAlignment = xlCenter
  .Columns.AutoFit
End With

@+

 

[nougitch]

Re : Pb selection plage de donnees

Nickel !
Decidemment 🙂 Merci bcp !