Indentifier dimanches et jours fériés d'une colonne de date et copies valeurs avec macro

**rolando06** · 07/10/2017, 13h34

Bonjour à toutes et à tous,

Je n'ai que très peu d'expérience en macro xl et j'ai besoin d'un coup de main pour identifier dans une colonne de "date", les dimanches et les jours fériés, les valeurs
correspondantes dans la colonne "valeurs" sont copiées sur la même ligne dans des colonnes respectivement "Dimanche" et "Jours fériés" qui sont à créer aussi dans cette macro
avec la condition que si le jour férié tombe un dimanche, c'est le jour férié qui prime et donc copie dans la colonne "Jours fériés"

J'espère avoir été suffisamment clair, fichier joint

Merci infiniment à tous

Nota: à toutes fins utiles la semaine est du lundi au dimanche

**Philippe Tulliez** · 07/10/2017, 14h20

Bonjour,

J'espère avoir été suffisamment clair, fichier joint

Au lieu de placer un classeur à télécharger que certains contributeurs dont je fais partie n'ouvre jamais, fais un simple copier/coller du code que tu as déjà réalisé dans l'éditeur de message en n'oubliant pas de l'insérer entre les balises prévues à cet effet.
Tu augmenteras tes chances d'obtenir des réponses.

j'ai besoin d'un coup de main pour identifier dans une colonne de "date", les dimanches et les jours fériés

Il existe une fonction native d'excel qui renvoie le numéro du jour de la semaine d'une date JOURSEM et en VBA une fonction Weekday revoie la même valeur. L'aide en ligne te renseignera mieux t'en apprendra plus.

Pour les jours fériés, il suffit d'avoir une liste reprenant ces jours dans une feuille contenant les paramètres et utiliser la fonction EQUIV pour savoir si la date concernée s'y trouve.

**rolando06** · 07/10/2017, 14h40

Re Bonjour

J'ai placé dans ce classeur les infos avant macro / après macro et sans code car comme je l'ai précisé dans mon message initial
j'ai vraiment très peu d'expérience en vba
Je vous remercie infiniment pour votre aide

Invité · 07/10/2017, 14h43

Envoyé par rolando06

Bonjour,

Sans macro. Les couleurs dans la colonne A sont des MFC.
Pièce jointe 317703

**rolando06** · 07/10/2017, 14h56

Merci beaucoup pour votre réponse et ça fonctionne très bien

les éléments envoyés dans mon fichier sont extraits d'un très grand tableau qui est importé d'une base mise à jour régulièrement et qui écrase à chaque fois le tableau
voilà pourquoi je souhaite automatiser cette opération en l'intégrant dans ma macro d'import

Merci pour votre aide

Invité · 07/10/2017, 15h02

Envoyé par rolando06

Dans ce cas là, il faut seulement automatiser les formules. Une simple recopie vers le bas fera le reste.
Avec l'enregistreur de macro, modifier les deux formules et regarder le résultat de la macro.

**rolando06** · 07/10/2017, 15h21

le tableau peux aller jusqu'à 6000 lignes......
Pouvez vous m'aider pour établir cette macro?

Merci

Invité · 07/10/2017, 15h26

Envoyé par rolando06

Pouvez vous m'aider pour établir cette macro?

Que donne votre macro pour la première ligne ? Il suffit de créer une macro et de faire un Enter dans la barre de formule pour chacune des deux cellules.
Mettez votre code entre balises #.

**Philippe Tulliez** · 07/10/2017, 15h40

Bonjour,

J'ai placé dans ce classeur les infos avant macro / après macro et sans code car comme je l'ai précisé dans mon message initial

Je fais partie des contributeurs qui n'ouvrent jamais un classeur surtout s'il est proposé à l'ouverture d'une dscussion. Si vous avez pu expliquer votre problème dans votre classeur, il suffit de faire un copier/coller de cette explication dans ce forum.

le tableau peux aller jusqu'à 6000 lignes......
Pouvez vous m'aider pour établir cette macro?

Insérer une formule en VBA dans une colonne qu'il y ait une ou un million de lignes se résume à une ligne de code. Voir ce billet Ecrire une formule dans Excel à l'aide d'une procédure VBA

**rolando06** · 07/10/2017, 15h54

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
Range("C3").Select
    ActiveCell.FormulaR1C1 = "=IF(AND(WEEKDAY(RC[-2],2)=7,RC[1]>0),RC[-1],"""")"

**rolando06** · 07/10/2017, 16h31

Re Bonjour Eric

Quand j'applique la formule du dimanche =SI(ET(JOURSEM(A3;2)=7;D3>0);B3;"") et que je descends les cellules de la colonne pour copier la formule, j'ai aucune valeur du dimanche

Pouvez vous regarder

**rolando06** · 07/10/2017, 16h35

Re Bonjour Philippe

Oui j'ai regarder le lien, il n'y a aucun problème mais la 1ère formule du dimanche ne fonctionne pas

Invité · 07/10/2017, 16h35

Envoyé par rolando06

Quand j'applique la formule du dimanche =SI(ET(JOURSEM(A3;2)=7;D3>0);B3;"") et que je descends les cellules de la colonne pour copier la formule, j'ai aucune valeur du dimanche

Quelle est la formule dans D3 ?

**rolando06** · 07/10/2017, 16h44

Oups!!
les cellules D étaient vides, je n'avais pas encore appliqué la formule des jours fériés,

Je test cette 2è formule maintenant

Invité · 07/10/2017, 17h15

Envoyé par rolando06

Qu'est ce que ça donne comme code pour ta cellule colonne D ?

**Philippe Tulliez** · 07/10/2017, 17h19

Bonjour,

Oui j'ai regarder le lien, il n'y a aucun problème mais la 1ère formule du dimanche ne fonctionne pas

Très étrange. Si la formule fonctionne dans Excel, il n'y a aucune raison qu'elle ne fonctionne pas avec VBA si toutefois tu as bien lu le billet que j'ai proposé à la lecture.
On peut voir le code que tu as utilisé ?

**rolando06** · 07/10/2017, 18h50

dans la formule jours fériés, ListeDesJoursFeries n'est pas valide
j'ai probablement oublié de faire une manip?!

**rolando06** · 07/10/2017, 19h03

La formule des jours fériés fonctionne
je vous envoie le code

**rolando06** · 07/10/2017, 20h19

Voici le code,

la plage 1 fonctionne sans problème
la plage 2 me renvoie la formule et non les valeurs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
Sub Macro()
 
Dim plage1 As Range
Dim plage2 As Range
Dim cel As Range
 
 
Set plage1 = Range("d3:d" & Range("a" & Rows.Count).End(xlUp).Row)
        For Each cel In plage1
        cel.FormulaR1C1 = _
   "=IF(ISNA(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)),"""",IF(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)>0,RC[-2],""""))"
        Next
 
Set plage2 = Range("c3:c" & Range("a" & Rows.Count).End(xlUp).Row)
        For Each cel In plage2
        cel.FormulaR1C1 = "IF(AND(WEEKDAY(RC[-2],2)=7,RC[1]>0),RC[-1],"""")"
        Next
 
End Sub

Merci infiniment

Invité · 07/10/2017, 20h21

Envoyé par rolando06

Il te manque le signe = avant le IF

Regarde ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
Sub TestFonctions()
 
Dim DerniereLigne As Long
Dim AireDesDates As Range
 
    With ActiveSheet
         DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
         Set AireDesDates = .Range(.Cells(3, 1), .Cells(DerniereLigne, 1))
         With AireDesDates
              .Offset(0, 2).FormulaR1C1 = "=IF(AND(WEEKDAY(RC[-2],2)=7,RC[1]>0),RC[-1],"""")"
              .Offset(0, 3).FormulaR1C1 = "=IF(ISNA(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)),"""",IF(VLOOKUP(RC[-3],ListeDesJoursFeries,1,FALSE)>0,RC[-2],""""))"
         End With
         Set AireDesDates = Nothing
    End With
 
End Sub

Indentifier dimanches et jours fériés d'une colonne de date et copies valeurs avec macro

Macros et VBA Excel

Discussions similaires

Partager

Partager