Recherche et conséquence

Bonsoir,

La macro qui suit m'a été fournie par Isabelle. Elle
fonctionne très bien. Évidemment, tu auras à l'adapter
selon tes besoins.

Ici, Excel recherhe un no de compte dans la colonne A
après l'avoir entré dans un Inputbox et envoie un message
te disant qu'il a trouvé le no de compte demandé dans
telle ou telle cellule. Excel te demande si tu veux
l'imprimer... Si oui, il appelle la macro, sinon, Excel
arrête. Alors, au lieu de "do you wish to print a copy?"
Tu écris ce que tu veux. Si la réponse est oui, la macro
s'exécute, sinon Excel "exit sub"

J'espère que cela t'aidera...

Denys

Private Sub CommandButton1_Click()
'Cette macro a pour but de rechercher un no de compte dans
la base de données
'et d'en indiquer la cellule correspondante.
Dim c, fistA
Dim msg, Style, Title, response
Style = vbInformation
Title = "Research"
msg = "No account found"
With Worksheets("Feull1").Range("$a$2:a65535")
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
(0, -1)
question1 = MsgBox("Account number found in
cell " & fistA & " do you wish to print a copy?",
vbInformation + vbYesNo, "")
If question1 = 6 Then
Call La macro à exécuter
End If
Else
response = MsgBox(msg, Style, Title)
msg = "No account found"
Exit Sub
End If
End With
End Sub

-----Original Message-----
B'soir,

J'aimerai connaître le code VBA pour demander à Excel de
chercher dans la

feuille active le texte "Cherche et trouve" et s'il le
trouve d'exécuter la

suite de la macro et dans le cas contraire de ne rien
faire.

Merci de votre aide


.

Bonsoir David,

'----------------------------
Sub ChercherEtTrouve()

Dim Rg As Range
With ActiveSheet.UsedRange
Set Rg = .Find("Cherche et trouve", _
LookIn:=xlValues, LookAt:=xlWhole)
End With
If Not Rg Is Nothing Then
'le reste de ton code, il a trouvé
'pour obtenir l'adresse
A = Rg.Address(0, 0)
Else
MsgBox "Désolé, je n'ai rien trouvé."
End If
Set Rg = Nothing

End Sub
'----------------------------

Salutations!


"David Giono" <davegio@club-internet.fr> a écrit dans le message de news:eyQ%23BXcvDHA.2540@TK2MSFTNGP09.phx.gbl...
B'soir,

J'aimerai connaître le code VBA pour demander à Excel de chercher dans la
feuille active le texte "Cherche et trouve" et s'il le trouve d'exécuter la
suite de la macro et dans le cas contraire de ne rien faire.

Merci de votre aide