Discussion :

[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 :

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
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 !

[Jean-Pierre49]

Re:

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

Essais

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
    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

[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