Discussion :

[yeahna]

Bonjour,

J'ai une grande faveur à demander, j'aimerais pouvoir faire une recherche itérative dans un de mes fichiers.

Dans le fichier, ci-joint, j'ai besoin de rechercher dans la colonne B, la première valeur plus grande ou égale à la cellule G11. (Dans cet exemple, c'est la cellule B5.)
Ensuite j'aurais besoin de copier la valeur de B5 dans la cellule G12 et de copier l'identifiant qui correspond à B5, càd la valeur de la cellule A5 dans la cellule G13.


Je comprends le code en VBA mais je ne sais pas le créer.
Quelqu'un pourrait-il m'aider à résoudre ce problème svp?

Mille mercis d'avance!

Jenna

[evx136]

bonjour

Essaie ce code

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
 
Sub test()
Dim Valeur As Integer
 
 
With Sheet1
    Valeur = .Range("g11").Value
    For cpt = 1 To .Range("b65536").End(xlUp).Row
        If .Cells(cpt, 2) >= Valeur Then
            .Range("g12") = .Cells(cpt, 2).Value
            .Range("g13") = .Cells(cpt, 1).Value
 
        End If
 
    Next cpt
 
 
End With
End Sub

[yeahna]

Il n'y a rien qui se passe.
Je dois bien mettre le code sur la Sheet1?

[evx136]

Aller

tu as le fichier en PJ

Cordialement

[mercatog]

Bonjour
à evx136

Ajoute un Exit For pour sortir de la boucle

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
Sub Test()
Dim Valeur As Double
Dim Cpt As Long
 
With Sheet1
    Valeur = .Range("G11").Value
    For Cpt = 1 To .Range("B65536").End(xlUp).Row
        If .Cells(Cpt, 2) >= Valeur Then
            .Range("G12") = .Cells(Cpt, 2).Value
            .Range("G13") = .Cells(Cpt, 1).Value
            Exit For
        End If
    Next Cpt
End With
End Sub

[yeahna]

Super merci à vous deux maintenant ça marche parfaitement!

Encore juste une petite chose (en espérant ne pas abuser de votre gentillesse).

Y a-t-il moyen de générer ce code directement lors du changement de valeur de la celulle, sans avoir un bouton de commande?

Mille mille mercis