Chercher dans les valeurs d'une cellule dans une boucle For Next [Résolu]

[Runsh63]

Bonjour,

Je vous colle ci-dessous un bout de code qui ne marche pas. Je suis certain qu'on pourrait faire plus simple mais malheuresement c'est avec ce type de boucle que je suis le plus à l'aise...
En fonction du contenu d'une cellule d'une colonne, j'aimerai indiquer des comptes deux cellules plus à droite. La macro bloque car à priori le .Find n'est pas valide :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
    With Sheets("Retreated P&L")
 
    Dim LR3 As Byte, PNLAcc As Range
    LR3 = .Range("A" & .Rows.Count).End(xlUp).Row
 
    For Each PNLAcc In .Range("A2:A" & LR3)
        If PNLAcc.Find("702") Then
            PNLAcc.Offset(0, 2).Value = "702/1"
        Else
            If PNLAcc.Find("304") Then
                PNLAcc.Offset(0, 2).Value = "702/2"
            Else
                If PNLAcc.Find("Profit tax") Then
                    PNLAcc.Offset(0, 2).Value = "699"
                Else
                    If PNLAcc.Find("721") Then
                        PNLAcc.Offset(0, 2).Value = "721/1"
                    Else
                        If PNLAcc.Find("Extraorinary income") Then
                            PNLAcc.Offset(0, 2).Value = "791"
                        Else
                            If PNLAcc.Find("621") Then
                                PNLAcc.Offset(0, 2).Value = "621"
                            Else
                                If PNLAcc.Find("624") Then
                                    PNLAcc.Offset(0, 2).Value = "624/1"
                                Else
                                    If PNLAcc.Find("629") Then
                                        PNLAcc.Offset(0, 2).Value = "629"
                                    Else
                                        If PNLAcc.Find("Extraorinary expense") Then
                                            PNLAcc.Offset(0, 2).Value = "691"
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    Next PNLAcc
 
    End With

Pouvez-vous m'aider SVP ? De la même manière, si vous avez une solution moins lourde, plus digeste, je suis perneur mais il va falloir être patient et m'expliquer
D'avance merci !

[Jean-Pierre49]

Bonjour,

ce genre de test est indigeste

regarde du coté

Select case

Bon courage

[Runsh63]

On est bien d'accord Jean-Pierre, j'ai moi-même écrit :

Je suis certain qu'on pourrait faire plus simple mais malheuresement c'est avec ce type de boucle que je suis le plus à l'aise...

Je vais regarder du côté des Select Case, en espérant que je comprenne, ça me donnera matière à forger Merci pour le tuyau en tout cas !

[jfontaine]

Bonjour,

Find recherche dans une plage de cellule un jeu de caractères et retourne un range. Il faut donc l'instancier avec un Set
Dans ton cas, si ta recherche se situe dans la cellule, utilise plutôt instr

[Jean-Pierre49]

Re:

Je n'avais pas vue que tu faisait une recherche avec Find

Essais

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
    Dim LR3 As Byte, PNLAcc As Range
    LR3 = .Range("A" & .Rows.Count).End(xlUp).Row
 
        For Each PNLAcc In .Range("A2:A" & LR3)
            If PNLAcc.Find("702") Then PNLAcc.Offset(0, 2).Value = "702/1"
            If PNLAcc.Find("304") Then PNLAcc.Offset(0, 2).Value = "702/2"
            If PNLAcc.Find("Profit tax") Then PNLAcc.Offset(0, 2).Value = "699"
            If PNLAcc.Find("721") Then PNLAcc.Offset(0, 2).Value = "721/1"
            If PNLAcc.Find("Extraorinary income") Then PNLAcc.Offset(0, 2).Value = "791"
            If PNLAcc.Find("621") Then PNLAcc.Offset(0, 2).Value = "621"
            If PNLAcc.Find("624") Then PNLAcc.Offset(0, 2).Value = "624/1"
            If PNLAcc.Find("629") Then PNLAcc.Offset(0, 2).Value = "629"
            If PNLAcc.Find("Extraorinary expense") Then PNLAcc.Offset(0, 2).Value = "691"
        Next PNLAcc
 
    End With

Tu dis

Bon courage

[Runsh63]

J'ai essayé la méthode jfontaine et elle fonctionne parfaitement.
J'ai testé la tienne et ça me ressort le même message d'erreur qu'avec mon code indigeste, à savoir "Object variable not set", ce que je comprends mieux avec les explications de jfontaine - qui fait le boulot le plus sympa du monde, soit dit en passant -
J'imagine qu'avec cette méthode ça serait mieux, et j'irai également voir du côté des Select Case, ça m'enrichira.

[Jean-Pierre49]

Jfontaine à raison,

si tu utilise instr dans le code que j'ai modifié cela devrait fonctionné.


Bon courage

[Runsh63]

Jean-Pierre,

Voilà mon code qui fonctionne :

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
25
26
27
28
29
30
31
32
33
34
35
36
37
 For Each PNLAcc In .Range("A2:A" & LR3)
        If InStr(PNLAcc, "702") Then
            PNLAcc.Offset(0, 2).Value = "702/1"
        Else
            If InStr(PNLAcc, "304") Then
                PNLAcc.Offset(0, 2).Value = "702/2"
            Else
                If InStr(PNLAcc, "Profit tax") Then
                    PNLAcc.Offset(0, 2).Value = "699"
                Else
                    If InStr(PNLAcc, "721") Then
                        PNLAcc.Offset(0, 2).Value = "721/1"
                    Else
                        If InStr(PNLAcc, "Extraordinary income") Then
                            PNLAcc.Offset(0, 2).Value = "791"
                        Else
                            If InStr(PNLAcc, "621") Then
                                PNLAcc.Offset(0, 2).Value = "621"
                            Else
                                If InStr(PNLAcc, "624") Then
                                    PNLAcc.Offset(0, 2).Value = "624/1"
                                Else
                                    If InStr(PNLAcc, "629") Then
                                        PNLAcc.Offset(0, 2).Value = "629"
                                    Else
                                        If InStr(PNLAcc, "Extraordinary expense") Then
                                            PNLAcc.Offset(0, 2).Value = "691"
                                        End If
                                    End If
                                End If
                            End If
                        End If
                    End If
                End If
            End If
        End If
    Next PNLAcc

Par contre je serai curieux de voir comment le dégrossir sur la base de ton code, où tu n'as pas un seul End If. Sais-tu si c'est possible ? Si oui je suis preneur pour ma culture perso ainsi que pour degrossir ce gros bloc illisible.

[jfontaine]

Le End If sert a délimiter la fin du bloc If

Code :

1
2
3
If Macondition then
     ... Code ...
End If

Dans le cas ou le code action est cours, on peut synthètiser sur une seule ligne en s'abstenant de mettre le End if

Code :

If Macondition then Action

[Runsh63]

Je suis bête, ça fonctionne en prenant ton code et en modifiant avec instr.
Du coup plus de End If. Je croyais qu'un If entrainaît obligatoirement un End If, tout comme un With entraîne nécessairement un End With. Aurais-tu la patience et la bonté de m'expliquer pourquoi tu peux t'en passer STP?
Je comprendrai facilement un refus de ta part

Et bien voilà, j'ai ma réponse. Merci beaucoup à tous les deux pour vos réponses utiles et votre précieuse aide !

[Jean-Pierre49]

Runsh,

Jfontaine vient de le faire


Bon courage