msgbox si clic sur une cellule

thomlau

XLDnaute Occasionnel

• 28 Avril 2008

• #2

Re : msgbox si clic sur une cellule

Bonjour Pascal21, le forum

Voici un bout de code qui, je pense fera ton bonheur...

Cette portion de script est à placer dans le code de la Feuil1

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim Rep

If Not Application.Intersect(Target, Range("B4")) Is Nothing Then
  
    Rep = MsgBox("Attention, vous allez changer la valeur de cette cellule. Souhaitez-vous continuer?) ", vbYesNo _
        + vbQuestion, "Confirmation")
   
    If Rep = vbYes Then
    
        usfcalendrier.Show
        
    End If

End If

End Sub

++, bonne soirée à toutes et à tous

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 28 Avril 2008

• #3

Re : msgbox si clic sur une cellule

bonsoir thomlau
merci pour le code
je viens de m'apercevoir que la déclaration "selection change" n'est pas adaptée car j'ai un autre code qui selectionne cette cellule pour en changer la valeur de manière plus conventionnelle ( copie de la feuille ,effacement des données et inscription d'une nouvelle date dans la cellule b4) et la msgbox apparait en même temps que l'autre macro
ce qui conviendrait c'est que le fait de cliquer sur cette cellule et uniquement le clic, déclenche le msgbox

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 29 Avril 2008

• #4

Re : msgbox si clic sur une cellule

Bonjour Pascal, Thomlau

essaye peut être en mettant le code dans l'événement double click ou le click droit :

événement double click

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'ton code
Cancel = True
End Sub

événement click droit

Code:

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'ton code
Cancel = True
End Sub

bonne journée
@+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 29 Avril 2008

• #5

Re : msgbox si clic sur une cellule

bonsoir
non ça ne fonctionne pas
en fait le clic sur cette cellule n'est pas autorisé mais une autre macro selectionne cette cellule et écrit dedans
ce que je ne voudrais pas c'est que le msgbox apparaisse si l'autre macro selectionne la cellule
n'y a-t'il donc pas un évennement lié au clic gauche sur une cellule
d'ailleurs, interdire le clic gauche ou droit sur cette cellule serait peut-être la solution

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 30 Avril 2008

• #6

Re : msgbox si clic sur une cellule

Bonjour Pascal, Thomlau

Non, pas d'événement directement lié au click gauche.

Pour t'en dire plus, il faudrait voir le fichier et le code dans sa totalité, car là en l'état, je ne suis pas du tout certain de cerner totalement ton problème.

bonne journée
@+

 

Vote positif 0 Vote négatif

pascal21

XLDnaute Barbatruc

• 30 Avril 2008

• #7

Re : msgbox si clic sur une cellule

bonjour pierrot
matinal aussi ?

je vais regarder du coté de la protection de la feuille
cette cellule elle n'était pas protéger pour permettre l'exécution de l'autre macro
je vais regarder pour deprotéger la cellule le temps de l'execution de l'autre macro

 

Vote positif 0 Vote négatif