recherche d'un fil....

[p'tit lulu]

bonjour a tous !

en me promenant sur le forum , j'ai vu il y'a quelques semaines un fil sur une possible saisie auto dans des cellules en un simple clic de souris mais je ne retrouve plus ce sujet ! 🙁
Je m'explique un peu plus, j'ai un tableau que l'on rempli tous les jours, ensuite on fait une saisie de ces chiffres sur internet tous les 3 ou 4 jours. Je souhaiterais juste cliquer une fois dans une cellule et le texte " saisie effectuée" par exemple s'incère.
Merci de votre aide !
Bon week end a tous !

 

[porcinet82]

Re : recherche d'un fil....

Salut,

Plutot que de rechercher le fil, je t'ai refais un code qui fait si j'ai bien compris, ce que tu souhaites (pour utiliser cette macro, tu fais click droit sur l'onglet de la feuille en question, puis Visualiser le code et tu colles le code ci-dessous ):

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C2:C100")) Is Nothing Then
    If Target.Value = "" Then
        Target.Value = "saisie effectuée"
    ElseIf Target.Value = "saisie effectuée" Then
        Target.Value = ""
    End If
End If
End Sub

Une petite remarque toutefois, ce code insère le texte "saisie effectuée" lors d'un double click si la cellule est vide et enleve ce meme texte si on redouble click dessus. J'ai fixé ce double click sur la plage de cellule C2:C100, mais tu peux mettre ce que tu veux a la place.

@+

 

[p'tit lulu]

Re : recherche d'un fil....

Merci Porcinet !!!!!! réponse rapide, claire et surtout ça marche ! tout à fait ce que je voulais !
Bon week end à tous ! 😀