Macro recherche et sélection

Bonjour,

n'ayant jamais utilisé de macro sur excel (je suis un utilisateur lambda qui fait des tableaux, rien de plus, avec quelques formules dedans) je cherche a créer une macro.

Elle doit être super simple à faire mais je n'arrive pas à trouver d'exemple concret pour m'inspirer correctement et la faire moi même.

J'ai plusieurs tableaux regroupés sur une même feuille. Chaque tableau à un numéro unique qui se trouve soit sur la ligne 4 soit sur la ligne 37. Je souhaite créer une macro qui me recherche un numéro précédemment tapé dans une fenêtre.

Explication:
J'ai un bouton présent sur ma feuille, lorsque je clique dessus je souhaite qu'une petite fenêtre s'affiche et me dise "Entrez le numéro de chantier" on rentrerai alors le numéro, un bouton recherché sur lequel on clique. Ensuite lorsque le numéro est trouvé on sélectionne la case correspondante pour que le positionné la fenêtre sur le tableau qui porte se numéro. (je ne sais pas si il faut la sélectionner ou l'activer).

Si c'est simple et que quelqu'un à quelques minutes à perdre pour me faire la macro je vous en remercie par avance. Cela fait quelques heures que je cherche mais sans vraiment trouver l'exemple qui me correspond.

Merci par avance

Bonjour,
Voici une piste de recherche: l' inputbox pour demander à l'utilisateur quel tableau il veut voir.
Ensuite, il suffit de sélectionner la bonne cellule grâce à Select.

Voici un exemple, après il y d'autres solutions

Pièce jointe 263608

voilà

Merci à vous deux j'ai vachement avancé du coup.

Mais (oui il faut toujours un mais ^^) j'arrive pas a changer la plage de recherche sur ton exemple Nicolas JACQUIN, Je souhaiterai qu'il cherche sur les ligne 4 et 37 par exemple mais lorsque je veux mettre "Rows(4:4,37:37) il me sort une erreur.

merci par avance

Bonjour,
La syntaxe correcte est:

Code:

---

Rows("4:4, 37:37")

---

avec les guillemets ;)

Bonjour,

voici code modifié

Code:

---

Range("4:4,37:37")

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

Private Sub CommandButton1_Click()   Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String Valeur_Cherchee = TextBox1.Text   Set PlageDeRecherche = Worksheets("Feuil1").Range("4:4,37:37") Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, LookAt:=xlWhole) If Trouve Is Nothing Then MsgBox "texte non trouvé" Else Trouve.Select End If End Sub

---

;)

Super!! merci beaucoup

c'est les " " qui me faisait défaut en fait.

Du coup j'ai fait une petite modification au niveau de la feuille de travail (j'ai plusieurs feuilles du même type) du coup pour éviter de multiplier les boutons et les Userform, je lui demande de faire la recherche sur la feuille active.

Voila ce que ça donne. (j'ai copier / coller le même bouton sur les différentes feuilles).

Code:

---

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

Option Explicit   Private Sub CommandButton1_Click() Dim Trouve As Range, PlageDeRecherche As Range Dim Valeur_Cherchee As String, AdresseTrouvee As String Dim nom As String nom = TextBox1.Text Valeur_Cherchee = nom Set PlageDeRecherche = ActiveSheet.Range("4:4,37:37") Set Trouve = PlageDeRecherche.Cells.Find(What:=Valeur_Cherchee, lookat:=xlWhole) If Trouve Is Nothing Then MsgBox "texte non trouvé" Else Trouve.Select End If End Sub

---

ça fonctionne comme je le souhaite. Merci beaucoup pour votre aide.

ça commence à rentrer la compréhension du code VBA ^^ mais faut pas rater une virgule.

Passer une bonne journée