méthode find code

**Bisbis27** · 27/05/2019, 11h02

Bonjour a tous

J'ai écris ce code, pensez vous qu'il soit possible de l’alléger ? autre question comment gérer les erreurs quand Find ne permet pas de trouver la valeur recherché ?

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
45
46
47
Sub Chercher()
 
Sheets("Feuil2").Activate
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="1C13", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
C13 = ActiveCell.Value
Range("F1") = C13
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="1RET", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
RET = ActiveCell.Value
Range("F2") = RET
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="3VB5", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
VB5 = ActiveCell.Value
Range("F3") = VB5
 
 
Sheets("Feuil1").Activate
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="1C13", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
ActiveCell = C13
 
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="1RET", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
ActiveCell = RET
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="3VB5", LookAt:=xlWhole)
Trouve.Select
ActiveCell.Offset(0, 1).Select
ActiveCell = VB5
 
End Sub

Merciii

**Menhir** · 27/05/2019, 11h05

Envoyé par Bisbis27

comment gérer les erreurs quand Find ne permet pas de trouver la valeur recherché ?

Il y a un exemple dans l'aide VBA de Find : https://msdn.microsoft.com/fr-fr/lib...6(v=office.15)

**Bisbis27** · 27/05/2019, 11h11

Dac merci j'ai compris pour l'erreur, je vais mettre

Code :

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

   If Not trouve Is Nothing Then Nothing

Penses tu que je puisses alléger mon code ?

**Menhir** · 27/05/2019, 11h19

Ceci :

Code :

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

1
2
3
4
Trouve.Select
ActiveCell.Offset(0, 1).Select
C13 = ActiveCell.Value
Range("F1") = C13

Peut se résumer à :

Code :

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

Range("F1").Value = Trouve.Offset(0, 1).Value

**Bisbis27** · 27/05/2019, 11h38

Merci Menhir

J'ai une autre petite question est ce que je peux faire varier l'offset

Code :

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

Trouve.Offset(0, 1).Value = C13

En fonction de la valeur d'une cellule,

exemple si la cellule =2 alors offset(0, 2)
etc

Voila avec tes conseils

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
Sub Chercher()
 
Sheets("Feuil2").Activate
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="1C13", LookAt:=xlWhole)
If Not Trouve Is Nothing Then
C13 = Trouve.Offset(0, 1).Value
Else
Set Trouve = Nothing
End If
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="1RET", LookAt:=xlWhole)
RET = Trouve.Offset(0, 1).Value
 
Set Trouve = PlageDeRecherche.Cells.Find(what:="3VB5", LookAt:=xlWhole)
VB5 = Trouve.Offset(0, 1).Value
 
 
Sheets("Feuil1").Activate
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="1C13", LookAt:=xlWhole)
Trouve.Offset(0, 1).Value = C13
 
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="1RET", LookAt:=xlWhole)
Trouve.Offset(0, 1).Value = RET
 
Set PlageDeRecherche = ActiveSheet.Columns(1)
Set Trouve = PlageDeRecherche.Cells.Find(what:="3VB5", LookAt:=xlWhole)
Trouve.Offset(0, 1).Value = VB5
 
End Sub

**patricktoulon** · 27/05/2019, 11h49

re
si j'ai bien compris ce que tu souhaite faire
codé facon debutant

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
45
46
47
48
49
 
Sub Chercher()
    Dim C13, RET, VB5
    With Sheets("Feuil2")
        '.Activate    ' facultatif!!!   find fonctionne tres bien sans activer la feuille dans un with/end with
        Set PlageDeRecherche = .Range("A1", .Cells(Rows.Count, "A").End(xlUp))
        With PlageDeRecherche
            Set trouve = .Find(what:="1C13", LookAt:=xlWhole)
            If Not trouve Is Nothing Then Sheets("Feuil2").Range("F1") = trouve.Offset(, 1).Value: C13 = trouve.Offset(, 1).Value
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'Range("F1") = C13
            Set trouve = .Find(what:="1RET", LookAt:=xlWhole)
            If Not trouve Is Nothing Then Sheets("Feuil2").Range("F2") = trouve.Offset(, 1).Value: RET = trouve.Offset(, 1).Value
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'Range("F2") = RET
            Set trouve = .Find(what:="3VB5", LookAt:=xlWhole)
            If Not trouve Is Nothing Then Sheets("Feuil2").Range("F3") = trouve.Offset(, 1).Value: VB5 = trouve.Offset(, 1).Value
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'Range("F3") = VB5
        End With
    End With
    With Sheets("Feuil2")
        '.Activate    ' facultatif!!!   find fonctionne tres bien sans activer la feuille dans un with/end with
        Set PlageDeRecherche = .Range("A1", .Cells(Rows.Count, "A").End(xlUp))
        With PlageDeRecherche
            Set trouve = .Find(what:="1C13", LookAt:=xlWhole)
            If Not trouve Is Nothing Then trouve.Offset(, 1).Value = C13
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'ActiveCell = C13
            'Set PlageDeRecherche = ActiveSheet.Columns(1)
            Set trouve = .Find(what:="1RET", LookAt:=xlWhole)
            If Not trouve Is Nothing Then trouve.Offset(, 1).Value = RET
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'ActiveCell = RET
            'Set PlageDeRecherche = ActiveSheet.Columns(1)
            Set trouve = .Find(what:="3VB5", LookAt:=xlWhole)
            If Not trouve Is Nothing Then trouve.Offset(, 1).Value = VB5
            'trouve.Select
            'ActiveCell.Offset(0, 1).Select
            'ActiveCell = VB5
        End With
    End With
 
End Sub

je dirais ensuite qu'il y aurais beaucoup plus simple avec un filtre ou même une simple formule (si(A1=ceci;ceci;elleme))a étendre sur toutes les lignes utilisées dans l'offset
et pareil pour la f1,f2,f3 pour feuil1

menhir on c'est croisé

**patricktoulon** · 27/05/2019, 12h09

re
en ce qui concerne les formules
par exemple

Nom : Capture.JPG
Affichages : 649
Taille : 137,9 Ko

a remplacer "LC13" par"1C13" dans la formule

**patricktoulon** · 27/05/2019, 12h35

et si tu tiens absolument a VBA voici comment les faire toutes d'un coup avec une formule
exemple

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Facon_Formulage_Global_By_Vba()
    With Sheets("Feuil1")
        Set PlageDeRecherche = Range("A1", Cells(Rows.Count, "A").End(xlUp))
        With PlageDeRecherche.Offset(, 1)
            'on leur met la formule des 3 conditions
            .FormulaR1C1 = "=IF(OR(RC[-1]=""1RET"",RC[-1]=""1C13"",RC[-1]=""3VB5""),RIGHT(RC[-1],3),"""")"
            .Value = .Value    'on remplace les formules par le resultat
        'résultat identique a une boucle ou find!!!!!!! toutes d'un coup!!!
        End With
    End With
End Sub

Nom : demo2.gif
Affichages : 675
Taille : 415,4 Ko

merci ca me fait travailler les formules je suis pas très bon dans leurs syntaxes, comme ca je m'entraine en même temps

méthode find code

Macros et VBA Excel

Discussions similaires

Partager

Partager