Le code suivant (qui m'a =E9t=E9 fourni par Isabelle)=20
repr=E9sente une fonction FIND pour des donn=E9es dans une=20
colonne B pour une feuille active. Cependant, j'aimerais=20
avoir aussi la possibilit=E9 de faire une recherche dans=20
toutes les feuilles du fichier, i.e. 12 feuilles (chacune=20
au nom des employ=E9s). Est-ce que c'est possible?
Merci pour votre temps.
Denys
Sub recherche()
Dim c, fistA
Dim msg, Style, Title, response
Style =3D vbExclamation + vbYesNo
Title =3D ""
With ActiveSheet().Range("$b$8:b65535")
Set c =3D .Find(InputBox("Please insert account=20
number"), LookIn:=3DxlValues)
If Not c Is Nothing Then
fistA =3D c.Address
Application.Goto Reference:=3DRange(c.Address).Offset
(, 4)
Completed.Show
Else
msg =3D "No account found"
dialogstyle =3D vbOKOnly + vbExclamation
Title =3D "Caution"
reponse =3D MsgBox(msg, dialogstyle, Title)
Beep
Exit Sub
End If
Exit Sub
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Ellimac
Bonjour,
Il faut une boucle pour le nb de feuilles : For each f in activeworkbook.sheets traitement... Next
Amicalement Camille
-----Message d'origine----- Bonjour à tous,
Le code suivant (qui m'a été fourni par Isabelle) représente une fonction FIND pour des données dans une colonne B pour une feuille active. Cependant, j'aimerais avoir aussi la possibilité de faire une recherche dans toutes les feuilles du fichier, i.e. 12 feuilles (chacune au nom des employés). Est-ce que c'est possible?
Merci pour votre temps.
Denys
Sub recherche() Dim c, fistA Dim msg, Style, Title, response Style = vbExclamation + vbYesNo Title = "" With ActiveSheet().Range("$b$8:b65535") Set c = .Find(InputBox("Please insert account number"), LookIn:=xlValues) If Not c Is Nothing Then fistA = c.Address Application.Goto Reference:=Range(c.Address).Offset (, 4) Completed.Show Else msg = "No account found" dialogstyle = vbOKOnly + vbExclamation Title = "Caution" reponse = MsgBox(msg, dialogstyle, Title) Beep Exit Sub End If Exit Sub End With .
Bonjour,
Il faut une boucle pour le nb de feuilles :
For each f in activeworkbook.sheets
traitement...
Next
Amicalement
Camille
-----Message d'origine-----
Bonjour à tous,
Le code suivant (qui m'a été fourni par Isabelle)
représente une fonction FIND pour des données dans une
colonne B pour une feuille active. Cependant, j'aimerais
avoir aussi la possibilité de faire une recherche dans
toutes les feuilles du fichier, i.e. 12 feuilles (chacune
au nom des employés). Est-ce que c'est possible?
Merci pour votre temps.
Denys
Sub recherche()
Dim c, fistA
Dim msg, Style, Title, response
Style = vbExclamation + vbYesNo
Title = ""
With ActiveSheet().Range("$b$8:b65535")
Set c = .Find(InputBox("Please insert account
number"), LookIn:=xlValues)
If Not c Is Nothing Then
fistA = c.Address
Application.Goto Reference:=Range(c.Address).Offset
(, 4)
Completed.Show
Else
msg = "No account found"
dialogstyle = vbOKOnly + vbExclamation
Title = "Caution"
reponse = MsgBox(msg, dialogstyle, Title)
Beep
Exit Sub
End If
Exit Sub
End With
.
Il faut une boucle pour le nb de feuilles : For each f in activeworkbook.sheets traitement... Next
Amicalement Camille
-----Message d'origine----- Bonjour à tous,
Le code suivant (qui m'a été fourni par Isabelle) représente une fonction FIND pour des données dans une colonne B pour une feuille active. Cependant, j'aimerais avoir aussi la possibilité de faire une recherche dans toutes les feuilles du fichier, i.e. 12 feuilles (chacune au nom des employés). Est-ce que c'est possible?
Merci pour votre temps.
Denys
Sub recherche() Dim c, fistA Dim msg, Style, Title, response Style = vbExclamation + vbYesNo Title = "" With ActiveSheet().Range("$b$8:b65535") Set c = .Find(InputBox("Please insert account number"), LookIn:=xlValues) If Not c Is Nothing Then fistA = c.Address Application.Goto Reference:=Range(c.Address).Offset (, 4) Completed.Show Else msg = "No account found" dialogstyle = vbOKOnly + vbExclamation Title = "Caution" reponse = MsgBox(msg, dialogstyle, Title) Beep Exit Sub End If Exit Sub End With .
