Modifications de la Macro

Version imprimable

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:

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

24/08/2015, 14h14
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...

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:

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é.

24/08/2015, 18h29
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:

=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");"")
24/08/2015, 21h25
Thautheme

Re,

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

Code:

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à !...
25/08/2015, 06h54
Theze

Bonjour, à tous, bonjour Thautheme,

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

Hervé.
25/08/2015, 07h13
Theze

Ta formule retourne un age en année et mois mais tu veux quoi au juste ?

Citation:

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.

Peut être avec la fonction NB.SI() ? Un classeur exemple serait peut être bien !

Hervé.
25/08/2015, 14h21
Un Internaute

Bonjour Theze & Thautheme,
Difficile pour vous sans fichier de résoudre le problème.
J'ai gratté et trouvé ceci qui fonctionne parfaitement.
Je met la formule à laquelle il fallait ajouter VAL à NB
C'était difficile pour moi de joindre un fichier car ça fait partie d'un dossier médical.
Merci à vous deux pour votre disponibilité et votre gentillesse.
Bien cordialement à vous deux
Bonne fin de journée

Code:

=SI(ET(C3<>"";NBVAL(C:C)=NBVAL($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");"")

Bonjour Theze & Thautheme,
J'ai fait ça d'après vos conseils concernant:

Code:

Application.EnableEvents = False

Code:

Application.EnableEvents = True

Placés au bon endroit dans la macro ci-dessous?
Mais moi et le VBA!!!
Je suis preneur de vos remarques ou suggestions.
Bonne journée à vous deux
Bien cordialement
Code:

1 2 3 4 5 6 7 8 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub If Not Intersect(Range("B3:B" & Rows.Count), Target) Is Nothing Then Application.EnableEvents = False Range("A" & Target.Row) = IIf(Target = "", "", Date) Application.EnableEvents = True End If End Sub
J'ai oublié le code du ThisWorkbook:
Les positions des lignes sont logiques dans le code ci-dessous?

Code:

Application.ScreenUpdating = False

Code:

Application.ScreenUpdating = True
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Sheets(1).Select Dim Sh As Worksheet Application.ScreenUpdating = False For Each Sh In ThisWorkbook.Worksheets Sh.Range("A3:E" & Application.Max(3, Sh.Range("A" & Rows.Count).End(xlUp).Row)).EntireRow.Interior.ColorIndex = xlNone Next Sh Tri Range("A1").Select Application.ScreenUpdating = True End Sub