bonjour
je bloque! et ca menerveeeeeee
jai fait ce petit code qui permet de mettre en gras la cells du dessous si elle est différente de celle du dessus. facile!
Dim i
For i = 2 To Range("A65000").End(xlUp).Row
If Range("A" & i) <> Range("A" & i - 1) Then
Range("A" & i).Font.Bold = True
Range("B" & i).Font.Bold = True
Range(Cells(i - 1, 1), Cells(i - 1, 59)).Borders(xlBottom).Weight = xlMedium
End If
Next
mais j'aimerai bien que ca marche que sur une selection (après avoir masquer des cellules). et ben! ca veut pas! comment faire???????
merci!
je bloque! et ca menerveeeeeee
jai fait ce petit code qui permet de mettre en gras la cells du dessous si elle est différente de celle du dessus. facile!
Dim i
For i = 2 To Range("A65000").End(xlUp).Row
If Range("A" & i) <> Range("A" & i - 1) Then
Range("A" & i).Font.Bold = True
Range("B" & i).Font.Bold = True
Range(Cells(i - 1, 1), Cells(i - 1, 59)).Borders(xlBottom).Weight = xlMedium
End If
Next
mais j'aimerai bien que ca marche que sur une selection (après avoir masquer des cellules). et ben! ca veut pas! comment faire???????
merci!