2 conditions à la suite vba

M

MichelXld

XLDnaute Barbatruc

• 6 Mars 2005

• #2

bonsoir Carlos

tu peux tester

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
Next ligneTA
End Sub

bonne soiree
MichelXld

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 6 Mars 2005

• #3

Impecc

merci MichelXld

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 6 Mars 2005

• #4

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 6 Mars 2005

• #5

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

 

Vote positif 0 Vote négatif

C

carlos

Guest

• 6 Mars 2005

• #6

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

 

Vote positif 0 Vote négatif