Discussion :

[Un Internaute]

Bonjour le forum,
J'ai un souci avec un tableau et je ne sais comment le résoudre.
En effet, lorsque je tape un nombre dans la colonne B la date s’affiche colonne A et le nombre de Mois & Jours depuis dernier Prélèvement repart à 0 NORMAL c'est ce que je veux.
Lorsque je tape un mot dans la colonne D (aa) par exemple la date s'affiche également et c’est ce que je veux.
Où le problème survient c'est lorsque je taper un mot (aa) dans colonne D, Mois & Jours (1 mois 14 jours) ça met 0 et ce n'est pas ce que je veux.
Je veux que lorsque je tape un mot colonne D (aa par exemple) la date s'affiche bien mais Mois & Jours (1 mois 14 jours) reste et ne s'affiche pas 0.
Si un as des Formules veut bien me venir en aide.
Je vous remercie par avance.
Bonne journée à vous tous
Cordialement

[antonysansh]

Bonjour Un Internaute,

Avec ta formule en colonne C, tu n'affiches un résultat que si c'est la dernière ligne.
Lorsque tu saisis "aa" quelque part en colonne D, ce morceau de code (déjà présent sur ton classeur) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Worksheet_Change(ByVal Target As Range)   'Cette Macro inscrit la date Automatiquement en tapant le taux de PSA
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B3:B" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Date)
  ElseIf Not Intersect(Range("D3:D" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Date)
  End If
End Sub

Tu vas mettre en colonne A la date du jour et ensuite ta formule va comme elle le doit mettre la différence entre aujourd'hui et la date en colonne A.
C'est à dire 0.

Je ne sais pas quel est le besoin exacte de ce tableau alors même en expliquant le problème je peux difficilement t'aider plus.

[Un Internaute]

Bonjour antonysansh,
Oui c'est difficile et facile en même temps...mais pour un as en formules...Donc pas moi!!!
Lorsque tu tapes dans le fichier TOTO cellule D19 aa ça met la date et c'est ce que je veux mais ça met 0 dans cellule C19 c'est là que ça ne va pas.
Par contre lorsque je tape 2 par exemple dans cellule B19 ça met la date et à 0 cellule C19 c'est ce que je veux => Nombre de Mois & Jours depuis dernier Prélèvement.
Pour résumer il faut lorsque je tape aa cellule D19 => 1 mois 14 jours doit rester cellule C18
La formule colonne C doit partir de C3 bien évidemment
Merci de t'intéresser à mon problème
Bien cordialement

[antonysansh]

Lorsque tu saisis en colonne D la date doit elle se remettre à la date du jour ?

[Un Internaute]

Oui exactement.
Merci à toi
Bien cordialement

[antonysansh]

Si la date en colonne A revient à la date du jour, c'est normale que ta colonne C passe à 0 jour non ? Sinon je comprends la sens de cette colonne.

[Un Internaute]

Oui elle passe à 0 mais je veux qu'elle n'y passe pas c'est là toute la difficulté.
Bien cordialement

[antonysansh]

Tu as un macro Worksheet_Change sur la feuille du tableau.
A quoi doit-elle servir ?

Mettre la date du jour en colonne A dans tous les cas ou uniquement dans certain ?
Si c'est saisie dans colonne B ou D ça marche déjà alors ça doit pas être ça

Peux-tu me faire la liste exhaustive des cas où tu dois mettre la date à jour ?

[Un Internaute]

On doit mettre la date du jour lorsque je tape dans B ou D
Mais dans D je ne veux pas que C se mette à 0 c'est tout.
Il faut trouver la parade.
La macro sert à mettre la date du jour ou à l'effacer si on supprime B ou D
Fait le fonctionner tu vas voir.
Tape 2 par exemple dans B19 ça va te mettre la date du jour et supprime le ensuite ça t'efface la date et tu reviens à 1 mois et 14 jours colonne C
Idem pour colonne D
Bien cordialement

[antonysansh]

Colonne C : Nombre de Mois & Jours depuis dernier Prélèvement
Colonne A : Date Prélèvement

Donc si tu saisis en B ou D, c'est normale d'avoir 0. Non ?

Tu peux juste tester que lors d'un changement de saisie, s'il y a déjà une date, on ne la change pas.

Ainsi tu gardes ta fonctionnalité de saisir la date via une saisie dans les colonnes B ou D mais si dans D, la date n'est pas changée s'il y en avait déjà une.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Worksheet_Change(ByVal Target As Range)   'Cette Macro inscrit la date Automatiquement en tapant le taux de PSA
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Range("B3:B" & Rows.Count), Target) Is Nothing Then
    Range("A" & Target.Row) = IIf(Target = "", "", Date)
  ElseIf Not Intersect(Range("D3:D" & Rows.Count), Target) Is Nothing Then
    If Target = "" Then
        Range("A" & Target.Row) = ""
    Else
        If Range("A" & Target.Row) = "" Then Range("A" & Target.Row) = Date
    End If
  End If
End Sub

[Un Internaute]

Non ce n'est pas ça.
Attendons que certains membres veulent bien si coller!!!
Je te remercie quand même de t'avoir intéressé au problème.
Bonne journée à toi
Bien cordialement

[Un Internaute]

Bonjour le forum,
J'ai réussi à faire quelque chose mais un autre problème surgit.
Si je tape aa dans cellule D19 ça affiche bien la date dans cellule A19 et 1 mois 14 jours reste dans cellule C18
Lorsque je tape 2 par exemple dans cellule B20 la date s'affiche bien et ça repart bien à 0 jour.
Le petit problème qui surgit c'est lorsque je tape le même nombre 3.4 dans cellule B20 ça ne repart pas à 0 jour.
J'ai contourné le problème en tapant 3.40001
Si quelqu'un a mieux je suis preneur
Merci d'avance pour vos éventuels retours.
Bien cordialement