probleme not nothing ou nothing

Version imprimable

Bonsoir,

j'ai copié ce bout de code sur le forum :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub essai()
'ne pas faire attention aux variables inutiles
Dim debut, Noligne
Dim Cell As Range, x As Integer, y As Integer, z As Integer, plage As Range, ayant_droit As Range, statut As String
y = 40
statut = "RETRAITE"
With Worksheets("AYANTS DROIT")
Set ayant_droit = .Range("d8:d" & .Range("d1000").End(xlUp).Row)
    Set Cell = ayant_droit.Find(statut, LookIn:=xlValues)
    If Not Cell Is Nothing Then
 
        debut = Cell.Row
 
        Do
            Sheets("recap").Range("a" & y) = .Range("b" & Cell.Row)
            y = y + 1
            Noligne = Cell.Row
            '...
            '
            Set Cell = ayant_droit.FindNext(Cell)
        Loop While Not Cell Is Nothing And Cell.Row <> debut
     End If
End With
End Sub

il marche bien mais quand je veux selectionner toutes les cellules diffrentes de "RETRAITE" (dans la variable statut), j'essaie avec :

Code:

If Cell Is Nothing Then

au lieu de

Code:

If Not Cell Is Nothing Then

et ca ne marche pas, mon résultat est nul
comment puis-je contourner le problème sachant que les autres choix de sélections sont nombreux

Merci d'avance de votre réponse

27/02/2009, 18h27
Gorfael
Salut casefayere et le forum
Code:

1 2 Set Cell = ayant_droit.Find(statut, LookIn:=xlValues) If Not Cell Is Nothing Then
Veut dire : mettre la cellule (=à statut) dans la variable Cell. Si Cell contient quelque chose alors ...
Si tu ne trouve aucune correspondance, alors la variable Cell est vide, en gros pas déclaré. Tu ne peux pas travailler sur Cell dans ce cas.
Plusieurs solutions sont possibles :
- faire un filtre automatique sur D avec <> "retraité" et s'occuper des cellules (lignes) visibles.
- faire une variable tableau que tu remplis avec les adresses des cellules trouvée dans ta boucles, et retraiter la colonnes D en exclant les cellules dont l'adresse est dans le tableau

- ou utiliser une boucle qui vérifie chaque valeur de Cellule sur un If et Else. Dans tous les cas, ça revient à une boucle de ce style, puisque tu traites chacune des cellules.
A+
A+

Bonsoir Gorfael,

Je te remercie pour cette réponse qui m'explique les raisons du plantage. J'avais délesté le message car j'ai trouvé une autre solution, un peu dans le style que tu proposes, cette solution est bien plus simple et efficace que la méthode "find". Ci-dessous mon code, bonne soirée.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 y = 40 z = Sheets("recap").Range("a500").End(xlUp).Row Sheets("recap").Range("a40:a" & z).Clear statut = "RETRAITE" With Worksheets("AYANTS DROIT") For x = 8 To .Range("d1000").End(xlUp).Row If .Range("d" & x) <> statut Then Worksheets("recap").Range("a" & y) = .Range("b" & x) y = y + 1 End If Next x z = Sheets("recap").Range("a500").End(xlUp).Row Set PLAGE = Sheets("recap").Range("a40:a" & z) ActiveWorkbook.Names("listeactif").RefersToR1C1Local = PLAGE End With