XL 2016 Aide pour finaliser un code Vba

[ReneDav14000]

Bonjour à tous,
J'ai écris ce code qui doit me permettre d'afficher du texte dans une cellule Excel selon le choix d'une cellule.
Si la cellule active de la plage D8:J13 de la feuille Calend correspond à une date de la plage G4:G16 de la feuille Données alors "JOUR FERIE" s'inscrit dans la cellule H19 de la feuille Calend, sinon c'est "JOUR NORMAL".
Cependant je rencontre un soucis, il ne s'affiche que "JOUR NORMAL"
Les cellules de la plage D8:J13 sont au format personnalisé "jj" et celles de la plage G4:G16 "jj/mm/aaaa".
Merci par avance pour votre aide

 Dim Cel as Range
    For Each Cel In Worksheets("Calend").Range("D8:J13")
        If Not IsError(Application.Match(Cel.Value, Worksheets("Données").Range("G4:G16"), 0)) Then
            [H19].Value = "JOUR FERIE"
        Else
            [H19].Value = "JOUR NORMAL"
        End If
    Next Cel

 

[Cousinhub]

Bonjour,
A tout hasard...

If Not IsError(Application.Match(CLng(Cel.Value), Worksheets("Données").Range("G4:G16"), 0)) Then

Peut-être?

 

[ReneDav14000]

Bonjour,
A tout hasard...

If Not IsError(Application.Match(CLng(Cel.Value), Worksheets("Données").Range("G4:G16"), 0)) Then

Peut-être?

Bonjour,
merci pour votre réponse mais ça ne fonctionne pas. Incompatibilité de type

 

[Cousinhub]

Re-,
Je confirme que mon code fonctionne
Cependant, votre boucle donnera toujours la valeur de la dernière cellule...
Et si cette date ne correspond pas à un jour férié, ce sera un jour normal...

 

[ReneDav14000]

Re-,
Je confirme que mon code fonctionne
Cependant, votre boucle donnera toujours la valeur de la dernière cellule...
Et si cette date ne correspond pas à un jour férié, ce sera un jour normal...

Je ne comprends pas. Désolé.
J'ai mis le code dans WorkSheet.SelectionChange() donc normalement, le code devrait s'appliquer à chaque changement de cellule, non ?

 

[Cousinhub]

Oui, il s'applique à chaque changement de cellule...
Mais il ne faut pas faire de boucle, juste tester si Target est bien dans la plage, et si c'est le cas, si Target est férié...
Et quand tu dis "incompatibilité de type", ce sont bien des dates dans la plage D8:J13?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D8:J13")) Is Nothing Then
    If Not IsError(Application.Match(CLng(Target), Worksheets("Données").Range("G4:G16"), 0)) Then
        [H19].Value = "JOUR FERIE"
    Else
        [H19].Value = "JOUR NORMAL"
    End If
End If
End Sub

PS, dernière réponse de ma part si tu ne joins pas un fichier exemple (très allégé....)

 

[TooFatBoy]

Bonjour,

Ton bout de code en #1 ne tient pas compte de la cellule sélectionnée (qui s'appelle Target), et c'est là ton problème.


[edit]Arf, grilled...[/edit]

 

[ReneDav14000]

Oui, il s'applique à chaque changement de cellule...
Mais il ne faut pas faire de boucle, juste tester si Target est bien dans la plage, et si c'est le cas, si Target est férié...
Et quand tu dis "incompatibilité de type", ce sont bien des dates dans la plage D8:J13?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("D8:J13")) Is Nothing Then
    If Not IsError(Application.Match(CLng(Target), Worksheets("Données").Range("G4:G16"), 0)) Then
        [H19].Value = "JOUR FERIE"
    Else
        [H19].Value = "JOUR NORMAL"
    End If
End If
End Sub

PS, dernière réponse de ma part si tu ne joins pas un fichier exemple (très allégé....)

Ah oui c'est vrai, on me l'avait déjà dit.
Ton code code fonctionne très bien.
Merci beaucoup et bonnes fêtes de fin d'année

Merci également à TooFatBoy a qui je souhaite également de bonnes fêtes.

 

[TooFatBoy]

Bonnes fêtes à toi également, camarade ​