Recherche un peu compliquée
xacobeo2004
Messages postés
1
Date d'inscription
mardi 19 avril 2005
Statut
Membre
Dernière intervention
19 avril 2005
-
19 avril 2005 à 18:54
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 19 avril 2005 à 19:25
valtrase Messages postés 937 Date d'inscription lundi 19 janvier 2004 Statut Membre Dernière intervention 9 mai 2022 - 19 avril 2005 à 19:25
A voir également:
- Recherche un peu compliquée
- Barre de recherche php ✓ - Forum PHP
- Php/Mysql formule de recherche Mysqli ✓ - Forum PHP
- Créer un moteur de recherche interne ✓ - Forum PHP
- Métamoteur de recherche - Forum Java
- Recherche dichotomique java - Forum Java
2 réponses
cs_Jack
Messages postés
14006
Date d'inscription
samedi 29 décembre 2001
Statut
Modérateur
Dernière intervention
28 août 2015
79
19 avril 2005 à 19:17
19 avril 2005 à 19:17
Salut
Sous Excel, regarde dans l'aide :
- Sélection/somme conditionnelle
- Tableau croisé dynamique
Tu verras qu'on peut faire beaucoup de choses.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
Sous Excel, regarde dans l'aide :
- Sélection/somme conditionnelle
- Tableau croisé dynamique
Tu verras qu'on peut faire beaucoup de choses.
Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés
Le savoir est la seule matière qui s'accroit quand on la partage. (Socrate)
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
19 avril 2005 à 19:25
19 avril 2005 à 19:25
Ce code non testé LOL est à mettre dans l'évènement activate de ta UserForm
Dim Myrng As Range
Dim rSearch As Range
' On sélectionne la zone de recherche
Set Myrng = [A1:A100]
With Myrng
' Prendre soin de remplacer "Ici ton critère" par la valeur recherchée
Set rSearch = .Find( "ici ton critère" , LookIn:=xlValues)
If Not rSearch Is Nothing Then
firstAddress = rSearch.Address
ComboBox1.Clear
Do
'L'Offset décale de X lignes et de x Colonnes
'ex: .Offset(-1,1) décale d'une ligne vers le haut et d'une colonne vers la droite
'ex: .Offset(0,5) garde la même ligne et 5 colonnes sur la droite
ComboBox1.AddItem rSearch.Offset( "Ta ligne décalée" , "Tacolonne décalée" ).Value
Set rSearch = .FindNext(rSearch)
Loop While Not rSearch Is Nothing And rSearch.Address <> firstAddress
End If
End With
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Dim Myrng As Range
Dim rSearch As Range
' On sélectionne la zone de recherche
Set Myrng = [A1:A100]
With Myrng
' Prendre soin de remplacer "Ici ton critère" par la valeur recherchée
Set rSearch = .Find( "ici ton critère" , LookIn:=xlValues)
If Not rSearch Is Nothing Then
firstAddress = rSearch.Address
ComboBox1.Clear
Do
'L'Offset décale de X lignes et de x Colonnes
'ex: .Offset(-1,1) décale d'une ligne vers le haut et d'une colonne vers la droite
'ex: .Offset(0,5) garde la même ligne et 5 colonnes sur la droite
ComboBox1.AddItem rSearch.Offset( "Ta ligne décalée" , "Tacolonne décalée" ).Value
Set rSearch = .FindNext(rSearch)
Loop While Not rSearch Is Nothing And rSearch.Address <> firstAddress
End If
End With
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé