Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Vba Excel

Vba Excel

2 réponses
Avatar
Christian RAOUX
Bonjour

J'ai un petit problème sous VBA :

J'ai une plage de Cellules (A9:A22) de feuil nommées Fériés représentant les
jours fériés de l'année sous la forme jj/mm/aaaa

et une feuil2 avec les jour du mois dans cellules B13 à B43 sous la forme
jj/mm/aaaa
et j'ai une macro :

Sub Matin1()
Dim MyDate, MyWeekDay

CellCol = ActiveCell.Column
If CellCol > 2 And CellCol < 8 Then
ColDate = 2
ElseIf CellCol > 15 And CellCol < 21 Then
ColDate = 15
Else: Exit Sub
End If

Ligne = ActiveCell.Row
MyDate = Cells(Ligne, ColDate)
MyWeekDay = Weekday(MyDate)

If MyWeekDay = 1 Then ' Test le jour de la semaine
ActiveCell = "Al.D"
ElseIf MyDate = Fériés Then ' * Test si jour Fériés ???? mais ne
marche pas
ActiveCell = "Al.D"
Else
ActiveCell = "Al"
End If
ActiveCell.Offset(1, 0).Select
End Sub

* Ici je voudrai faire un test si le jour est un jour fériés alors
ActiveCell = "Al"

Merci d'avance

christian.raoux@wanadoo.fr
Signaler un problème avec ce contenu

2 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
Daniel.M
Salut Christian,

ElseIf Not IsError(Application.Match(CLng(MyDate), Range("Fériés"), 0)) Then

Salutations,

Daniel M.

"Christian RAOUX" wrote in message
news:bf23lr$vb9$
Bonjour

J'ai un petit problème sous VBA :

J'ai une plage de Cellules (A9:A22) de feuil nommées Fériés représentant
les

jours fériés de l'année sous la forme jj/mm/aaaa

et une feuil2 avec les jour du mois dans cellules B13 à B43 sous la forme
jj/mm/aaaa
et j'ai une macro :

Sub Matin1()
Dim MyDate, MyWeekDay

CellCol = ActiveCell.Column
If CellCol > 2 And CellCol < 8 Then
ColDate = 2
ElseIf CellCol > 15 And CellCol < 21 Then
ColDate = 15
Else: Exit Sub
End If

Ligne = ActiveCell.Row
MyDate = Cells(Ligne, ColDate)
MyWeekDay = Weekday(MyDate)

If MyWeekDay = 1 Then ' Test le jour de la semaine
ActiveCell = "Al.D"
ElseIf MyDate = Fériés Then ' * Test si jour Fériés ???? mais ne
marche pas
ActiveCell = "Al.D"
Else
ActiveCell = "Al"
End If
ActiveCell.Offset(1, 0).Select
End Sub

* Ici je voudrai faire un test si le jour est un jour fériés alors
ActiveCell = "Al"

Merci d'avance






Avatar
christian
merci ça marche bien

A+

-----Message d'origine-----
Salut Christian,

ElseIf Not IsError(Application.Match(CLng(MyDate), Range
("Fériés"), 0)) Then


Salutations,

Daniel M.

"Christian RAOUX" wrote in
message

news:bf23lr$vb9$
Bonjour

J'ai un petit problème sous VBA :

J'ai une plage de Cellules (A9:A22) de feuil nommées
Fériés représentant


les
jours fériés de l'année sous la forme jj/mm/aaaa

et une feuil2 avec les jour du mois dans cellules B13
à B43 sous la forme


jj/mm/aaaa
et j'ai une macro :

Sub Matin1()
Dim MyDate, MyWeekDay

CellCol = ActiveCell.Column
If CellCol > 2 And CellCol < 8 Then
ColDate = 2
ElseIf CellCol > 15 And CellCol < 21 Then
ColDate = 15
Else: Exit Sub
End If

Ligne = ActiveCell.Row
MyDate = Cells(Ligne, ColDate)
MyWeekDay = Weekday(MyDate)

If MyWeekDay = 1 Then ' Test le jour de la semaine
ActiveCell = "Al.D"
ElseIf MyDate = Fériés Then ' * Test si jour
Fériés ???? mais ne


marche pas
ActiveCell = "Al.D"
Else
ActiveCell = "Al"
End If
ActiveCell.Offset(1, 0).Select
End Sub

* Ici je voudrai faire un test si le jour est un jour
fériés alors


ActiveCell = "Al"

Merci d'avance






.