Discussion :

[Traindupied]

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

[riaolle]

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.

[Nicolas JACQUIN]

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

Pièce jointe 263608

voilà

[Traindupied]

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

[riaolle]

Bonjour,
La syntaxe correcte est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

avec les guillemets

[Nicolas JACQUIN]

Bonjour,

voici code modifié

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Traindupied]

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 :

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
 
 
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