problème de date

Charly2

Nous a quittés en 2006

Repose en paix

• 6 Février 2006

• #2

Bonsoir modus57 🙂

Sans fichier, ça va pas être facile 😛

Exemple en ligne 2 avec une plage nommée Feries, formule à placer en cellule C2 :

=SI(NB.SI(Feries;A2);'Férié';'')

Tiens nous au courant 😉

A+

 

Vote positif 0 Vote négatif

M

modus57

Guest

• 6 Février 2006

• #3

Bonsoir Charly2

Merci pour ta réponse

Mais je souhaiterai le faire par code VBA

Est-ce possible

A +

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 6 Février 2006

• #4

Re 🙂

En vba, c'est tout à fait faisable également. Mais là, il vaut mieux avoir l'organisation de tes données sous les yeux.

Peux-tu joindre un fichier exemple simple ?

A+

 

Vote positif 0 Vote négatif

M

modus57

Guest

• 6 Février 2006

• #5

Bonjour Charly2, le forum

Rechercher dans selection A2:A32 une valeur = à une valeur de la zone nommée 'fériés' ecrire sur la même ligne dans la colnne C le texte 'férié'

Exemple si dans la selection A2:A32 la valeur 01/01/2006 = jour de l'an de la zone nommée 'fériés'

J'epère être assez clair je te joint le fichier pour t'aider

A bientôt

 

Vote positif 0 Vote négatif

Charly2

Nous a quittés en 2006

Repose en paix

• 6 Février 2006

• #6

Re modus57,

Bon, un bout de code à placer dans un module et à déclencher par bouton par exemple :

Option Explicit

Sub BoutonFeries_QuandClick ()
'
Dim Cell As Range
'
  For Each Cell In Range('A2:A32')
    If WorksheetFunction.CountIf(Range('fériés'), Cell) = 1 Then
      Cell.Offset(0, 2) = 'FERIE'
    End If
  Next Cell
End Sub

Cliquez pour agrandir...

A+ 😉

 

Vote positif 0 Vote négatif

M

modus57

Guest

• 6 Février 2006

• #7

Bonsoir Charly2

C'est exactement ce que je cherchais
Je te remercie sincèrement pour ton aide,
cela me permet de gagner du temps

Super sympaaaaaaaaaaaaa

Bonne nuit

 

Vote positif 0 Vote négatif