Cells..Résolu

Question

Bonjour, 

J'aimerai utiliser la propriété 
With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
      End With

pour une mise en forme de mes cellules. Il faut donc selectionner la plage de cellules souhaités 
Range("L5:L8").Select
With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
      End With

LE PROBLEME est que ma plage n'est jamais la même, il faut donc que j'utilise la propriété 
"Cells(x,y)" 

Donc j'ai pensé à utiliser une boucle FOR. LA macro se compile mais le résultat donné n'est pas celui souhaité 
Dim tour As Integer

For tour Cells(5, 12) To Cells(cellule, 12) Step 1   'cellule 8
                With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
                End With
                With Selection.Borders(xlEdgeRight)
                        .Weight = xlMedium
                End With
Next tour

merci

bigfish_le vrai · Accepted Answer

non, ne boucle pas sur les adresses de cellules !

Dim tour As Integer
For tour = 1 To 5 Step 1 '<--- dans ton cas le step ne sert a rien mais ne posera pas de probleme non plus, donc tu peux le laisser
                With Cells(tour,12)
                          .Borders(xlEdgeLeft).Weight = xlMedium
                          .Borders(xlEdgeRight).Weight = xlMedium     
                End With
Next tour

A+

jeanjeandada · Answer

Bonjour, 

J'aimerai utiliser la propriété 
With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
      End With

pour une mise en forme de mes cellules. Il faut donc selectionner la plage de cellules souhaités 
Range("L5:L8").Select
With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
      End With

LE PROBLEME est que ma plage n'est jamais la même, il faut donc que j'utilise la propriété 
"Cells(x,y)" 

Donc j'ai pensé à utiliser une boucle FOR. LA macro se compile mais le résultat donné n'est pas celui souhaité 
Dim tour As Integer

For tour Cells(5, 12) To Cells(cellule, 12) Step 1   'cellule 8
                With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
                End With
                With Selection.Borders(xlEdgeRight)
                        .Weight = xlMedium
                End With
Next tour

merci

jeanjeandada · Answer

MAIS Zuttttttttt

J'aimerai utiliser la propriété
With Selection.Borders(xlEdgeLeft)
    .Weight = xlMedium
End With

pour une mise en forme de mes cellules. Il faut donc selectionner la plage de cellules souhaités 
Range("L1:L4").Select
With Selection.Borders(xlEdgeLeft)
    .Weight = xlMedium
End With

LE PROBLEME est que ma plage n'est jamais la même, il faut donc que j'utilise la propriété 
"Cells(x,y)" 

Donc j'ai pensé à utiliser une boucle FOR. LA macro se compile mais le résultat donné n'est pas celui souhaité 

Dim tour As Integer
For tour = Cells(1, 12) To Cells(5, 12) Step 1
                With Selection.Borders(xlEdgeLeft)
                          .Weight = xlMedium
                End With
                With Selection.Borders(xlEdgeRight)
                        .Weight = xlMedium
                End With
Next tour

zen69 · Answer

Passer par .Select et ensuite faire with .selection est dans 99% des cas inutile et energivors...

Comme [auteur/BIGFISHLEVRAI/510670.aspx bigfish_le vrai]l'a indiquer il est preferable de passer directement par ton range... with cells(x,y) 

<hr size="2" width="100%" />  zen69 aka Ortho Le Profett
  [site web]

jeanjeandada · Answer

D'accord,
Merci votre macro fonctionne correctement 
@+
JD

Cells..

5 réponses

Votre réponse

Discussions similaires