méthode find code

Version imprimable

méthode find code

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:

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

27/05/2019, 11h05
Menhir

Citation:

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)
27/05/2019, 11h11
Bisbis27

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

Code:

If Not trouve Is Nothing Then Nothing

Penses tu que je puisses alléger mon code ?
27/05/2019, 11h19
Menhir
Ceci :
Code:

1 2 3 4 Trouve.Select ActiveCell.Offset(0, 1).Select C13 = ActiveCell.Value Range("F1") = C13
Peut se résumer à :

Code:

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

Merci Menhir

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

Code:

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:

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

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

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
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é;)

27/05/2019, 12h09
patricktoulon

1 pièce(s) jointe(s)

re

re
en ce qui concerne les formules
par exemple

Pièce jointe 478342
a remplacer "LC13" par"1C13" dans la formule

1 pièce(s) jointe(s)

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

Code:

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

Pièce jointe 478351
;)
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