Liste de validation de dates

[natorp]

Bjr à tous et toutes
Je cherche à faire une liste de validation en fonction des date début et fin

en colonne A = date début
en colonne B = date fin
en colonne C = liste de validation des jours compris entre A et B

j'ai bien essayé ça : =ET(C1>=A1;C1<=B2) mais ça marche pas !!!

merci de votre attention
Cordialement, Gérard

 

[jp14]

Re : Liste de validation de dates

Bonjour


Avec des données ce serait plus simple de te répondre.

JP

 

[natorp]

Re : Liste de validation de dates

Bjr jp14
voici un fichier d'exemple...

Cordialement, Gérard

 

[mromain]

Re : Liste de validation de dates

bonjour natorp, JP14


voici un exemple :
la macro se situe sur la feuille (clic droit sur l'onglet >> Visualiser le code)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim dateDebut As Date, dateFin As Date, texteValidation As String

'si la cellule sélectionnée ne se trouve pas dans la zone C2:C8, quitter la macro
If Application.Intersect(Target, Range("C2:C8")) Is Nothing Then Exit Sub

'si une des 2 cellules de gauche ne contient pas de date, quitter la macro
If (Not IsDate(Target.Offset(0, -1))) Or (Not IsDate(Target.Offset(0, -2))) Then Exit Sub

dateDebut = Target.Offset(0, -2)
dateFin = Target.Offset(0, -1)

'créer la liste de validation
Do
    texteValidation = texteValidation & Format(dateDebut, "dd/mm/yy") & ","
    dateDebut = dateDebut + 1
Loop Until dateDebut > dateFin

'affecter la nouvelle validation
Target.Validation.Delete
Target.Validation.Add xlValidateList, Formula1:=Left(texteValidation, Len(texteValidation) - 1)
End Sub

a+

 

[natorp]

Re : Liste de validation de dates

merci mromain
est-il possible de faire ce que je souhaite par une formule dans la source d'une liste de validation ?
Je travaille sur un fichier excel qui doit migrer ensuite en Open Office et je ne suis pas capable de ré-écrire le Vba en basic Open Office

cordialement, Gérard

 

[mromain]

Re : Liste de validation de dates

merci mromain
est-il possible de faire ce que je souhaite par une formule dans la source d'une liste de validation ?
Je travaille sur un fichier excel qui doit migrer ensuite en Open Office et je ne suis pas capable de ré-écrire le Vba en basic Open Office

cordialement, Gérard

re bonjour,

A mon avis (plutôt à mon niveau 😉), je ne pense pas que ce soit faisable :
En effet, la validation étant différente sur chaque ligne, il faudrait une formule par ligne.
J'espère me tromper...


a+

 

[job75]

Re : Liste de validation de dates

Bonjour natorp, mromain,

On peut définir le nom Liste par une formule "évolutive".

C2 étant sélectionnée, menu Insertion-Nom-Définir :

=TEXTE(LIGNE(INDIRECT(Feuil1!$A2&":"&Feuil1!$B2));"jj/mm/aa")

On peut vérifier dans la feuille que Liste est bien une matrice.

Le problème est que si l'on tente de créer une validation avec =Liste, ça ne marche pas 😱

A+

 

[Guest]

Re : Liste de validation de dates

bonjour Natorp, mRomain,

Natorp dans ton post 1 tu mets : =ET(C1>=A1;C1<=B2) ne serait-ce pas A2?!!!

Chez moi '=ET(C2>=A2;C2<=B2)' fonctionne en C2 à tirer vers le bas.

A+

 

[job75]

Re : Liste de validation de dates

Salut Hasco 🙂

Le problème n'est pas cette formule, mais de créer une liste de validation...

A+

 

[Guest]

Re : Liste de validation de dates

Hello Job75😀

Oups, non seulement je ne t'avais pas vu mais en plus je me plante🙄

A++

 

[natorp]

Re : Liste de validation de dates

Merci à vous de chercher et me faire ces propositions... même si Hasco est à côté (lol)
peut-être l'inspiration viendra-t-elle ce WE ?

Au plaisir de vous lire
Gérard

 

[job75]

Re : Liste de validation de dates

Re,

Puisque les matrices ne sont pas acceptées, il faut se rabattre sur un tableau auxiliaire.

Entrer en D2 la formule :

=REPT(TEXTE($A2+COLONNE()-4;"jj/mm/aa");$A2+COLONNE()-5<$B2)

et la tirer vers le bas et à droite jusqu'où nécessaire (colonne M par exemple).

Puis C2 étant sélectionnée, définir le nom Liste par la formule :

=DECALER(Feuil1!$D2;;;;NB.SI(Feuil1!$D2:$IV2;"?*"))

Enfin créer la liste de validation avec la formule =Liste

Edition : on peut aussi se passer du nom Liste et entrer directement la formule de validation (pour C2) :

=DECALER($D2;;;;NB.SI($D2:$IV2;"?*"))

Voir fichier (2)

A+

 

[mromain]

Re : Liste de validation de dates

re bonjour le fil,


hé bien...
que de formules intéressantes sur ton fichier job75 🙂

je le met de coté 😉


a+

 

[job75]

Re : Liste de validation de dates

Re,

Bon, si Fin Astreinte est toujours 7 jours après Début Astreinte, c'est très simple :

Formule en D2 :

=$A2+COLONNE()-4

Formule de validation en C2 :

=D2:K2

A+

 

[natorp]

Re : Liste de validation de dates

bjr job75, merci à toi
j'en suis arrivé à la même conclusion...

bon WE
c'est un plaisir ce forum...
Gérard