Macro recherche avec conditions sur excel2003

[Steph62]

Bonjour,
Je suis un debutant en macro, et je n'arrive pas a creer cette macro, si quelqu'un pouvait m'aider, se serait sympa.
J'ai cree un document excel avec 1 base de donnees encore vierge (1 onglet en page de garde, 1 en base de donnees).
Sur la page de garde, j'aimerai avec le bouton "CHECK" associer une macro qui :
-prend en compte la case D8 (nom et numero telephone) puis va rechercher une correspondance dans "sheets2".
-si OK, faire apparaitre un msgbox "VALID" avec OK comme seul choix.
-si KO, faire apparaitre un msgbox "NOT VALID" avec comme phrase "Confirm this POC is valid or not?", puis click "VALID" or "NOT VALID".
* Si "VALID" alors ecrire D8 en sheets2 avec date du jour et ecriture en rouge a j+14 et suppression
ligne a J+15.
* Si "NOT VALID" alors exit.

Merci par avance.
Je joins le fichier.

 

[Steph62]

Re : Macro recherche avec conditions sur excel2003

Bonjour,

J'ai cree 2 macros : 1 de recherche et 1 d'inscription dans la base de donnees. Je voudrais en avoir une seule qui respecte les conditions du post.

Macro recherche :

Dim WS As Worksheet
Dim c As Range
Dim Name As String, firstAddress As String

Name = InputBox ("Name & Phone to be search in DataBase", "Search")
If Name <> "" Then
For each Sh in ThisWorbook.Worksheets (je voudrais qu'il recherche uniquement sur sheets2)Set c = Sh.Cells.Find (Name, LookIn:=xlValues, LookAt:=xlPart)
If Not c Is Nothing Then
Sh.Activate
c.Select
firstAddress=c.Address
Do
strreponse = MsgBox (Sh.Name & "!" & c.Address & vbCrLf & _
"Yes for VALID" & vbLf & _
"No for NOT VALID", vbYesNo)
If strreponse = vbno Then
(je voudrais copier la cellule D8 de sheets1 vers cellule B6 de sheets2)