Recherche par userform

6 réponses

Angelus

30/05/2006 à 13:13

Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code référence) et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

6 réponses

Daniel

30/05/2006 à 13:52

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message de
news:

Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Angelus

30/05/2006 à 14:04

MERCI !!

Trop cool t une bête ! :-)

En passant tu pourrai me dire comment démarré toujours sur la même page
quelque soit l'endroit ou tu enregistre?

Merci d'avance

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message de
news:
Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Daniel

30/05/2006 à 14:28

Comme ça ?

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For i = 1 To Sheets.Count
If Sheets(i).Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = Sheets(i).Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets(i).Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next i
End Sub

Daniel
"Angelus" a écrit dans le message de
news:

MERCI !!

Trop cool t une bête ! :-)

En passant tu pourrai me dire comment démarré toujours sur la même page
quelque soit l'endroit ou tu enregistre?

Merci d'avance

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message de
news:
Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code
référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne
feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Angelus

30/05/2006 à 16:05

C pour ouvrir le fichier toujours sur le même onglet?

Comme ça ?

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For i = 1 To Sheets.Count
If Sheets(i).Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = Sheets(i).Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets(i).Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next i
End Sub

Daniel
"Angelus" a écrit dans le message de
news:
MERCI !!

Trop cool t une bête ! :-)

En passant tu pourrai me dire comment démarré toujours sur la même page
quelque soit l'endroit ou tu enregistre?

Merci d'avance

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message de
news:
Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code
référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne
feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Daniel

30/05/2006 à 16:37

Les onglets sont traités toujours dans le même ordre.
Daniel
"Angelus" a écrit dans le message de
news:

C pour ouvrir le fichier toujours sur le même onglet?

Comme ça ?

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For i = 1 To Sheets.Count
If Sheets(i).Name <> "ANePasTraiter" Then 'Feuille à ne pas
examiner
Set c = Sheets(i).Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets(i).Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next i
End Sub

Daniel
"Angelus" a écrit dans le message de
news:
MERCI !!

Trop cool t une bête ! :-)

En passant tu pourrai me dire comment démarré toujours sur la même page
quelque soit l'endroit ou tu enregistre?

Merci d'avance

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message
de
news:
Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur
de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code
référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne
feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Daniel

30/05/2006 à 16:44

Si tu veux connaître cet ordre, ajoute :
MsgBox Sheets(i).Name
après :
For i = 1 To Sheets.Count
Daniel
"Angelus" a écrit dans le message de
news:

C pour ouvrir le fichier toujours sur le même onglet?

Comme ça ?

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For i = 1 To Sheets.Count
If Sheets(i).Name <> "ANePasTraiter" Then 'Feuille à ne pas
examiner
Set c = Sheets(i).Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets(i).Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next i
End Sub

Daniel
"Angelus" a écrit dans le message de
news:
MERCI !!

Trop cool t une bête ! :-)

En passant tu pourrai me dire comment démarré toujours sur la même page
quelque soit l'endroit ou tu enregistre?

Merci d'avance

Bonjour.
Le code suivant est associé à un bouton :

Private Sub CommandButton1_Click()
Dim sh As Worksheet, c As Range
For Each sh In Sheets
If sh.Name <> "ANePasTraiter" Then 'Feuille à ne pas examiner
Set c = sh.Cells.Find(TextBox1.Value, lookat:=xlWhole)
If Not c Is Nothing Then
sh.Select
c.Offset(0, 2).Select
Exit For
End If
End If
Next sh
End Sub

Cordialement.
Daniel
"Angelus" a écrit dans le message
de
news:
Bonjour

Je possède un catalogue sur excel et je souhaite incorporé un moteur
de
recherche dans tout le classeur (sauf 1 page si possible).
J'ai créé un UserForm avec une TextBox et un bouton de recherche.
Voici ce que je voudrai effectué :
Dans la TextBox de cette UserForm, je saisis 6 chiffres (code
référence)
et
je clique sur un bouton "Recherche".
Ensuite, je souhaite que le curseur se positionne dans la bonne
feuille,
décaler de deux case à droite de la valeur que j'ai saisie

Merci

Recherche par userform

6 réponses

Veuillez sélectionner un problème