Problèmes rechercher valeur

Bonjour ,

Je vous contact suite à un problèmes que je rencontre dans mon code je veut grâce à cette ligne là assigner une plage de recherche qui me permet ensuite de trouver une valeur et lorsque cette valeur est trouver me donner le numéro de ligne :

Voici mon code :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseOrTrouvee As String, AdresseDestTrouvee As String   Valeur_Cherchee = Box_Origine.Value 'on cherche la valeur dans Box_Origine   Set PlageDeRecherche = Sheets("Site").Columns(2) ' On définie la plage de recherche   Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole) ' On recherche Valeur_Cherchee dans la plage de recherche   If Trouve Is Nothing Then 'Si il ne trouve rien   AdresseOrTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address   Else   AdresseOrTrouvee = Trouve.Row   End If

---

Je précise que ce code est fonctionnel normalement , mais lorsque j'ai changer le tableau où je cherche mes valeurs pour l'adapter à un tableau de base de données j'ai un soucis au niveau de la PlageDeRecherche qui ne veut pas se mettre correctement x: , Voici le tableau :

http://img11.hostingpics.net/pics/645831Capture.png

Bonjour,

si tu utilises un ListObjects, tu as la possibilité de ne parcourir que la zone des données

ta capture écran laisse à penser que ton tableau commence en colonne B... qui est donc la première colonne de ton tableau

si ce n'est pas le cas, il suffit d'adapter le bloc "With" du code, pour indiquer le bon numéro de colonne du tableau

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Recherche() Dim Valeur As String Dim Resultat As Range Dim LigResult As Long   Valeur = "toto"   ' ton tableau / uniquement ses données / colonne 1 du tableau With Sheets("Feuil1").ListObjects(1).DataBodyRange.Columns(1) Set Resultat = .Find(Valeur, , , xlWhole) If Not Resultat Is Nothing Then LigResult = Resultat.Row MsgBox LigResult Else MsgBox Valeur & " non trouvée dans " & .Address End If End With   End Sub

---

Oui je me suis tromper j'ai oublier de montrer qu'il y avait une colonne " A "
Et comme par exemple la recherche ce fait dans la colonne B uniquement cela donnerais donc cela ?

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseOrTrouvee As String, AdresseDestTrouvee As String   Valeur_Cherchee = Box_Origine.Value 'on cherche la valeur a chercher dans Box_Origine   With Sheets("Site").ListObjects(1).DataBodyRange.Columns(2) ' on definie la feuille et ?????????   Set Trouve = .Find(What:=Valeur_Cherchee, LookAt:=xlWhole) ' On recherche Valeur_Cherchee   If Trouve Is Nothing Then 'Si il ne trouve rien   AdresseOrTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address   Else   AdresseOrTrouvee = Trouve.Row   End If End With

---

j'aimerais aussi avoir des explications sur cette ligne là :

Code:

---

With Sheets("Site").ListObjects(1).DataBodyRange.Columns(2)

---

Donc le Sheets designe la feuille où l'on cherche , le DataBodyRange.Columns la colonne où l'on cherche mais le ListObjects correspond à quoi ?

Le "Tableau Excel" que tu crée en utilisant le menu "Insertion>>Tableau" est un objet VBA "ListObject"

donc ici :

Code:

---

With Sheets("Site").ListObjects(1).DataBodyRange.Columns(2)

---

on fait référence au premier "Tableau" de la feuille "Site" (je suis parti du principe qu'il n'y en avait qu'un seul !)
si tu avais plusieurs Tableaux dans ta feuille, tu peux remplacer l'index du tableau (le numéro "1") par son nom

si le tableau s'appelle "Tableau_1" par exemple, on aurait pu écrire :

Code:

---

With Sheets("Site").ListObjects("Tableau_1").DataBodyRange.Columns(2)

---

plus précisément, on pointe uniquement les données du tableau (DataBodyRange), et encore plus précisément sur la seconde colonne de ce tableau

on travaille directement dans le tableau, ce qui permet de faire abstraction de son positionnement sur la feuille

si ton tableau commençait par exemple en colonne B, la ligne de code juste au dessus fait référence à sa seconde colonne, soit la colonne C
tu as donc parfaitement compris comment il fallait modifier le numéro de colonne, puisque ton tableau commençait en colonne A ;)

Bon , j'ai vue que mon tableau avait un nom donc en suivant tes conseil je l'ai mis dans le code :

http://img11.hostingpics.net/pics/484868Capture.png

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

'//////Code pour le site d'origine-----------------------------------------   Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseOrTrouvee As String, AdresseDestTrouvee As String   Valeur_Cherchee = Box_Origine.Value 'on cherche la valeur dans Box_Origine   With Sheets("Site").ListObjects("Tableau__10.128.8.30_BSO_OBT_Magasins").DataBodyRange.Columns(2)   Set Trouve = .Find(What:=Valeur_Cherchee, LookAt:=xlWhole) ' On recherche Valeur_Cherchee dans la plage de recherche   If Trouve Is Nothing Then 'Si il ne trouve rien   AdresseOrTrouvee = Valeur_Cherchee & " n'est pas présent dans " & PlageDeRecherche.Address   Else   AdresseOrTrouvee = Trouve.Row   End If End With   Range("Feuil2!B5") = Sheets("Site").Cells(Trouve.Row, 1).Value 'On assigne le nom du site Range("Feuil2!B6") = Sheets("Site").Cells(Trouve.Row, 2).Value 'On assigne le nom d'entrepôt Range("Feuil2!B7") = Sheets("Site").Cells(Trouve.Row, 3).Value 'On assigne l'adresse Range("Feuil2!B8") = Sheets("Site").Cells(Trouve.Row, 4).Value ' On assigne l'adresse 2 Range("Feuil2!B9") = Sheets("Site").Cells(Trouve.Row, 5).Value & Sheets("Site").Cells(Trouve.Row, 6).Value ' On assigne la ville et le code postale

---

Rien n'a l'air de fonctionner :\ , quand je debug mon programme Visiblement il ne met rien dans Trouve et m'affiche Nothing donc c'est que je dois avoir un soucis à ce niveau là .

Bonjour,

j'ai testé ma proposition sur un tableau identique au tient (j'ai recopié les données de ta capture écran)
comme tu le vois, j'avais testé avec la valeur toto, que je trouvais s'il y avait un toto en colonne B, et que je ne trouvais pas dans le cas contraire

qu'est ce que "Box-Origine" ? un contrôle ou une plage nommée ?


est-il possible de voir ton fichier ? seul cet onglet m'intéresse, tu peux supprimer les autres
et éventuellement remplacer les adresses par des chiffres par exemple (pour que ça reste confidentiel)

Bonjour,

un tableau n'est pas obligatoire, la plage de recherche peut se définir ainsi :

Worksheets("Site").Cells(1).CurrentRegion.Columns(2) …

Surinox, la colonne n°2 correspond au nom et non à l'adresse, faut-il encore une certaine logique !

Et comme dans ta ligne n°10 tu as paramétré la recherche sur l'intégralité de la saisie, tous les caractères comptent !
Maintenant pourquoi utiliser donc cette méthode alors que des filtres sont déjà présents ?

_____________________________________________________________________________________________________
Je suis Charlie - Je suis Bardo

Le Box-origine est une listbox qui prend toute les valeur de la colonne B et donc que je selectionne dans un UserForm .

J'ai trouver mon erreur en fait dans la recherche j'avais mis :

Code:

---

With Sheets("Site").ListObjects("Tableau__10.128.8.30_BSO_OBT_Magasins").DataBodyRange.Columns(2)

---

Donc sa me cherche les valeur dans la colonne B alors que c'est dans la C ..

Code:

---

With Sheets("Site").ListObjects("Tableau__10.128.8.30_BSO_OBT_Magasins").DataBodyRange.Columns(3)

---

aprés avoir debug cela fonctionne , j'essaie de tout mettre au propre cette aprés-midi et je vous tiens au courrant merci de votre aide à tout les deux :)