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

modification d'une MFC & macro avec date

  • Initiateur de la discussion Initiateur de la discussion VBANOVICE
  • 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 !

V

VBANOVICE

Guest
bonjour a tous

Merci de votre aide pour l'avancement de mon projet

simplement j'aimerai modifier une MFC pour que (dans l'exemple) la condition "oui" soit une date ( juste une date)

=ET($J14="oui";OU($J14="";$K14=""))

et que dans la macro suivante

le If X.Offset(0, 0) <> "" soit du genre If X.Offset(0, 0) = date

( j'ai essayé mais ca ne marche pas )

Dim X As Range, k As Long, Rep As String
With Sheets("Saisie")
For Each X In .Range("F14:" & .Range("F65536").End(xlUp).Address)
If X.Offset(0, 0) <> "" And X.Offset(0, 1) = "" Then
Rep = Rep & X.Row - 13 & vbCrLf
k = k + 1
End If
Next
If Rep <> "" Then MsgBox "veuillez Saisir les données:" & vbCrLf & "* dans N°FICHE *" & vbCrLf & " Sur la (les) ligne(s) :" & vbCrLf & Rep
If k = 0 Then Call MACRO5B1
'
End With
End Sub


merci de m'aider

@+
 
Re : modification d'une MFC & macro avec date

Salut VBANovice 😉

j'aimerai modifier une MFC pour que (dans l'exemple) la condition "oui" soit une date ( juste une date)
Il faut regarder dans tes fontions Excel ce que tu as !
Si j'ai bien compris
Code:
=ET($J14=[COLOR=blue][B]DATEVAL("01/01/2009")[/B][/COLOR];OU($J14="";$K14=""))

Et pour la macro
Code:
If X.Offset(0, 0) = DateValue("01/01/2009") <> "" And X.Offset(0, 1) = "" Then

A+
 
Re : modification d'une MFC & macro avec date


Merci pour ta réponse qui fonctionne avec une date précise, mais j'aimerai que les formules fonctionnent quelque soit la date rentrée ( nimporte quelle date)

@+
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

Réponses
4
Affichages
280
Réponses
4
Affichages
730
  • Question Question
XL 2021 VBA excel
Réponses
4
Affichages
449
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…