2 conditions à la suite vba

  • Initiateur de la discussion carlos
  • Date de début
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
 
C

carlos

Guest
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

XLDnaute Barbatruc
rebonsoir

...oouuppss...

j'ai oublié le 'End If'


Code:
 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
 

Discussions similaires

Statistiques des forums

Discussions
314 450
Messages
2 109 724
Membres
110 552
dernier inscrit
jasson