M
Moa
Guest
Salut à tous !
Voilà, j'ai fait une petite macro que me cherche les lignes où se trouve le chiffre "1", et me modifie le format des cellules correspondantes :
Sub TestTraitAvecUn()
Dim Cellule As Range
For Each Cellule In Range("G5:G562")
If Cellule.Value = 1 Then
Selection.Borders(xlEdgeBottom).Weight = xlThin
End If
Next Cellule
End Sub
Elle fonctionne très bien, mais je voudrais maintenant que les les cellules de la même ligne, mais à gauche prennent aussi le même format.
J'ai donc écrit :
Sub TestTraitAvecUn()
Dim Cellule As Range
For Each Cellule In Range("G5:G562")
If Cellule.Value = 1 Then
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Borders(xlEdgeBottom).Weight = xlThin
End If
Next Cellule
End Sub
Et là ça ne marche pas.
J'ai essayé avec ActiveCell.offset(0,-1).Select, puis (0,-2) etc...
Mais idem, la macro s'arrête à l'endroit de mon curseur.
Si quelqu'un a une idée.
Merci d'avance...les p'tits gars...!
@ +
Moa
Voilà, j'ai fait une petite macro que me cherche les lignes où se trouve le chiffre "1", et me modifie le format des cellules correspondantes :
Sub TestTraitAvecUn()
Dim Cellule As Range
For Each Cellule In Range("G5:G562")
If Cellule.Value = 1 Then
Selection.Borders(xlEdgeBottom).Weight = xlThin
End If
Next Cellule
End Sub
Elle fonctionne très bien, mais je voudrais maintenant que les les cellules de la même ligne, mais à gauche prennent aussi le même format.
J'ai donc écrit :
Sub TestTraitAvecUn()
Dim Cellule As Range
For Each Cellule In Range("G5:G562")
If Cellule.Value = 1 Then
Range(Selection, Selection.End(xlToLeft)).Select
Selection.Borders(xlEdgeBottom).Weight = xlThin
End If
Next Cellule
End Sub
Et là ça ne marche pas.
J'ai essayé avec ActiveCell.offset(0,-1).Select, puis (0,-2) etc...
Mais idem, la macro s'arrête à l'endroit de mon curseur.
Si quelqu'un a une idée.
Merci d'avance...les p'tits gars...!
@ +
Moa