Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
MichD
Bonjour, Copie ceci dans le Thisworkbook de ton classeur, et adapte Range("A1") pour l'adresse de la cellule de ton choix. Exemple : Pour empêcher le message de s'afficher si la cellule A1 est double-cliquée dans la feuil1. Le simple clic ne provoque pas l'affichage du message. '------------------------------------------ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If UCase(ActiveSheet.Name) = UCase("Feuil1") Then If Target.Address = Range("A1").Address Then Cancel = True End If End If End Sub '------------------------------------------ MichD
Bonjour,
Copie ceci dans le Thisworkbook de ton classeur, et adapte Range("A1") pour
l'adresse de la cellule de ton choix.
Exemple : Pour empêcher le message de s'afficher si la cellule A1 est
double-cliquée dans
la feuil1.
Le simple clic ne provoque pas l'affichage du message.
'------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
If UCase(ActiveSheet.Name) = UCase("Feuil1") Then
If Target.Address = Range("A1").Address Then
Cancel = True
End If
End If
End Sub
'------------------------------------------
Bonjour, Copie ceci dans le Thisworkbook de ton classeur, et adapte Range("A1") pour l'adresse de la cellule de ton choix. Exemple : Pour empêcher le message de s'afficher si la cellule A1 est double-cliquée dans la feuil1. Le simple clic ne provoque pas l'affichage du message. '------------------------------------------ Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If UCase(ActiveSheet.Name) = UCase("Feuil1") Then If Target.Address = Range("A1").Address Then Cancel = True End If End If End Sub '------------------------------------------ MichD
