Comment trouver le code qui dit, de la colonne 1 à 15, insérer un commentaire par double clic ? [rés

[anthoYS]

Bonjour,


j'ai tout dit.

dans le présent code, ça ne marche que en colonne 1 et 15, là je n'ai ni 2 jusqu'à 14 inclus, or je ne veux pas mettre 2, 3 jusqu'à 14 ! c'est fastidieux, il doit y avoir plus simple...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    If .Column = 1 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 104.5
            .Comment.Shape.Height = 22.6
            .Comment.Shape.TextFrame.Characters.Font.Bold = True
        End If
        SendKeys "%im"
    End If
End With
With Target
    If .Column = 15 Then
        Cancel = True
        If .Comment Is Nothing Then
            .AddComment
            .Comment.Shape.Width = 60.5
            .Comment.Shape.Height = 18.5
            .Comment.Shape.TextFrame.Characters.Font.Bold = True
        End If
        SendKeys "%im"
    End If
End With
If Not Application.Intersect(Target, Range("B:B")) Is Nothing And IsEmpty(Target) Then
Calendrier.Show
End If
Cancel = True
If Not Application.Intersect(Target, Range("F:F")) Is Nothing And IsEmpty(Target) Then
Calendrier.Show
End If
Cancel = True
End Sub

Merci
sinon je chercherai plus tard...
Cordialement 😉

 

[phlaurent55]

Bonjour Anthony,

If.Column>0 And .Column<16 Then

À+
Philippe

 

[anthoYS]

Merci beaucoup 😉

 

[job75]

Bonjour anthoYs, Philipe,

If .Column>0 And .Column<16 Then

MS n'a pas encore mis en place des n° de colonnes <= 0, ça viendra peut-être un jour 😉

A+

 

[Victor21]

Bonjour, anthoYs, Philippe, Gérard.

Le test if.Column>0 ne serait-il donc pas superfétatoire, en attendant ?
😉

 

[job75]

Re, salut cher Patrick,

Le test if.Column>0 ne serait-il donc pas superfétatoire, en attendant ?😉

Bien sûr c'est pourquoi j'ai plaisanté.

D'évidence Philippe l'a mis pour montrer qu'on peut remplacer 0 par 1 ou 2 ou 3...

A+

 

[phlaurent55]

Re,

D'évidence Philippe l'a mis pour montrer qu'on peut remplacer 0 par 1 ou 2 ou 3...

ou 4 ou 5 ou .....