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

[Usine à gaz]

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,

 

[sylvanu]

Bonjour Arthour,
Un essai en PJ.
J'ai supposé que ce sera sur toute la colonne J que cette procédure doit être appliquée sinon il faudra réduire la portée de la macro.
La cellule J doit comporter la date ... sous format date : bonjour, 13/06/2020, NBR et non bonjour, 13.06.2020, NBR
Enfin pourquoi mettre Clic en L3 si juste après L3 est remis à blanc ?

 

[Usine à gaz]

Bonjour sylvanu,
Merci de m'avoir répondu.
Je testerai tout à l'heure car je suis en réunion.
Toutefois, la date doit être en 13.06.2020 mais je vais voir.
Merci à toi
lionel,

 

[herve62]

bonjour
Slt Lionel
Vite fait , si dans ton VBA tu mets IF ......... = "Vrai" au lieu de ="VRAI" queq ça donne chez toi ???
c'est juste pour le point 1 , mais je pige pas du tout pourquoi ce code , car tes cellules n'indiquent JAMAIS .. vrai et clic ...... puisque tu passes INSTANTANément de Vrai et Clic à "" & "" ??? faut une pause ou ? , ou alors j'ai pas pigé ce que tu recherches ??

PS : je viens de voir que Sylvanu fait la même réflexion !!!

 

[Usine à gaz]

Re Sylvanu,
J'ai tester.
Je suis désolé mais ça ne fonctionne pas avec Target car mon mon fichier de travail, il faut que ce soit avec Range "R"
Je continue mes recherches

 

[sylvanu]

Re,
Allez, ok pour la date avec des points. ( effet de bord : accepte des points et des /. )

 

[sylvanu]

Expliquez si vous vous que l'on vous aide !
Pourquoi range ?
Définissez votre besoin.

 

[Usine à gaz]

Bonjour herve62,
Merci d'être là
Je tente de répondre :

"Vite fait , si dans ton VBA tu mets IF ......... = "Vrai" au lieu de ="VRAI" queq ça donne chez toi ???"
J'ai testé les 2 et pareil ça ne fonctionne pas

"c'est juste pour le point 1 , mais je pige pas du tout pourquoi ce code , car tes cellules n'indiquent JAMAIS .. vrai et clic ...... puisque tu passes INSTANTANément de Vrai et Clic à "" & "" ??? faut une pause ou ? , ou alors j'ai pas pigé ce que tu recherches ??"
Si je clique en I3; K3 prend bien la valeur "VRAI3

lol, je reste à l'écoute

 

[Usine à gaz]

Re sylvanu,
Je crois que le fichier est clair sur mon besoin et je ne vois pas comment le dire autrement lol.
Et avec target, ça ne correspond pas à mon besoin pour intégrer dans mon fichier de travail

 

[herve62]

Bin chez moi avec VRAI ça sautait le IF donc pas d'action , j'ai cherché en mettant un msgbox ça affichait "Vrai" donc j'ai remplacé et les cel. s'effacent bien

 

[Usine à gaz]

Re herve62,
Je teste à nouveau

 

[Usine à gaz]

Re herve62,
Hé ben OUI lol je croyais pourtant avoir testé.
Merci à toi
Je continue pour la suite.
je suis également en train de travailler sur le code de Sylvanu qui m'intéresse beaucoup (j'essaie de l'adapter)
lionel,

 

[Usine à gaz]

Re- Re herve62,
Re-Sylvanu,
J'ai avancé grâce à vous 2 et il ne me reste plus qu'un souci :

"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"
C'est à dire quand il y a "FAUX" en colonne "K"

Si on y arrive avec mes codes, j'aimerais ensuite le faire aussi avec les codes de Sylvanu qui me semblent mieux que les miens

Je joins le fichier test,
je continue pour, j'espère, trouver la solution à cette dernière demande.
lionel

 

[herve62]

j'ai fait un petit complément de code
Voir si c'est ça ? ; Ta cel en I est encadrée donc select si clic en L
le Pb est SI plusieurs clic ??? est ce possible ? Ici c'est le 1er qui sera pris

 

[Usine à gaz]

Re-Bonjour,
Je reviens après recherches et tests et j'y suis presque lol ... mais ça coince
Je détaille l'action de ma dernière demande :
"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"
C'est à dire quand il y a "FAUX" en colonne "K"

si clic, par erreur, ailleurs que dans la col "I" :
1 la recherche me trouve la cellule qui contient la valeur "clic"
2 que la cellule colonne "I" de la ligne qui contient "clic" en col L soit sélectionnée
3 que le clic soit effacé
Voici le code qui fonctionne presque tout bien :

'Option Explicit
Private Sub Worksheet_SelectionChange(ByVal r As Range)
If Not Intersect(r, Range("j1:z100")) Is Nothing Then Exit Sub
If Not Intersect(r, Range("i2:i100")) Is Nothing Then
If Cells(ActiveCell.Row, 9) <> "" Then
Cells(ActiveCell.Row, 12) = "clic"
Cells(ActiveCell.Row, 11).FormulaR1C1 = "=ISNUMBER(FIND(TEXT(TODAY(),""jj.mm.aa""),RC[-1]))"
'Cells(ActiveCell.Row, 11).FormulaR1C1 = "=COUNTIF(RC[-1],""*""&TEXT(TODAY(),""jj.mm.aa"")&""*"")>0"
Cells(ActiveCell.Row, 11).Value = Cells(ActiveCell.Row, 11).Value
If Cells(ActiveCell.Row, 11) = "Vrai" Then
Cells(ActiveCell.Row, 11) = ""
Cells(ActiveCell.Row, 12) = ""
Cells(ActiveCell.Row, 1).Select
End If
    Application.EnableEvents = False
    Columns("K:K").Select
    Selection.Find(What:="FAUX", After:=ActiveCell, LookIn:=xlValues, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate
    
    If ActiveCell = "FAUX" Then
    Columns("L:L").Select
    Selection.Find(What:="clic", After:=ActiveCell, LookIn:=xlFormulas2, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Activate
    Application.EnableEvents = True
    Cells(ActiveCell.Row, 9).Select
    Cells(ActiveCell.Row, 12) = ""
End If
End If
End If
End Sub

Mais ça coince là :

et pour l'instant, je n'arrive pas à trouver.
Je remets le fichier test et je continue à chercher,
lionel,