R
Raf
Guest
Avant tout bonsoir,
je me presente raf 21ans celibataire.....enchanté
J'ai un petit probleme d'ecriture tout bete mais je trouve pas
voila ma macro
nbligne = Range('z1')
For c = 1 To nbligne Step 2
Range('d' & c + 1).Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
next c
la c que pour la colone d, que mettre a la place de 'Range('d' & c + 1).Select' pour selectionner de la colone d à la colonne f par exemple
merci d'avance
je me presente raf 21ans celibataire.....enchanté
J'ai un petit probleme d'ecriture tout bete mais je trouve pas
voila ma macro
nbligne = Range('z1')
For c = 1 To nbligne Step 2
Range('d' & c + 1).Select
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 1
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
next c
la c que pour la colone d, que mettre a la place de 'Range('d' & c + 1).Select' pour selectionner de la colone d à la colonne f par exemple
merci d'avance