Discussion :

[casefayere]

Bonsoir,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

If Cell Is Nothing Then

au lieu de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Gorfael]

Salut casefayere et le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

[casefayere]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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