XL 2016 Modification code IF

[BALANCIE]

Bonjour,
Voiçi une ligne de code VBA en if
Je recherche simplement à indiquer 2 plages de cellules différentes C4:C140 et I4:C140 sur le tableau.

J'ai essayé ("C4:C140,I4:I140")) mais j'ai une erreur, comment faire.

Dim La_date As Date
If Not Intersect(Target, Range("C4:C140,I4:I140")) Is Nothing Then
If Target.Value = "" Then
Application.EnableEvents = True
Exit Sub
End If

Merci pour votre aide.
Daryl.

 

[Dranreb]

Bonjour.
Quelle erreur avez vous ?
(joignez le classeur, ce sera plus facile de trouver ce qui ne va pas)

 

[pierrejean]

bonjour à tous
Essayer:

If Not Intersect(Target, Range("C4:C140","I4:I140")) Is Nothing Then

 

[BALANCIE]

Bonjour,

J'avais déjà pensé à cette formule qui fonctionne, mais au bout d'un moment tout revient à l'origine soit par ex 10/01.
le message d'erreur : "la méthode Intersect de l'objet_global a échoué".

On peut utilisé le fichier que j'ai laissé dans Télécharger "Ma Gestion Budget" j'ai fait celui-ci en reprenant la structure de mon fichier pro de 410 lignes.
(Le but recherché est de taper un où 2 chiffres dans la colonne date et obtenir une date entière ex :10/02 selon la feuille du mois).
Merci encore
Daryl.

Voiçi la source que j'utilise, elle vient de LouReeD

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Application.EnableEvents = False

If ActiveWindow.SelectedSheets.Count > 1 _
Or Sh.Index < 2 And Sh.Index > 13 _
Or Target.Count > 1 Then
Application.Undo
ActiveSheet.Range(Target.Address).Select
Application.EnableEvents = True
Exit Sub
End If

Dim La_date As Date
If Not Intersect(Target, Range("C4:C40")) Is Nothing Then
If Target.Value = "" Then
Application.EnableEvents = True
Exit Sub
End If
On Error Resume Next
La_date = Day(CDate(Target.Value) + 1) & "/" & ActiveSheet.Index - 1 & "/" & Year(Now)

If Err > 1 Then
Target.Value = ""
Target.Select
Application.EnableEvents = True
Exit Sub ' on sort de la procédure
End If
On Error GoTo 0
Target.Value = CDate(La_date)
End If
Application.EnableEvents = True
End Sub