Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

A propos des dates

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion colaplsus
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
C

colaplsus

XLDnaute Nouveau
Bonjour bonjour, me revoici avec un nouveau probleme sur les bras,
Imaginer, je possede différentes dates :
mercredi 1 juin 2011
jeudi 2 juin 2011
vendredi 3 juin 2011
lundi 6 juin 2011
mardi 7 juin 2011
mercredi 8 juin 2011
jeudi 9 juin 2011
vendredi 10 juin 2011
lundi 13 juin 2011
mardi 14 juin 2011
mercredi 15 juin 2011
jeudi 16 juin 2011
vendredi 17 juin 2011
lundi 20 juin 2011

et je voudrais grace a une macro ajouter les dates manquantes jusqu'a la fin du mois, et aussi prendre en compte le fait qu'il soit possible qu'une date manque dans les données présentes, tels qu'un mercredi entre mardi et jeudi.

J'ai ce code pour m'aider
Code: 
Sub jour()
Dim i As Integer
Dim R As Integer
Dim x As Integer
x = 1
While x < 5
Sheets("4158").Select
i = 12
For i = 12 To Range("A" & Rows.Count).End(xlUp).Row
While Weekday(Cells(i, 1)) <= 5 And Day(Cells(i, 1)) <= 31
If i = Range("A" & Rows.Count).End(xlUp).Row Then Exit Sub
If Weekday(Cells(i + 1, 1)) - Weekday(Cells(i, 1)) <> 1 And Cells(i, 1) <> 0 Then
Rows(i + 1).Insert Shift:=xlDown
Cells(i + 1, 1).Value = (Cells(i, 1)) + 1
i = i + 1
Else
i = i + 1
End If
Wend
Next
x = x + 1
Wend
End Sub
en effet, il ne me faut que les 5 jours de la semaine, le code fonctionne bien, mais s'arrete si il constate qu'il n'y a pas de lundi apres un vendredi.

Quelqu'un aurait une idée ?
 
Trier par date Trier par votes
Re : A propos des dates

Salut colaplsus et le forum
Une idée :
Les dates correspondent au nombre de jours depuis le 1 janvier 1900. 40724 => 30 Juin 2011
Il suffit donc de faire une boucle soit décrémentante, soit incrémentatnte qui teste si la ligne d'avant (d'après) est égale à la valeur de la cellule -1 (+1) et si on est dans un jour de semaine (de mardi à vendredi ou de lundi à jeudi) et +3 pour le WE.

Pas envie de chercher plus loin, ne comprenant pas la boucle de X
A+
 
Vote positif 0 Vote négatif
Re : A propos des dates

Cette version du code à tester :
Code: 
Sub jour()
Dim i As Integer, R As Integer, x As Integer
x = 1
While x < 5
Sheets("4158").Select
i = 12
For i = 12 To Range("A" & Rows.Count).End(xlUp).Row
    While Weekday(Cells(i, 1)) <= 6 And Day(Cells(i, 1)) <= 31
        If i = Range("A" & Rows.Count).End(xlUp).Row Then Exit Sub
            If Weekday(Cells(i + 1, 1)) - Weekday(Cells(i, 1)) <> 1 And Cells(i, 1) <> 0 Then
                Rows(i + 1).Insert Shift:=xlDown
                Cells(i + 1, 1).Value = Cells(i, 1) + IIf(Weekday(Cells(i, 1)) = 6, 3, 1)
                i = i + 1
            Else
                i = i + 1
        End If
        Wend
    Next
    x = x + 1
Wend
End Sub
 
Vote positif 0 Vote négatif
Re : A propos des dates

là, ça s'arrête 😱
Code: 
Sub jour()
Dim i As Integer, Endi As Long
Sheets("4158").Select
Endi = Range("A" & Rows.Count).End(xlUp).Row
For i = 12 To Endi
    While Weekday(Cells(i, 1)) <= 6 And Day(Cells(i, 1)) <= 31
        If i = Range("A" & Rows.Count).End(xlUp).Row Then Exit Sub
        If Weekday(Cells(i + 1, 1)) - Weekday(Cells(i, 1)) <> 1 And Cells(i, 1) <> 0 Then
            Rows(i + 1).Insert Shift:=xlDown
            Cells(i + 1, 1).Value = Cells(i, 1) + IIf(Weekday(Cells(i, 1)) = 6, 3, 1)
            Endi = Endi + 1
            i = i + 1
        End If
        i = i + 1
    Wend
Next
End Sub
 
Vote positif 0 Vote négatif
Re : A propos des dates

Je crois que tu ne comprends pas comment je voudrai que le code fonctionne, donc je te fais un exemple, pour le mois de juin j'ai ces données :

mercredi 1 juin 2011
jeudi 2 juin 2011
vendredi 3 juin 2011
lundi 6 juin 2011
mardi 7 juin 2011
mercredi 8 juin 2011
jeudi 9 juin 2011
vendredi 10 juin 2011
lundi 13 juin 2011
lundi 13 juin 2011
mardi 14 juin 2011
jeudi 16 juin 2011
vendredi 17 juin 2011
lundi 20 juin 2011
lundi 20 juin 2011
mardi 21 juin 2011
lundi 20 juin 2011
mardi 21 juin 2011
mercredi 22 juin 2011
jeudi 23 juin 2011
vendredi 24 juin 2011

Comme tu vois il manque des dates, et je voudrai que la macro rajoute ces dates jusque fin juin.

P.S : merci en tout les cas de bien vouloir m'aider =)
 
Vote positif 0 Vote négatif
Re : A propos des dates

Bonjour à tous,

Peux-tu essayer avec :

VB: 
Option Explicit

Sub Remplir_Dates_Manquantes()
Dim NbJ&: NbJ = ([A65536].End(xlUp) - [A1])
With Range("A1")
    .AutoFill .Resize(NbJ + 1), 5
End With
End Sub

A + à tous

Édition : je n'avais pas lu qu'il ne fallait que les jours de semaine... Désolé
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Question Question
Microsoft 365 VBA et Segments TCD
Réponses
2
Affichages
210
patricko-13
P
B
  • Question Question
Microsoft 365 Macro pour création fichier csv
Réponses
8
Affichages
478
job75
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
225
Abi23
A
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
150
sylvanu
J
  • Question Question
XL 2021 transfert listview vers feuille excel
Réponses
9
Affichages
331
Piment
P
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
262
KRUG WOO
K
F
  • Résolu(e)
Autres Insérer une ligne
2 3
Réponses
36
Affichages
2 K
francescofrancesco
F
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
197
kiki29
C
  • Question Question
XL 2016 VBA - Mettre en Indice une partie du contenu d'une cellule : problème avec la propriété Font.Subscript
Réponses
2
Affichages
292
crocrocro
C
S
  • Question Question
XL 2021 Listing Album Panini
Réponses
5
Affichages
238
job75
  • Question Question
XL 2019 Gérer la descente d'une cellule colorer selon un timer
2 3 4
Réponses
56
Affichages
2 K
Rheeem
R
C
  • Question Question
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
508
CortoXls
C
D
  • Question Question
XL 2010 Recherche cellule vide sur une ligne
Réponses
9
Affichages
430
job75
L
  • Résolu(e)
Microsoft 365 Changer code pour sélectionner 3lignes avec un pas de 1
Réponses
4
Affichages
479
laplayast
L
T
  • Résolu(e)
Microsoft 365 VBA Exporter une sélection de plages nommées au format PDF
Réponses
12
Affichages
525
tnion
T
  • Question Question
XL 2021 Ouvrir une application et vérifier si elle est déjà ouverte
Réponses
4
Affichages
114
Jojo973
  • Question Question
Microsoft 365 VBA : copier les adresses
Réponses
7
Affichages
351
VBA_dev_Anne_Marie
W
  • Résolu(e)
XL 2016 Placer mes photos dans la colonne A, [A3], [A4],etc, jusqu'en [A99] selon le prénom et le nom colonnes B et C
2
Réponses
26
Affichages
427
Webperegrino
W
  • Question Question
XL 2021 Exportation feuille msgbox yes no avec module Thisworkbook
2
Réponses
21
Affichages
1 K
Nicolas JACQUIN
A
  • Question Question
VBA qui fonctionnait avant, mais ne fonctionne plus avec le 64 bits
Réponses
2
Affichages
359
patricktoulon
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…