Faire clignoter une cellule

Bonjour Franck Pijaku,

Désolé, j'y connais rien.

J'ai adapté le code par rapport au tien mais ça a été rejeté par un message "Mémoire insuffisante" en fermant le fichier sans sauvegarder celui-ci :-(((

MErci encore

à+

Voici le code que j'avais tapé :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error GoTo Sortie
Application.EnableEvents = False
Set f2 = Sheets("Valeurs sauvegardées")
DerLig_f2 = f2.Range("A" & Rows.Count).End(xlUp).Row + 1
If Not Intersect(Target, Range("O4")) Is Nothing Then
Prenom = InputBox("C'est le bon prénom ?", "Vérification saisie", Range("I3").Value) 'prénom homme ! Range("I3")

f2.Cells(DerLig_f2, "A") = "Homme"
f2.Cells(DerLig_f2, "B") = Range("I3").Value 'Prénom
f2.Cells(DerLig_f2, "C") = Range("C3").Value 'Age
f2.Cells(DerLig_f2, "D") = Range("C4").Value 'Taille
f2.Cells(DerLig_f2, "E") = Date & " " & Format(Time, "HH:MM") 'Date et heure
f2.Cells(DerLig_f2, "F") = Range("F4").Value 'Tour de ventre
f2.Cells(DerLig_f2, "H") = Range("I4").Value 'Tour de cou
f2.Cells(DerLig_f2, "I") = Range("N4").Value * 100 'Pourcentage de graisse
f2.Cells(DerLig_f2, "J") = Range("L5").Value 'Morphotype
MsgBox "Valeurs ""Homme"" enregistrées"

ElseIf Not Intersect(Target, Range("O8")) Is Nothing Then
Prenom = InputBox("C'est le bon prénom ?", "Vérification saisie", Range("I8").Value)'prénom femme ! Range("I8")
f2.Cells(DerLig_f2, "A") = "Femme"
f2.Cells(DerLig_f2, "B") = Range("I7").Value 'Prénom
f2.Cells(DerLig_f2, "C") = Range("C7").Value 'Age
f2.Cells(DerLig_f2, "D") = Range("C8").Value 'Taille
f2.Cells(DerLig_f2, "E") = Date & " " & Format(Time, "HH:MM") 'Date et heure
f2.Cells(DerLig_f2, "F") = Range("F8").Value 'Tour de ventre
f2.Cells(DerLig_f2, "G") = Range("I8").Value 'Tour de hanche femme
f2.Cells(DerLig_f2, "H") = Range("L8").Value 'Tour de cou
f2.Cells(DerLig_f2, "I") = Range("N8").Value * 100 'Pourcentage de graisse
f2.Cells(DerLig_f2, "J") = Range("L9").Value 'Morphotype
MsgBox "Valeurs ""Femme"" enregistrées"
End If

Sortie:
Application.EnableEvents = True
End Sub

Eriiic,

J'ai suivi toutes tes explications mais je n'arrive pas par contre à avoir le message entouré en rouge quand je survole la cellule (voir capture ci-jointe) :

Tu as fait comment stp ?

Merci

à+ :-))))

Bonsoir Vodoraix, le Fil,

Nouvelle version sans besoin de cocher une case pour la modification.

Le double-clic est réservé à enregistrer un nouveau prénom afin de sauvegarder les mesures entrées.

Le clic-droit sur la même cellule (Homme ou Femme) sert à enregistrer la ou les modifications de mesure(s) du dernier prénom sauvé en cas de contestation.

Bonjour,

Tu as 3 onglets dans la boite de validation des données.
Celui du milieu c'est 'Message de saisie' qui s'affiche à la sélection de la cellule.
eric

Bjr Cellus,

Merci, c'est gentil d'insister pour trouver une jolie solution.

J'ai des erreurs de débogages et parfois "Homme" ne s'inscrit pas dans la colonne.

Merci

Bonne journée

Bjr Eriiic,

Je vais vérifier à mon travail mais il me semblait que je l'avais rempli aussi.

Je te tiens au courant.

Encore merci pour tout :-))))))

Bonne journée

Bonjour Vodoraix,

Une coquille s'est glissée dans la deuxième ligne du Private Sub SauveHomme(DerH)

Il faut ôter le 1 avant le H. Cela devient

f2.Cells(DerH + 1, "A") = "Homme" 

Sinon c'est la case A1 qui est toujours modifiée.

Supprimer aussi le Stop dans la huitième ligne du Ws_BeforeRightClick. Il a été placé là pour vérifier la condition If DerPrenom...