C
carlos
Guest
Bonsoir
encore une fois j'ai besoin de vous ,
comment simplifier cette partie de code:
Then Cells(ligneTA, 27) = 'A1'
If Cells(ligneTA, 27) = 'A1'
qui vient de :
Sub trierParEquipe()
Dim ligneTA As Variant
For ligneTA = 4 To 40
If Cells(ligneTA, 25) = Range('maxiTA') Then Cells(ligneTA, 27) = 'A1'
If Cells(ligneTA, 27) = 'A1' Then Range('y' & ligneTA & ':z' & ligneTA).Select
Selection.ClearContents
Next ligneTA
End Sub
merci
encore une fois j'ai besoin de vous ,
comment simplifier cette partie de code:
Then Cells(ligneTA, 27) = 'A1'
If Cells(ligneTA, 27) = 'A1'
qui vient de :
Sub trierParEquipe()
Dim ligneTA As Variant
For ligneTA = 4 To 40
If Cells(ligneTA, 25) = Range('maxiTA') Then Cells(ligneTA, 27) = 'A1'
If Cells(ligneTA, 27) = 'A1' Then Range('y' & ligneTA & ':z' & ligneTA).Select
Selection.ClearContents
Next ligneTA
End Sub
merci