j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma
base de donnee.
On peut faire des filtres mais bon, je dois faire un bouton dans un menu
intitule recherche salle.
lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une
nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les
caracteristiques de la salle.
Je vous remercie.
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma
base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu
intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une
nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les
caracteristiques de la salle. Je vous remercie.
jaba
salut,
alors je ne suis pas sur d'avoir tout compris, mais a mon avis excel est plus approprié pour les base de donnée que vba . donc je te suggere que d'utiliser simplement une formule excel avec recherchev ou rechercheh
a+
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
salut,
alors je ne suis pas sur d'avoir tout compris, mais a mon avis excel est
plus approprié pour les base de donnée que vba .
donc je te suggere que d'utiliser simplement une formule excel avec
recherchev ou rechercheh
a+
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma
base de donnee.
On peut faire des filtres mais bon, je dois faire un bouton dans un menu
intitule recherche salle.
lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une
nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les
caracteristiques de la salle.
Je vous remercie.
alors je ne suis pas sur d'avoir tout compris, mais a mon avis excel est plus approprié pour les base de donnée que vba . donc je te suggere que d'utiliser simplement une formule excel avec recherchev ou rechercheh
a+
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
ChrisV
Bonjour bibiphoque91,
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee.
Un truc du style...
Sub zaza() Dim ws As Worksheet Dim c As Range reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _ "(minuscules ou majuscules...)", "Lancer une recherche...") If reC = "" Then Exit Sub For Each ws In Worksheets With ws.Cells Set c = .Find(reC) If Not c Is Nothing Then adDt = c.Address With Application .GoTo Reference:=ws.Range(adDt), Scroll:=True .ScreenUpdating = True End With nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10) _ & "sur les autres onglets ?" & Chr(10), 36, _ "Recherche accomplie...") If nreC = vbNo Then Exit Sub Set c = .FindNext(c) Do Set c = .FindNext(c) Loop While c.Address <> adDt End If End With Next ws rnreC = MsgBox("Aucune autre donnée correspondante à : " _ & UCase(reC), vbInformation, "Lancer une recherche...") End Sub
ChrisV
"bibiphoque91" a écrit dans le message de news:
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
Bonjour bibiphoque91,
j aimerai qu une macro fache une recherche de nom sur une feuille qui est
ma
base de donnee.
Un truc du style...
Sub zaza()
Dim ws As Worksheet
Dim c As Range
reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _
"(minuscules ou majuscules...)", "Lancer une recherche...")
If reC = "" Then Exit Sub
For Each ws In Worksheets
With ws.Cells
Set c = .Find(reC)
If Not c Is Nothing Then
adDt = c.Address
With Application
.GoTo Reference:=ws.Range(adDt), Scroll:=True
.ScreenUpdating = True
End With
nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10) _
& "sur les autres onglets ?" & Chr(10), 36, _
"Recherche accomplie...")
If nreC = vbNo Then Exit Sub
Set c = .FindNext(c)
Do
Set c = .FindNext(c)
Loop While c.Address <> adDt
End If
End With
Next ws
rnreC = MsgBox("Aucune autre donnée correspondante à : " _
& UCase(reC), vbInformation, "Lancer une recherche...")
End Sub
ChrisV
"bibiphoque91" <bibiphoque91@discussions.microsoft.com> a écrit dans le
message de news: FC52A95E-3390-4E2B-AA67-D2FFBBF396F2@microsoft.com...
j aimerai qu une macro fache une recherche de nom sur une feuille qui est
ma
base de donnee.
On peut faire des filtres mais bon, je dois faire un bouton dans un menu
intitule recherche salle.
lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans
une
nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les
caracteristiques de la salle.
Je vous remercie.
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee.
Un truc du style...
Sub zaza() Dim ws As Worksheet Dim c As Range reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _ "(minuscules ou majuscules...)", "Lancer une recherche...") If reC = "" Then Exit Sub For Each ws In Worksheets With ws.Cells Set c = .Find(reC) If Not c Is Nothing Then adDt = c.Address With Application .GoTo Reference:=ws.Range(adDt), Scroll:=True .ScreenUpdating = True End With nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10) _ & "sur les autres onglets ?" & Chr(10), 36, _ "Recherche accomplie...") If nreC = vbNo Then Exit Sub Set c = .FindNext(c) Do Set c = .FindNext(c) Loop While c.Address <> adDt End If End With Next ws rnreC = MsgBox("Aucune autre donnée correspondante à : " _ & UCase(reC), vbInformation, "Lancer une recherche...") End Sub
ChrisV
"bibiphoque91" a écrit dans le message de news:
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
ChrisV
Hum... à relecture de ton msg, ceci devrait mieux convenir...
En supposant que l'onglet où se trouve les données se nomme "BdD"
Sub zaza() With Sheets("BdD") .Activate SendKeys "%DG%C" .ShowDataForm End With End Sub
ChrisV
"ChrisV" a écrit dans le message de news:
Bonjour bibiphoque91,
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee.
Un truc du style...
Sub zaza() Dim ws As Worksheet Dim c As Range reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _ "(minuscules ou majuscules...)", "Lancer une recherche...") If reC = "" Then Exit Sub For Each ws In Worksheets With ws.Cells Set c = .Find(reC) If Not c Is Nothing Then adDt = c.Address With Application .GoTo Reference:=ws.Range(adDt), Scroll:=True .ScreenUpdating = True End With nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10) _ & "sur les autres onglets ?" & Chr(10), 36, _ "Recherche accomplie...") If nreC = vbNo Then Exit Sub Set c = .FindNext(c) Do Set c = .FindNext(c) Loop While c.Address <> adDt End If End With Next ws rnreC = MsgBox("Aucune autre donnée correspondante à : " _ & UCase(reC), vbInformation, "Lancer une recherche...") End Sub
ChrisV
"bibiphoque91" a écrit dans le message de news:
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
Hum...
à relecture de ton msg, ceci devrait mieux convenir...
En supposant que l'onglet où se trouve les données se nomme "BdD"
Sub zaza()
With Sheets("BdD")
.Activate
SendKeys "%DG%C"
.ShowDataForm
End With
End Sub
ChrisV
"ChrisV" <chrisve@wanadoo.fr> a écrit dans le message de news:
O3FO1WTOFHA.2468@tk2msftngp13.phx.gbl...
Bonjour bibiphoque91,
j aimerai qu une macro fache une recherche de nom sur une feuille qui est
ma
base de donnee.
Un truc du style...
Sub zaza()
Dim ws As Worksheet
Dim c As Range
reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _
"(minuscules ou majuscules...)", "Lancer une recherche...")
If reC = "" Then Exit Sub
For Each ws In Worksheets
With ws.Cells
Set c = .Find(reC)
If Not c Is Nothing Then
adDt = c.Address
With Application
.GoTo Reference:=ws.Range(adDt), Scroll:=True
.ScreenUpdating = True
End With
nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10)
_
& "sur les autres onglets ?" & Chr(10), 36, _
"Recherche accomplie...")
If nreC = vbNo Then Exit Sub
Set c = .FindNext(c)
Do
Set c = .FindNext(c)
Loop While c.Address <> adDt
End If
End With
Next ws
rnreC = MsgBox("Aucune autre donnée correspondante à : " _
& UCase(reC), vbInformation, "Lancer une recherche...")
End Sub
ChrisV
"bibiphoque91" <bibiphoque91@discussions.microsoft.com> a écrit dans le
message de news: FC52A95E-3390-4E2B-AA67-D2FFBBF396F2@microsoft.com...
j aimerai qu une macro fache une recherche de nom sur une feuille qui est
ma
base de donnee.
On peut faire des filtres mais bon, je dois faire un bouton dans un menu
intitule recherche salle.
lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans
une
nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes
les
caracteristiques de la salle.
Je vous remercie.
Hum... à relecture de ton msg, ceci devrait mieux convenir...
En supposant que l'onglet où se trouve les données se nomme "BdD"
Sub zaza() With Sheets("BdD") .Activate SendKeys "%DG%C" .ShowDataForm End With End Sub
ChrisV
"ChrisV" a écrit dans le message de news:
Bonjour bibiphoque91,
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee.
Un truc du style...
Sub zaza() Dim ws As Worksheet Dim c As Range reC = InputBox(Chr(10) & "Rechercher :" & Chr(10) & _ "(minuscules ou majuscules...)", "Lancer une recherche...") If reC = "" Then Exit Sub For Each ws In Worksheets With ws.Cells Set c = .Find(reC) If Not c Is Nothing Then adDt = c.Address With Application .GoTo Reference:=ws.Range(adDt), Scroll:=True .ScreenUpdating = True End With nreC = MsgBox("Désirez-vous poursuivre la recherche" & Chr(10) _ & "sur les autres onglets ?" & Chr(10), 36, _ "Recherche accomplie...") If nreC = vbNo Then Exit Sub Set c = .FindNext(c) Do Set c = .FindNext(c) Loop While c.Address <> adDt End If End With Next ws rnreC = MsgBox("Aucune autre donnée correspondante à : " _ & UCase(reC), vbInformation, "Lancer une recherche...") End Sub
ChrisV
"bibiphoque91" a écrit dans le message de news:
j aimerai qu une macro fache une recherche de nom sur une feuille qui est ma base de donnee. On peut faire des filtres mais bon, je dois faire un bouton dans un menu intitule recherche salle. lorsque j appuie sur le bouton, je ne sais pas si une on fait cela dans une nouvelle fenetre, on rentre le nom d une salle et cela me donne toutes les caracteristiques de la salle. Je vous remercie.
