Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro recherche avec conditions sur excel2003

  • Initiateur de la discussion Initiateur de la discussion Steph62
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S

Steph62

Guest
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.
 

Pièces jointes

Dernière modification par un modérateur:
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)
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
880
Réponses
3
Affichages
622
Réponses
7
Affichages
775
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…