Vba+target.column (résolu)

[eideal44]

Bonjour,

J'aimerais savoir si il existe une autre façon d'écrire le code ci-dessous, en sachant que je souhaite aller jusqu'à la dernière colonne, et que je souhaite indiquer toutes les 2 colonnes la date du jour :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.COLUMN = 30 Or Target.COLUMN = 32 Or Target.COLUMN = 34 Or Target.COLUMN = 36 Or Target.COLUMN = 38 _
Or Target.COLUMN = 40 Or Target.COLUMN = 42 Or Target.COLUMN = 44 Or Target.COLUMN = 46 Then
    If Target.Row >= 3 Then
        Target.Value = Format(Now, "dd/mm/yyyy")
        Target.HorizontalAlignment = xlCenter
    End If
End If
End sub

Merci d'avance pour vos retours,

Eideal44

 

[MichD]

Re : Vba+target.column

Bonjour,

Essaie comme ceci :

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
With Target
    Select Case .Column
        Case 30, 32, 34, 36, 38, 40, 42, 44, 46
            If .Row >= 3 Then
                Application.EnableEvents = False
                .Value = Date
                .NumberFormat = "dd/mm/YYYY"
                .HorizontalAlignment = xlCenter
                Application.EnableEvents = True
            End If
    End Select
End With
End Sub

N.B. La fonction "Format" en VBA n'est d'aucune utilité pour formater
une cellule de la feuille de calcul. Tu dois utiliser l'une des 2 propriétés
suivante :
.NumberFormat = "dd/mm/YYYY" 'américain
.NumberFormatLocal = "jj/mm/aaaa" 'unité de la langue d'office...


MichD

 

[eideal44]

Re : Vba+target.column

en fait j'ai trouvé, j'ai noté :

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

For A = 0 To 226 Step 2
If Target.COLUMN = 30 + A And Target.Row >= 3 Then
        Target.Value = Format(Now, "dd/mm/yyyy")
        Target.HorizontalAlignment = xlCenter
        Exit For
End If
Next

End sub

mais merci pour ton retour