Insérer 2 codes dans la même feuille

Bonjour,

J'ai déjà inséré ce code :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Unprotect Password:="timeo"

If Not Intersect(Target, [D5:D48,E5:E48,F5:F48,P5:P48,Q5:Q48,R5:R48,AB5:AB48,AC5:AC48,AD5:AD48]) Is Nothing Then

Cancel = True

If Target = "" Then

Target = "Oui"

Target.Interior.ColorIndex = 2

Else

Target = ""

Target.Interior.ColorIndex = xlNone

End If

End If

Protect Password:="timeo"

End Sub

Et je voudrais ajouter ce code ci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Target.Column <> 7 Or Target.Row > 48 Or Target.Row < 5 Then Exit Sub

With Target

.Value = Now

.NumberFormat = "hh:mm"

End With

Cancel = True

End Sub

J'ai essayé de le mettre à la suite du 1er code mais ça ne fonctionne pas.

Comment faire SVP?

Merci.

Bonjour,

Essaie ainsi :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("D5:F48,G5:G48,P5:R48,AB5:AD48")) Is Nothing Then
        Me.Unprotect Password:="timeo"
        Cancel = True
        Select Case Target.Column
            Case 7:
                Target.Value = Time
                Target.NumberFormat = "hh:mm"
            Case Else:
                If IsEmpty(Target) Then
                    Target.Value = "Oui"
                    Target.Interior.ColorIndex = 2
                Else
                    Target.Value = Empty
                    Target.Interior.ColorIndex = xlNone
                End If
        End Select
        Me.Protect Password:="timeo", userinterfaceonly:=True
    End If
End Sub

Super ça marche.

J'ai essayé de faire la même chose en colonne 18 et 29 mais je n'y arrive pas. j'ai essayé de modifier le code mais ca ne marche pas.

comment faire STP?

Merci

Re,

Comme ceci :

Option Explicit
'Column(1)=A, Column(2)=B, ... , Columns(26)=Z, Columns(27)=AA, etc...
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Me.Range("D5:F48,G5:G48,P5:Q48,R5:R48,AB5:AD48,AC5:AC48")) Is Nothing Then
        Me.Unprotect Password:="timeo"
        Cancel = True
        Select Case Target.Column
            Case 7, 18, 29:
                Target.Value = Time
                Target.NumberFormat = "hh:mm"
            Case Else:
                If IsEmpty(Target) Then
                    Target.Value = "Oui"
                    Target.Interior.ColorIndex = 2
                Else
                    Target.Value = Empty
                    Target.Interior.ColorIndex = xlNone
                End If
        End Select
        Me.Protect Password:="timeo", userinterfaceonly:=True
    End If
End Sub

Bonjour,

J'ai modifié les valeurs de la formule que tu m'as donné :

La première partie fonctionne mais dans la colonne 6, 17 et 28 quand je double click l'heure ne s'affiche pas.

Ai-je fais une erreur dans le code?

Merci.

Silvia.

Bonjour,

Dans ta procédure tu ne contrôles pas un double-clic dans les colonnes 6 (F), 17 (Q) et 28 (AB).

Modifie en conséquence :

If Not Intersect(Target, Me.Range("C5:F62,N5:Q62,Y5:AB62")) Is Nothing Then

Cdlt.

bonjour,

dans une feuille excel, j'ai insère un code (clique sur la cellule et le "oui" apparait en jaune).

Je verrouille certaines cellules dont celle ave le code "oui", je protège la feuille avec un mot de passe mais le problème est que quand je clique sur la cellule "oui"' ça ne fonctionne plus. une astuce qui permet de protéger la feuille et en même temps cliquer sur la cellule et le "oui" apparait?