Recherche code VBA

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #2

Re : Recherche code VBA

Bonjour desvin,

Faut-il absolument que ce soit en VBA ou une formule pourrait faire l'affaire ?

 

Vote positif 0 Vote négatif

T

Theze

XLDnaute Occasionnel

• 5 Septembre 2011

• #3

Re : Recherche code VBA

Bonjour,

En VBA :

Code:

Sub Recup()

    Dim Plage As Range
    Dim Cel As Range
    Dim Max As Double
    
    'plage de recherche à adapter
    Set Plage = Range("B1:B20")
    
    'récup de la valeur maxi
    Max = Application.WorksheetFunction.Large(Plage, 1)
    
    'recherche de cette valeur
    Set Cel = Plage.Find(Max, , xlValues, xlWhole)
    
    'colle la valeur de la cellule située 2 lignes au
    'dessus et une colonne à gauche dans la cellule D1, à adapter
    Range("D1") = Cel.Offset(-2, -1)

End Sub

Hervé.

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #4

Re : Recherche code VBA

Bonjour Theze,
Re,

Bon, ben en formule alors 🙂

Code:

=index(d7:d17;equiv(max(e7:e17);e7:e17;0)-2)

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Septembre 2011

• #5

Re : Recherche code VBA

Bonjour Desvin, bonjour le forum,

Essaie comme ça (VBA) :

Code:

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim r As Range 'déclare la variable r (Recherche)
 
With Sheets("Feuil1") 'prend en compte l'oglet "Feuil1" (à adapter à ton cas)
    Set pl = .Range("E7:E" & .Cells(Application.Rows.Count, 5).End(xlUp).Row) 'définit la plage pl (à adapter à ton cas)
    Set r = pl.Find(Application.WorksheetFunction.Max(pl), , xlValues, xlWhole) 'définit la recherche (rechercne la valeur max dans la plage pl)
    .Range("G9").Value = r.Offset(-2, -1) 'plage en G9 (à adapter à ton cas) la valeur décalée
End With 'fin de la pris een compte de l'onglet "Feuil1"
End Sub

ou par formule en G8 (par exemple) :

Code:

=INDEX($D$7:$E$17;EQUIV(MAX($E$7:$E$17);$E$7:$E$17)-2;1)

[Édition]
Bonjour Tototiti, Theze, on s'est croisé

 

Vote positif 0 Vote négatif

D

desvin

Guest

• 5 Septembre 2011

• #6

Re : Recherche code VBA

Bonjour à tous,

Et surtout un grand MERCI, je vais regarder tout ça.

@+

Kevin

 

Vote positif 0 Vote négatif

D

desvin

Guest

• 5 Septembre 2011

• #7

Re : Recherche code VBA

Je viens d'essayer le programme de Robert et j'ai l'erreur sur la ligne suivante (où j'ai remplacé le range) qui apparait:
> Set pl = .Range("F1550:F1613" & .Cells(Application.Rows.Count, 5).End(xlUp).Row)

L'erreur stipule : 1004, erreur définie par l'application ou par l'objet

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #8

Re : Recherche code VBA

Bonjour Robert 🙂
Re,

Il y a un numéro de ligne en trop
essaye

Code:

Set pl = .Range("F1550:F" & .Cells(Application.Rows.Count, 6).End(xlUp).Row)

 

Vote positif 0 Vote négatif

D

desvin

Guest

• 5 Septembre 2011

• #9

Re : Recherche code VBA

Merci cela fonctionne (je croyais que c'était une erreur à l'origine de Robert, l'absence de numéro..)
Malheureusement 2 lignes plus bas, c'est reparti :
> .Range("H1550").Value = r.Offset(-22, -2)

Cette fois l'erreur dit: Variable objet ou de bloc With non définie

Je ne vois vraiment pas ce qui n'est pas définie dans cette ligne...
Bref, je m'excuse par avance de mes faibles notions VBA

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #10

Re : Recherche code VBA

Re,

Pas trop d'idée, là, moins évident
il faudrait que tu mettes un espion sur r, pour voir ce qu'il vaut, quelle est son adresse... etc

 

Vote positif 0 Vote négatif

D

desvin

Guest

• 5 Septembre 2011

• #11

Re : Recherche code VBA

J'ai mis un stop à cette ligne, le programme s'arrête donc à :
> Set r = pl.Find(Application.WorksheetFunction.Max(pl), , xlValues, xlWhole)

Et quand je vais sur r pour savoir ce qu'il vaut, "r=Nothing" apparait ='(

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #12

Re : Recherche code VBA

Re,

OK, l'étape suivante est de savoir ce que vaut

Application.WorksheetFunction.Max(pl)

Cliquez pour agrandir...

Pour comprendre pourquoi il ne trouve pas la valeur

 

Vote positif 0 Vote négatif

D

desvin

Guest

• 5 Septembre 2011

• #13

Re : Recherche code VBA

J'ai tapé L = Application.WorksheetFunction.Max(pl)
Il trouve bien le bon maximum

Donc le problème vient d'autre part...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 5 Septembre 2011

• #14

Re : Recherche code VBA

Re,

J'ai mis un stop à cette ligne, le programme s'arrête donc à :
> Set r = pl.Find(Application.WorksheetFunction.Max(pl), , xlValues, xlWhole)

Et quand je vais sur r pour savoir ce qu'il vaut, "r=Nothing" apparait ='(

Cliquez pour agrandir...

r vaut Nothing avant que la ligne soit exécutée ou après ?
Avant, c'est normal...

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 5 Septembre 2011

• #15

Re : Recherche code VBA

Bonjour le fil, bonjour le forum,

Je crois que si tu daignais mettre ton fichier en pièce jointe on perdrait moins de temps...

 

Vote positif 0 Vote négatif