Microsoft 365 supprimer une cellule si je saisie une donnée dans une autre

[lusano]

Bonjour,

J'aimerais que si je saisie une date dans la colonne réelle la date de la colonne prévisionnelle soit supprimé pour la facturation
Et me l'expliquer pour que je puisse faire pareil côté règlement...

Merci d'avance 😉

 

[R1-]

Bonjour,

Il y a déjà une formule dans la case de la date prévisionnelle doit elle être conservée ?

 

[lusano]

oui puisqu'elle se calcule en automatique c'est l'addition de la date du contrat plus le nombre de jour de retard
mais si c'est dérégeant elle peut etre enlevé

 

[R1-]

Voici ce que j'ai fait, en conservant la formule déjà présente.
Le but est de savoir si la case de la date réelle est remplie ou non. Si elle est vide

SI(H17="")

alors, la formule est conservée, sinon la date prévisionnelle égale "".

 

[lusano]

Voici ce que j'ai fait, en conservant la formule déjà présente.
Le but est de savoir si la case de la date réelle est remplie ou non. Si elle est vide

SI(H17="")

alors, la formule est conservée, sinon la date prévisionnelle égale "".

super je te remercie ca fonctionne !!
je ne pensais pas que c'était possible avec de la formule de ce que '=j'avais pu trouver sur internet donc javais commencé à partir sur de la macro...

 

[AtTheOne]

Bonjour à toutes & à tous
Bon j'arrive un peu tard 🙄...
Voici un exemple avec macro, en remettant la formule si la date réelle est effacée avec l'événement Worksheet_Change de la feuil1 :

(Entre nous la version par formule et plus simple mais c'est pour l'exemple ...😉)

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim RgFacture As Range, RgRéglemt As Range, Action$
   
     Set RgFacture = Me.[_t_suivi[F.Date réelle]]
     Set RgRéglemt = Me.[_t_suivi[R.Date réelle]]
   
     If Target.Count > 1 Then Exit Sub
     Action = ""
     If Not Intersect(Target, RgFacture) Is Nothing Then Action = "Facture"
     If Not Intersect(Target, RgRéglemt) Is Nothing Then Action = "Règlement"

     Select Case Action
          Case ""
               Exit Sub
          Case "Facture"
               If IsDate(Target.Value) Then
                    'Effacer la date prévisionnelle de facturation (-1 : = 1 colonne à gauche)
                    Target.Offset(0, -1).ClearContents
               Else
                    'Remettre la formule dans la date prévisionnelle de facturation
                    Target.Offset(0, -1).FormulaR1C1 = "=IF(_t_suivi[[#This Row],[F.Date contrat]]="""","""",_t_suivi[[#This Row],[F.Date contrat]]+R13C9)"
               End If
          Case "Règlement"
               If IsDate(Target.Value) Then
                    'Effacer la date prévisionnelle de règlement (-2 : = 2 colonnes à gauche)
                    Target.Offset(0, -2).ClearContents
               Else
                   'Remettre la formule dans la date prévisionnelle de facturation
                    'Target.Offset(0, -2).formulaR1C1= "...Mettre ici la formule"
               End If
             
     End Select

End Sub

Amicalement
Alain

 

[lusano]

Bonjour à toutes & à tous
Bon j'arrive un peu tard 🙄...
Voici un exemple avec macro, en remettant la formule si la date réelle est effacée avec l'événement Worksheet_Change de la feuil1 :

(Entre nous la version par formule et plus simple mais c'est pour l'exemple ...😉)

Private Sub Worksheet_Change(ByVal Target As Range)
     Dim RgFacture As Range, RgRéglemt As Range, Action$
  
     Set RgFacture = Me.[_t_suivi[F.Date réelle]]
     Set RgRéglemt = Me.[_t_suivi[R.Date réelle]]
  
     If Target.Count > 1 Then Exit Sub
     Action = ""
     If Not Intersect(Target, RgFacture) Is Nothing Then Action = "Facture"
     If Not Intersect(Target, RgRéglemt) Is Nothing Then Action = "Règlement"

     Select Case Action
          Case ""
               Exit Sub
          Case "Facture"
               If IsDate(Target.Value) Then
                    'Effacer la date prévisionnelle de facturation (-1 : = 1 colonne à gauche)
                    Target.Offset(0, -1).ClearContents
               Else
                    'Remettre la formule dans la date prévisionnelle de facturation
                    Target.Offset(0, -1).FormulaR1C1 = "=IF(_t_suivi[[#This Row],[F.Date contrat]]="""","""",_t_suivi[[#This Row],[F.Date contrat]]+R13C9)"
               End If
          Case "Règlement"
               If IsDate(Target.Value) Then
                    'Effacer la date prévisionnelle de règlement (-2 : = 2 colonnes à gauche)
                    Target.Offset(0, -2).ClearContents
               Else
                   'Remettre la formule dans la date prévisionnelle de facturation
                    'Target.Offset(0, -2).formulaR1C1= "...Mettre ici la formule"
               End If
            
     End Select

End Sub

Amicalement
Alain

merci 😉 je le garde quand même de côté sait-on jamais