Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Excel 2013 vba rechercher prénom

 

Le Jeannot, willyplaisir, 1 utilisateur anonyme et 99 utilisateurs inconnus
Ajouter une réponse
 

 
Page photos
 
 Mot :  Pseudo :  
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Excel 2013 vba rechercher prénom

RÉSOLU
Prévenir les modérateurs en cas d'abus 
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 19/11/2017 à 19:18:30  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour à toutes et tous, spécialement à WillyPlaisir.

Je suis à nouveau à la bourre, voilà ma demande:
Un tableau reprenant nom, prénom, date de naissance, etc.
J'ai trouvé pour rechercher par un système de fonction et Vba:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Sub RecherPrenom() ' Module 9 Recherche par Prénom
  2. 'On ouvre le formulaire de recherche dans BASE
  3.  Range("G6:G6").Select 'sélectionne la colonne prénom
  4.  frmRecherPrenom.Show ' ouvre le formulaire
  5. End Sub
  6.  
  7. Function RecherPre(Recherche As String, zoneRecherche As Variant) As Range
  8.  Dim cellulesTrouvees As Range
  9.  Set cellulesTrouvees = zoneRecherche.Find(What:=Recherche, After:=ActiveCell, LookIn:=xlValues, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
  10.  If cellulesTrouvees Is Nothing Then
  11.    Set RecherPre = Nothing
  12.  Else
  13.    Set RecherPre = cellulesTrouvees
  14.  End If
  15.  cellulesTrouvees.Select
  16.  Selection.Interior.ColorIndex = 8 'colore les prénoms trouvés en vert
  17. 'cellulesTrouvees.Select
  18. 'Selection.Interior.Color = RGB(255, 192, 198)
  19. End Function


Cela fonctionne correctement jusqu'à la ligne 15.
Je voudrais que, après consultation, les prénoms qui ont été sélectionnés reviennent dans leur état antérieur à savoir la couleur reprise en ligne 17, en cliquant sur "quitter".
Si j'enlève les apostrophes des lignes 16 et 17, les prénoms reprennent immédiatement leur couleur d’origine, sans avoir eu la possibilité de consulter ma recherche

Grand merci à celui ou celle qui pourront m'aider
Bien cordialement
Mexav

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 19/11/2017 à 20:44:29
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 20/11/2017 à 12:46:29  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr,

le plus simple serait de déposer ton fichier(si possible enregistré sous la version 2007 pour moi) avec des noms bidons sur le site
http://cjoint.com/index.php
et nous mettre le lien sur le forum pour mieux t'aider.
je pense que c'est en quittant le formulaire que tu souhaites retrouver les couleurs normales?


 :hello:
Message édité par willyplaisir le 20/11/2017 à 13:12:28

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 20/11/2017 à 19:58:40  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir Willy,

Merci pour ta réponse,
Effectivement c'est ce que tu as pensé:"c'est en quittant le formulaire que tu souhaites retrouver les couleurs normales?"


Cette réponse te suffit-elle, sinon je ferai l'envoi d'un fichier ?
Il faut que je le prépare.
Bonne soirée
Xavier

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 20/11/2017 à 20:11:13  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bsr,

dans le bouton clic quitter du formulaire
tu mets
unload me
et la couleur d'origine.
puis tu fais un test


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 20/11/2017 à 23:48:08  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonsoir Willy,
Cela fonctionne voici le code complété:
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub cmdQuitterPrenom_Click()
  2.  Unload Me
  3.  Range("G:G").Select
  4.  Selection.Interior.Color = RGB(255, 192, 198)
  5. End Sub


Déjà bien merci, j'ai qq peu cherché !
Cependant, insatiable, je voudrais pouvoir me déplacer dans le tableau, avant de quitter le formulaire, si c'est possible.
Cordialement, Xavier

J'ai trouvé Willy, frmRecherPrenom.Show vbModeless.
Autre demande, je voudrais afficher tout ou partie de la ligne contenant le ou les prénoms trouvés.
Sur ce, je vais dormir.

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 21/11/2017 à 20:21:20
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2017 à 09:09:26  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bjr Xavier,
Mettre résolu à ton post si j'ai répondu à ta demande


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 21/11/2017 à 12:23:43  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour Willy,
Cela avance et merci. Autre demande, le code actuel affiche et colore les cellules recherchées, comme Luc, Lucien, Lucie, lorsque je demande Luc dans le formulaire, c'est ce que je désirais.
Je voudrais que soit colorée tout ou partie de la ligne contenant le ou les prénoms trouvés.
J'ai cherché avec cells mais n'y arrive pas.
Bien merci d'avance.
Xavier

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2017 à 13:42:25  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
bjr
avec tes noms selectionnés tu peux ajouter ces lignes
pour colorer les lignes de la colonne G à K comme exemple

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. For Each cel In Selection
  2.     li = cel.Row
  3.      Range("G" & li & ":k" & li).Select
  4.      Selection.Interior.ColorIndex = 8
  5.     Next


Si tu as le temps, merci de visiter l'association des Millepattes ci dessous
 :hello:


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 21/11/2017 à 15:42:28  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Merci Willy, le code est concluant, seulement revers à la médaille, quand je "quitte", il n'y a que la colonne G qui reprend sa couleur initiale et pour cause le code pour Quitter;
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub cmdQuitterPrenom_Click()
  2.  Unload Me
  3.  Range("G:G").Select
  4.  Selection.Interior.Color = RGB(255, 192, 198)
  5. End Sub


Comme les autres colonnes ont une couleur différente, je suppose que je dois faire comme pour la col. G en y ajustant la bonne couleur, ou y aurait-il une autre solution, comme par ex. une boucle.
Merci
Xavier

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 21/11/2017 à 20:21:44
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2017 à 15:55:05  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub cmdQuitterPrenom_Click()
  2. Unload Me
  3. Range("G:K" ).Select
  4. Selection.Interior.Color = RGB(255, 192, 198)
  5. End Sub
Message cité 1 fois

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 21/11/2017 à 16:17:50  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Private Sub cmdQuitterPrenom_Click()
  2.  Unload Me
  3.  Range("G:K" ).Select
  4.  Selection.Interior.Color = RGB(255, 192, 198)
  5. End Sub

Afficher plus
Afficher moins

Oui je suis bien d'accord pour G et H qui ont la même couleur, I et K ont la couleur 224,192,192
Je suppose que je dois écrire :

Code :(Double-cliquez pour supprimer les numéros de ligne)
  1. Range("I:K").select
  2. Selection.Interior.Color = RGB(224,192,192)

et ainsi de suite pour les autres colonnes se poursuivant jusqu'à la col. "AI".
J'ai fait le test pour "I:K", cela fonctionne.
Je pense être dans la bonne voie, si tu peux me le confirmer, ce sera, dès lors, résolu.
Merci, à bientôt.
Xavier

Edit par Tintin10 : rajout des balises de code
Message édité par Tintin10 le 21/11/2017 à 20:22:16
(Publicité)
willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2017 à 16:55:05  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
si tu as fais le test avec succès, tu peux mettre résolu à ton post
et n'oublies pas de visiter l'association des millepattes que j'essaie d'aider pour me remercier .
@+
willy
Message cité 1 fois

---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
tout ce qui est excessif est i
  1. config
mexav2000
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 21/11/2017 à 18:01:12  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 

willyplaisir a écrit :

si tu as fais le test avec succès, tu peux mettre résolu à ton post
et n'oublies pas de visiter l'association des millepattes que j'essaie d'aider pour me remercier .
@+
willy
Afficher plus
Afficher moins

Bravo aux millepattes !
Encore et encore merci, j'en apprends tjrs.
Bonsoir et à une prochaine "galère".
Je marque comme "résolu"
Xavier

willyplaisir
Expert Excel Habitué (de 5 000 à 9 999 messages postés)
  1. Posté le 21/11/2017 à 18:07:20  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
content pour toi
@+
willy


---------------
[:ahlefoufou] Merci de sauver les chats abandonnés en aidant cette association : [:tazounet:5]
- Pension MillePattes
(Publicité)
 Page :
1

Aller à :
 

Sujets relatifs
Liens sous Excel 2007 Office Pro 2013 - Activation impossible
Générateur d'aperçu Excel Excel 2016 - VBA : Récupérer les valeurs de 2 champs pour les recopier
Excel ne s'ouvre pas Excel avec win 10 et suite win 365
nom prénom dans zone de notification fonction rechercher excel
Plus de sujets relatifs à : Excel 2013 vba rechercher prénom

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
Liens sous Excel 2007 5
Office Pro 2013 - Activation impossible 4
Générateur d'aperçu Excel 4
Transfert de Microsoft Money 2002 à 2005 0
Office 365 et 2016 1