Discussion :

[Un Internaute]

Bonjour le forum,
Depuis le temps il faut bien que je vienne vous "taquiner" un peu!!!
Dans la colonne D je ne tape plus un NOMBRE mais du texte donc il faut modifier la ligne 2 de la macro je pense.
Quelqu'un a t-il une idée?
Merci d'avance pour vos lumières.
Bien cordialement

Code :

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

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

[Thautheme]

Bonjour,

Le code que tu fournis ne tient pas compte de ce que tu tapes (nombre ou texte) mais uniquement du fait que tu édites ou effaces le contenu d'une cellule de la plage D3: D... Il n'y a donc rien à modifier. Tu tapes et ça met la date du jour dans la cellule de la colonne A, Tu effaces et ça efface la cellule de la colonne A...

[Theze]

Bonjour,

Quand tu modifie une valeur dans l'évènement "Change" d'une feuille, il faut geler les évènements avec "Application.EnableEvents" afin que la procédure ne soit pas appelée une seconde fois :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 
Private Sub Worksheet_Change(ByVal Target As Range)   'Cette Macro inscrit la date Automatiquement en tapant ECBU
 
    If Target.Count > 1 Then Exit Sub
 
    If Not Intersect(Columns(1), Target) Is Nothing Then
 
        Application.EnableEvents = False
 
        If Target.Value = "ECBU" Then Target.Value = Date
 
        Application.EnableEvents = True
 
    End If
 
End Sub

Hervé.

[Un Internaute]

Bonjour Theze et re-bonjour Thautheme,
Quel C$N!!!
Je n'en dit qu'une partie donc vous ne pouvez pas trouver.
Avec toutes mes excuses
J'ai une formule dans colonne B qui va bien si je tape un nombre mais pas une lettre quelconque et pas forcément ECBU.
J'arrive et j'ai pensé ça en marchant!!!
Je pense que c'est la formule qu'il faut revoir.
NB?
Je renouvelle toutes mes excuses de prendre sur votre temps et ce de ma faute.
Bien cordialement à vous 2

Code :

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

=SI(ET(C3<>"";NB(C:C)=NB($C$1:C3));SI(DATEDIF(A3;AUJOURDHUI();"Y")>0;DATEDIF(A3;AUJOURDHUI();"Y")&SI(DATEDIF(A3;AUJOURDHUI();"Y")>1;" ans ";" an ");"") & SI(DATEDIF(A3;AUJOURDHUI();"YM")>0;DATEDIF(A3;AUJOURDHUI();"YM")&" mois ";"") &DATEDIF(A3;AUJOURDHUI();"MD")&SI(DATEDIF(A3;AUJOURDHUI();"MD")>1;" jours";" jour");"")

[Thautheme]

Re,

@Theze,
Puisque le code agit dans la colonne A, la ligne :

Code :

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

If Not Intersect(Range("D3:D" & Rows.Count), Target) Is Nothing Then

dispense le EnableEvents = False toujours pénible en cas de planton avant de l'avoir remis à [True]

@Internaute,
Trop nul en formule pour pouvoir t'aider sur ce coup-là !...

[Theze]

Bonjour, à tous, bonjour Thautheme,

Oups, j'ai compris de travers, j'ai juste vu la colonne A :-(

Hervé.