Microsoft 365 Formule ou code vba

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 !

Marvin57

XLDnaute Occasionnel
Bonjour à tout le monde,

dans le fichier ci-joint je souhaiterai pouvoir faire ce qui suit;

Lorsque le nombre article dans la colonne "F" est égal à zéro, la date de la colonne "J" devrait disparaître ainsi que l'alerte de cette date (MFC).

Peut-on faire cela avec une formule ou alors en VBA ?

Merci à vous d'avance pour votre aide.

Marvin54
 

Pièces jointes

Solution
Bonjour Marvin,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau1[Nombre articles]]) Is Nothing Then
        If Target = 0 Then
            Ligne = 1 + Target.Row - [Tableau1].Row
            [Tableau1].Item(Ligne, 5).ClearContents
        End If
    End If
Fin:
End Sub
la date de la colonne "J" devrait disparaître ainsi que l'alerte de cette date (MFC).
L'alerte par MFC va disparaitre de facto puisque la règle de la MFC n'est pas respectée.
Bonjour Marvin,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau1[Nombre articles]]) Is Nothing Then
        If Target = 0 Then
            Ligne = 1 + Target.Row - [Tableau1].Row
            [Tableau1].Item(Ligne, 5).ClearContents
        End If
    End If
Fin:
End Sub
la date de la colonne "J" devrait disparaître ainsi que l'alerte de cette date (MFC).
L'alerte par MFC va disparaitre de facto puisque la règle de la MFC n'est pas respectée.
 

Pièces jointes

Bonjour Marvin,
Un essai en PJ avec :
VB:
Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fin: If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [Tableau1[Nombre articles]]) Is Nothing Then
        If Target = 0 Then
            Ligne = 1 + Target.Row - [Tableau1].Row
            [Tableau1].Item(Ligne, 5).ClearContents
        End If
    End If
Fin:
End Sub

L'alerte par MFC va disparaitre de facto puisque la règle de la MFC n'est pas respectée.
Bonjour sylvanu,

NICKEL. Je l'ai copié dans le fichier réel et modifié les noms. Tout fonctionne très bien. 👍

Merci beaucoup pour ton aide sur ce sujet.
Bonne journée et à bientôt.👋

Marvin57
 
- 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

Réponses
5
Affichages
60
Réponses
4
Affichages
55
  • Question Question
Microsoft 365 Formule ou VBA
Réponses
6
Affichages
319
  • Question Question
Microsoft 365 Souci de copie
Réponses
8
Affichages
52
Réponses
15
Affichages
637
Retour