2 conditions à la suite vba

[carlos]

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

 

[MichelXld]

bonsoir Carlos

tu peux tester

Sub trierParEquipe()
Dim ligneTA As Byte
For ligneTA = 4 To 40
If Cells(ligneTA, 25) = Range('maxiTA') Then
Cells(ligneTA, 27) = 'A1'
Range('y' & ligneTA & ':z' & ligneTA).ClearContents
Next ligneTA
End Sub

bonne soiree
MichelXld

 

[carlos]

Impecc

merci MichelXld

 

[carlos]

finallement c'est pas ce que je voulais ..

en faite je veux que si la condition est vrai alors les 2 cellules à gauche de la ou je colle 'A1' s'éffacent .

pour le moment ca m'efface toutes les cellules des 2 colonnes;

Merci

 

[MichelXld]

rebonsoir

...oouuppss...

j'ai oublié le 'End If'

 Sub trierParEquipe()
Dim ligneTA As Byte
For ligneTA = 4 To 40
If Cells(ligneTA, 25) = Range('maxiTA') Then
Cells(ligneTA, 27) = 'A1'
Range('y' & ligneTA & ':z' & ligneTA).ClearContents
End If
Next ligneTA
End Sub

j'espere que c'est bien ça....


bonne soiree
MichelXld

 

[carlos]

c'est moi qui suit confus , j'aurais du me creuser un peu la cervelle merci et désolé