minotaure083
Messages postés22Date d'inscriptiondimanche 12 janvier 2003StatutMembreDernière intervention10 mai 2005
-
9 mai 2005 à 15:18
minotaure083
Messages postés22Date d'inscriptiondimanche 12 janvier 2003StatutMembreDernière intervention10 mai 2005
-
10 mai 2005 à 09:42
Voilà mon souci, j'aimerai selectionner toutes les lignes (et non les cellules) qui ont pour valeur "9" dans la colonne E.
Mon code est le suivant mais en vain... :
Worksheets(1).Activate
Range("E2").Select
For i = 1 To (Range("E65536").End(xlUp).Row)
If ActiveCell = "9" Then
cs_nil69
Messages postés23Date d'inscriptionmercredi 4 mai 2005StatutMembreDernière intervention25 août 20052 9 mai 2005 à 17:19
voici une procédure qui réalise ce que tu demandes ;)
Pour qu'elle fonctionne, il faut qu'il n'y ait pas de lignes vides dans
tes données, sinon tu peux reprendre une autre valeur de fin de boucle
que la currenregion.rows.count ;)
Sub SelectColEValue9()
Dim resultat As Range
Dim i As Long
Worksheets(1).Activate
Range("E2").Select
For i = 2 To (Range("E2").CurrentRegion.Rows.count)
If Cells(i, 5).Value = "9" Then
Set resultat = Range("E2").CurrentRegion.Rows(i)
Exit For
End If
Next i
For i = (i+1) To (Range("E2").CurrentRegion.Rows.count)
If Cells(i, 5).Value = "9" Then
Set resultat = Union(Range("E2").CurrentRegion.Rows(i), resultat)