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

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 :mad:
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

  • test.xlsm
    18.4 KB · Affichages: 30
Dernière édition:

patricktoulon

XLDnaute Barbatruc
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
o_Oo_Oo_Oo_Oo_Oo_Oo_Oo_Oo_Oo_O??????????
Blagues. - Page 53 - Le forum du zephyrclub
smiley malade | fond d'ecran | Emoticone amour, Bonhomme sourire ...
 

herve62

XLDnaute Barbatruc
Supporter XLD
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

  • test_arthour.xlsm
    27.4 KB · Affichages: 1
Dernière édition:

herve62

XLDnaute Barbatruc
Supporter XLD
Dernière modif ... a force de relire le point 3 :eek: !!!!!!!!!!!
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

  • test_arthour2.xlsm
    28.2 KB · Affichages: 2

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
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,
 

herve62

XLDnaute Barbatruc
Supporter XLD
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" !!!
 

herve62

XLDnaute Barbatruc
Supporter XLD
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 !!!
 

Discussions similaires

Statistiques des forums

Discussions
312 196
Messages
2 086 101
Membres
103 116
dernier inscrit
kutobi87