Double click dans Excel Résolu/Fermé

Question

Bonjour,

ça fait un petit moment que je ne vous avais pas sollicité et la je suis coincée.

J'aimerais, en effectuant un double clic sur le "N° de parc" que la cellule "dernier passage" soit = E1 (la date du jour)

Je suis parvenue à avoir la date du jour en double cliquant sur le N° de Parc, mais ce n'était pas le résultat souhaité.

Est-ce que vous pouvez m'aider svp ?

Bonne soirée à tous

Marylène :)

Windows / Chrome 103.0.0.0

Mike-31 · Answer

Bonjour,

en VBA

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([A8:A20], [E8:E20])) Is Nothing Then
ActiveCell(1, 2) = Date
ActiveCell(2, 1).Select
End If
End Sub

Pour ma part j'ajouterai une Inputbox en tête pour autoriser la modification ce qui éviterai un changement par erreur

Mary7883 · Answer

Merci Mike !!!! Tu m'as enlevé une sacré épine du pied :)

Je ne suis pas encore au bout de ma peine, mais grâce à toi la soirée avance sur une note positive :D

Mary

Mike-31 · Answer

Re,

regarde ce que ça donne avec une Inputbox mot de passe provisoire Open

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Union([A8:A20], [E8:E20])) Is Nothing Then
 Dim resultat As String
    resultat = InputBox("Pour autoriser l'action", "Identifiez-vous ", "Mot de passe") 'La variable reçoit la valeur entrée dans l'InputBox
    If resultat = "Open" Then 'Si la valeur est différente de "" on affiche le résultat
ActiveCell(1, 2) = Date
Else
MsgBox "Opération annulée ou" & vbCrLf & vbCrLf & "Mot de passe erroné", , " Modification refusée,"
End If
End If
ActiveCell(2, 1).Select
End Sub

Mary7883 · Answer

Je suis responsable de ce que je dis, pas de ce que tu comprends...

J'adore cette phrase, car je ne comprends pas grands chose ^^ (je ne suis qu'une femme :P  oui c'est moi qui le dit)

Merci beaucoup Mike :)

Je vais garder la première version, pour pas m'y perdre et passe à ma prochaine problématique :D

Ce forum est rempli de talents, je suis jalouse, mais grâce a toi et les autres je m'en sort pas trop mal et ne passe pas trop pour une bille auprès de mes collègues :P

Je ne sais pas comment vous remercier à part dire MERCI MERCI MERCI MERCI 10 000 fois ^^

Mary7883 · Answer

Tu vois mon prochain dilemme.... J'ai réussi a faire un menu déroulant pour les numéros a droite, mais impossible à les mettre dans  H3

Genre si je mets la 21105 en P1 j'aimerais en la sélectionnant la haut en H3 que le P1 s'affiche a droite ...

(même moi en me relisant je ne me comprends pas, mdr)

Je crois que je ferais mieux d'aller au dodo avec cette chaleur ^^

Mike-31 · Answer

Re,

Un jour, on est tous passé par un début, il faut simplement vouloir poussé le bouchon plus loin.

c'est dommage de ne pas insérer ce détecteur d'erreur qui complète mon code initial

Dim resultat As String
    resultat = InputBox("Pour autoriser l'action", "Identifiez-vous ", "Mot de passe") 
    If resultat = "Open" Then
ActiveCell(1, 2) = Date
Else
MsgBox "Opération annulée ou" & vbCrLf & vbCrLf & "Mot de passe erroné", , " Modification refusée,"
End If

Mais c'est toi qui vois,

n'oublie pas de passer la discussion en résolu ou confirme le moi que je le fasse pour toi

Mary7883 · Answer

Je me suis dit la même chose et j'suis entrain de le mettre :)

Mike-31 · Answer

Re,

Il est normal que tu ne puisses pas mettre ton menu déroulant en H3 puisque H3 semble fusionnée jusqu'à M4, Excel n'aime pas pas les cellules fusionnées et le fait savoir.

Mais il est possible de tricher avec Excel, commence par défusionner les cellule H3:M4

sélectionne la cellule H3 et place ta validation

ensuite sélectionne les cellule H3:M4 et refusionne les et Excel n'y a vu que du feu

Par contre si tu dois modifier ta validation il faudra défusionner/modifier et refusionner

pour le reste je regarde

Mary7883 · Answer

Si en plus il y a des pièges ^^

Pourtant je n'ai pas d'erreur avec la formule:

=SI(H3="";"";CM2)

Mais comment y insérer les valeurs des Places P1 à P30 .....

Hmmm

Tu sais Mika, ne t'embête pas, je pense que j'en ai simplement trop fait aujourd'hui, demain j'y verrais surement plus clair

Mike-31 · Answer

Re,

le plus simple est de créer un petit fichier anonymisé identique à ton fichier et tu postes le lien

1) Tu vas dans http://cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Mary7883 · Answer

https://www.cjoint.com/c/LGouLtMaTI0

C'est drôlement pratique ça pour partager des documents avec des "inconnus" :)

Mike-31 · Answer

Re,

Pratique mais il faut veiller que le fichier ne contienne pas de données perso parce qu'il est ouvert à tous.

alors une chose à la fois, en H3:M4 que veux tu y mettre

Mary7883 · Answer

ça va, il n'y a pas de données trop sensibles dans mon tableau

En H3:M4 j'aimerais pouvoir choisir parmi les N° de Parc en "AI"

Mary7883 · Answer

Et ensuite j'aimerais savoir comment te payer un verre pour te remercier de m'aider et de m'offrir ton temps précieux :)

Mike-31 · Answer

Re,

ça c'est fat, en N3:U4 tu as cette formule

=SI(H3="";"";CL2)

hors en CL2 il n'y a rien que veux tu y afficher

Mary7883 · Answer

J'avoue.... J'ai tellement modifié et essayer de trucs que j'ai du tout décaler un moment donné :/

Mike-31 · Answer

Re,

Voilà un premier jet, en H3:M4 il suffit de sélectionner une référence, d'après ce que j'ai compris, tu saisis la référence également dans le P1, P2 etc ...

il vaudrait mieux opter pour ma présentation

https://www.cjoint.com/c/LGovC3vxH8F

Bonne nuit

Mary7883 · Answer

T'es un génie Mike!!!!

Tu as raison que c'est bien plus lisible et complet.

Merci infiniment!!

Mike-31 · Answer

Re,

si tu veux des explications sur les formules fait signes.

Je vois que tu es en tenue de ski, dans quel coin vas tu.

Mary7883 · Answer

Bonjour Mike

Bien dormi?

Pour le ski on va la où il y a de la neige ???? avec une préférence pour les Alpes du Nord.

Mike-31 · Answer

Re,

dans les cellules P1 à P30 tu peux également automatiser en utilisant une validation ce qui évite les erreur de saisies

https://www.cjoint.com/c/LGpjNXTbrkF

Mary7883 · Answer

Je suis admirative de ton savoir faire :)

Mike-31 · Answer

Re,

onglet Véhicules+Passage MAL tu as ce code

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    Target.Value = Date
End Sub

remplace le par ce code pour limiter l'action à la plage J2:J31

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Selection, Range("J2:J31")) Is Nothing Then
    Cancel = True
    Target.Value = Date
    End If
End Sub

Mary7883 · Answer

Ah oui génial!!!! Effectivement hier j'avais double cliqué a coté et je ne pouvais pas revenir en arrière. Lol

Super les liste déroulantes pour les places de garages.

Je crois que la mon tableau est au top grâce a toi Mike !!!! :)