Double click dans Excel

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

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

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

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

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

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 ^^

 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 ^^

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

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

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

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".

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

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

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

ç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"

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

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

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

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

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

Merci infiniment!!

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.

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.