XL 2016 Création d'un code VBA pour insérer un des dates

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #2

Bonjour,

c_brt à dit:

J'ai un tableau de données avec une date de début et une date de fin.

Cliquez pour agrandir...

Comment se présentent ces données ?

c_brt à dit:

Le but est de crée un code VBA qui va permettre d'insérer une colonne pour chaque jours entre ces deux dates.

Cliquez pour agrandir...

Dans la même feuille, pour les lignes suivantes ?

c_brt à dit:

C'est tout a fait faisable a la main mais quand il y a plus de 70 000 lignes c'est un peu compliqué...

Cliquez pour agrandir...

Ce sont des colonnes ou des lignes ?

Un classeur exemple serait le bienvenu pour lever toute ambiguïté

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 7 Mars 2022

• #3

Bonjour, voilà ce que je souhaite obtenir, je ne peux malheureusement pas vous mettre le fichier en copie puisque c'est confidentiel, une ligne correspond à un patient.
La date de début et en Y et le date de fin en Z.

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #4

Oki,
En dupliquant la feuille qui ne semble pas confidentielle dans un nouveau classeur et en effaçant ce qui pourrait être cependant confi dans les colonnes avant AT,
Pourriez-vous joindre celui-ci ? car je ne vois pas de Y ou de Z ...

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 7 Mars 2022

• #5

Dans Y et Z sont seulement les dates de début et de fin rien du plus, comme ceci

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #6

Oki,
Donc, ce que vous voulez c'est que le tableau soit Dynamique, c'est à dire que des colonnes (jours virtuels) se rajoutent automatiquement selon le nombre de jour entre Y et Z et qu'on y mette pour la ligne concernée les dates intermédiaires ?
On ne fait que rajouter, pas supprimer ...
C'est parti ...

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 7 Mars 2022

• #7

Oui c'est cela, il faut savoir que les données se mettent a jour tous les jours donc il y a pas de nombre fixe de ligne.
Je vous remercie d'avance pour votre aide!

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #8

Une dernière question: il n'y a a pas d'autres colonnes après celles des jours extensibles ?

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 7 Mars 2022

• #9

Non il n'y en a pas ^^

 

Vote positif 0 Vote négatif

fanch55

XLDnaute Barbatruc

• 7 Mars 2022

• #10

Désolé, pris par plusieurs sujets ...
Voyez si le classeur joint peut convenir

 

Pièces jointes

• Cbrt.xlsm

  22.2 KB · Affichages: 12

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Mars 2022

• #11

Bonjour @c_brt @fanch55
il y a beaucoup plus simple en fait
je commente le code

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim a&, i&, c As Date
    If Intersect(Target, Range("tableau1").Resize(, 3)) Is Nothing Then Exit Sub

    With Range("tableau1[#all]")    'on prend le tableau avec son entete
        For i = 2 To .Rows.Count    ' on démarre donc a la ligne 2
            a = 0    'initialise la variable a à zero a chaque ligne
            Deb = .Cells(i, 2): Fin = .Cells(i, 3)    'on récupère les dates
            If .Cells(i, 4) = "" Then 'on ne fait la ligne que si!!! elle n'a pas été faite
                For c = Deb To Fin    'boucle de date  à  date2
                    'on ajoute apres le tableau les jours  de l’intervalle en incrémentant (a) pour l'offset
                    a = a + 1: .Cells(i, 3 + a) = c: .Cells(1, 3 + a) = "jour" & a
                Next
            End If
        Next
 'POUR INFO !!!      
 'écrire dans une cellule a coté d'un tableau structuré a por effet de l'agrandir  jusqu'a cette cellule
        'conclusion le tableau s'agrandi tout seul
    End With
End Sub

avec cette méthode on évite ainsi de devoir tester si le tableau est dimensionné ou pas et /ou si il a déjà été dimensionné avec un intervalle de date plus important dans les lignes précédentes
comme @fanch55 a proposé dans le dans l'event change ,je met une condition si la ligne a été faite ou pas
autrement dit le changement n’opère uniquement sur les lignes qui n'ont pas été faites
en gros on se comporte comme si les colonnes existent déjà
demonstration

Voilà

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 8 Mars 2022

• #12

Bonjour,
Je vous remercies tous pour cette aide. Je vais essayer ça se matin!

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 8 Mars 2022

• #13

Je reviens vers vous car j'ai l'impression que cela ne fonctionne pas. Je pense que c'est moi qui fait mal les choses mais je ne comprend pas..

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 8 Mars 2022

• #14

re
ben si on voit pas ton fichier ca risque d’être difficile de t'aider
quelle option a tu choisi celle de @fanch55 ou la mienne

 

Vote positif 0 Vote négatif

C

c_brt

XLDnaute Nouveau

• 8 Mars 2022

• #15

J'ai essayer les deux, je prend le code VBA que je met dans une nouvelle feuille et quand je veux l'exécuter il me demande ça :
Je n'ai jamais eu se problème avant dans l'utilisation de macro..

 

Vote positif 0 Vote négatif