Ajouter colonne dans macro

Bonjour le forum

Dans la macro au dessous je voudrais ajouter la colonne F ( colonne 6) dans cette partie de macro

Merci à vous

Cordialement

' *************** Début Modifs. Tapez le nombre de M3 (colonne H )et éventuellement Modifier les Dates (colonne I)sous le format suivant => 10/04/19 (Exemple)

End If

ElseIf Target.Column = 9 Then ' Colonne I

If IsDate(Target) Then

Target = Application.Proper(Format(Target, "dddd dd mmmm yyyy")) ' Sinon on inscrit la date

Else

Target = ""

' ************** Fin modifs

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim NombreJour As Integer
Dim LaDate As Date

  Application.ScreenUpdating = False
  If Target.Count > 1 Then Exit Sub
  Application.EnableEvents = False
  ' On recherche si la page est surveillée
  If Left(Sh.Name, 5) = "Année" Then
    If (Target.Column = 5 Or Target.Column = 8) And Target.Row > 3 Then         ' Colonne E ou colonne H
      If Target = "" Then                 ' Si on efface la colonne E ou H
        Target.Offset(0, 1) = ""          ' On efface alors la colonne F ou I
      Else
        Target.Offset(0, 1) = Application.Proper(Format(Date, "dddd dd mmmm yyyy"))        ' Sinon on inscrit la date

  ' *************** Début Modifs. Tapez le nombre de M3 (colonne H )et éventuellement Modifier les Dates (colonne I)sous le format suivant => 10/04/19 (Exemple)
      End If
    ElseIf Target.Column = 9 Then     ' Colonne I
      If IsDate(Target) Then
        Target = Application.Proper(Format(Target, "dddd dd mmmm yyyy"))        ' Sinon on inscrit la date
      Else
        Target = ""
  ' ************** Fin modifs

      End If
    End If
  End If
  Application.EnableEvents = True
End Sub

Salut,

Je pense qu'il sera assez difficile de t'aider sans avoir ton fichier (ou une copie anonymisée de celui-ci) à disposition.

Je présume que si tu as ajouté une colonne F, il faudra revoir toute la macro à cause de ce décalage.

L'idéal serait d'avoir ton fichier une fois dans l'ancienne version (sans la colonne F ?) et une fois avec tes modifications qui nécessitent de revoir ta macro.

Amicalement.

Bonjour Yvouille

Il n'y a aucune colonne ajoutée. Les colonnes vont de A à J

Lorsque je tape un nombre dans colonne E (cellules E4:E15) la date s'affiche dans colonne F avec le Jour (1ère lettre en Majuscule et Mois aussi 1ère lettre en Majuscule)

Mais quelques fois j'oublie et je veux pouvoir faire comme en colonne I modifier la date et qu'elle se mette dans le même format que colonne I. Sinon la date se met en minuscule

Je ne peux pas mettre de fichier il y a trop de données perso

Merci à toi

Cordialement

Tu peux effectuer une copie de ton fichier, remplacer les données confidentielles par des données anonymes, réduire le nombre de lignes de 10'000 à 20 lignes représentatives, supprimer les feuilles inutiles à ta démo, etc.

Mais bon,

A l'aveugle, essaie de remplacer cette ligne

 ElseIf Target.Column = 9 Then     ' Colonne I

par celle-ci

 ElseIf Target.Column = 6 OR Target.Column = 9 Then     ' Colonnes F et  I

Chaleureusement.

Re Yvouille

Nickel

Merci à toi

Passe une bonne fin de WE

Amicalement