M
ma
Guest
j'aimerais étendre une formule jusqu'à la fin de ma sélection (je peux avoir entre 1000 lignes à 2500) en vba ? et après je veux effectuer un tri sur cette formule
Comment on fait ça SVP ?
Comment on fait ça SVP ?
Private Sub CommandButton1_Click()
Dim ligne
Application.ScreenUpdating False
For Each ligne In Range(Range('B65536').End(xlUp).Offset(1, 0), Range('A65536').End(xlUp).Offset(1, 0)).Rows
Range('B' & ligne.Row).FormulaR1C1 = '=IF(RC[-1]='''','''',REPLACE(RC[-1],1,1,''T)''))'
Next
Application.ScreenUpdating True
End Sub
Private Sub CommandButton1_Click()
Dim ligne
Workbooks('classeur1.xls').Activate 'Cette ligne à ajouter
Worksheets('Feuil1').Activate
Application.ScreenUpdating = False
For Each ligne In Workbooks('classeur1.xls').Worksheets('feuil1').Range(Range('B65536').End(xlUp).Offset(1, 0), Range('A65536').End(xlUp).Offset(1, 0)).Rows
Range('B' & ligne.Row).FormulaR1C1 = '=IF(RC[-1]='''','''',REPLACE(RC[-1],1,1,''T''))'
Next
Application.ScreenUpdating = True
End Sub