Macro recherche avec conditions sur excel2003

Steph62 · 21 Avril 2013

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 · 25 Avril 2013

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)

Macro recherche avec conditions sur excel2003

Steph62

XLDnaute Nouveau

Pièces jointes

Steph62

XLDnaute Nouveau

Discussions similaires