Microsoft 365 mots selon valeurs - recherche si et sélection

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,
Je vous souhaite une très bon WE 🙂

J'ai pas mal cherché mais je n'y arrive pas 😡
Voici mon ch'tit exposé :

1 - La cellule J3 contient la date d'aujourd'hui
Quand clic en I3, je souhaite l'action suivante :
la cellule K3 prend la valeur "VRAI" (puisque J3 contient la date d'aujourd'hui).
la cellule L3 prend la valeur "clic"
Et les cellules K3 et L3 sont remises à blanc = ""

2 - La cellule J5 ne contient pas la date d'aujourd'hui
Quand clic en I5, je souhaite l'action suivante :
la cellule K5 prend la valeur "FAUX" (puisque J5 NE contient PAS la date d'aujourd'hui).
la cellule L5 prend la valeur "clic"
Et que les cellules K5 et L5 gardent les valeurs "clic" et "FAUX"

3 - dernière action :
Je voudrais qu'une recherche soit faite sur le mot clic dans la colonne ""L""
et que la cellule colonne ""I"" de la ligne qui contient ""clic"" en col L soit sélectionnée"

J'ai mis le code change dans la feuille et le code "recherche" dans un module

Si vous aviez la solution, ça m'arrangerait bien lol 🙂
En cas, je joins un fichier test.
Et ... je continue à chercher 🙂
Avec mes remerciements,
Amicalement,
lionel,
 

Pièces jointes

Dernière édition:
bonjour
perso je suis dubitatif
relis toi Arthour 😉
1 - La cellule J3 contient la date d'aujourd'hui
Quand clic en I3, je souhaite l'action suivante :
la cellule K3 prend la valeur "VRAI" (puisque J3 contient la date d'aujourd'hui).
la cellule L3 prend la valeur "clic"
Et les cellules K3 et L3 sont remises à blanc = ""
et sélectionne la colonne A de la ligne active
😵😵😵😵😵😵😵😵😵😵??????????
Blagues. - Page 53 - Le forum du zephyrclub
smiley malade | fond d'ecran | Emoticone amour, Bonhomme sourire ...
 
Re Slt Patrick
Content je suis pas le seul ; car quand tu fais du pas à pas ....ça se balade 'Bizarre" dans la Sub
pour la partie que tu as remis , autant faire : SI 'today' Bin ...... selectionner A +ligne !!! , non ?
car on voit pas à quoi servent le VRAI et CLIC ??
 
Bon je viens de passer 1/4h juste pour revoir ma copie , j'en suis là , MAIS alors le point 3 euh ??? écris le en Russe car je pige QUEDALE ??
c'est QUOI ,
efface les cellules col K et L dans la ligne cliquée par erreur
?? quelle ligne ?
Là j'ai fait : si clic en I5 > Faux ; clic et select I5

et Enfin : EVITE de faire un Activate dans une Sub Select_change ......... ça la relance , enfin il me semble d'après le suivi en pas à pas !!! ton erreur dans la recherche = FAUX ...... et le ).activate doit en être une cause
La méthode de Monsieur Krosoft est :
With Worksheets(1).Range("a1:a500")
Set c = .Find(ta_valeur, lookin:=xlValues)
c'est ce que j'ai fait j'ai juste mis le RANGE sans With puisqu'on est dans la feuille
La tienne est farfelue !!!!!
 

Pièces jointes

Dernière édition:
Dernière modif ... a force de relire le point 3 😱 !!!!!!!!!!!
SI tu as FAUX et clic en 5 > I5 select > OK ; ensuite tu clic ( comme tu dis par erreur) en I6 et bien ton select revient en I5 et pas de FAUX & clic en K L6 !!! donc on ne garde qu'un seul CLIC !!!!!!!!!!!!!

Mais reste un pb ..... je te laisse voir
 

Pièces jointes

Re herve62,
Merci pour ta ténacité et de vouloir t'en occuper.
De mon côté, je n'ai pas eu le temps d'avancer mais lol "je suis pas loin d'avoir trouver 🙂
Je vais prendre le temps de tester ton fichier et je te dis.
De mon côté, je vais voir si je peux avancer ce soir car et je pense que tu l'as compris, les besoins de post vont devoir s'insérer dans une autre demande pour laquelle je n'ai pas eu de réponse .. ni trouvé de solution jusqu'à maintenant.
@plus 🙂
lionel,
 
Met un point d'arrêt dans la sub et fait du "pas à pas"
Je fais jamais rien de compliqué .... je ne connais pas les "Grosses" instructions , car j'ai débuté la prog en BASIC ( y avait pas de Visual ?? on faisait du ligne à ligne à l'écran) en 1980 !!!!
mais bon avec 20ans de vba j'essaye de m'adapter quand même !
Sinon je commence à piger ce que tu veux faire ...... mais je suppute "l'usine à gaz" !!!
 
Ah bon ?? , j'adore vos reflexions !!!!!!!!!!!! ; bin ça fera 2 , l'autre ( je dis pas son nom , on s'estime ) que je supporte en plus que privé ( car depuis 6 ans !!! avec les "pompiers" pour ceux que ça dit quelque chose !!) , plein d'idées GRANDIOSES mais alors par chez nous on dit encore "descendre à la mine " , ce qui équivaut à dire aller au charbon , quand ça lui prend il me fait des grands AU SECOURS sur mes adresses Mail pour ses nouvelles appli vba ; mais bon je comprends et je continue d'aider et essaye de raisonner sur les "bonnes résolutions " d'exécution de VBA !!!!
On verra ICI !!!
 
- 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

Discussions similaires

Réponses
4
Affichages
243
Réponses
3
Affichages
470
Réponses
18
Affichages
1 K
Retour