chris6999
XLDnaute Impliqué
Bonjour
J'ai un fichier excel avec une multitude de macros rédigées de la façon suivante :
If Target.Column = 5 Then
If Target.Value = "" Then
Range("AB" & Target.Row).ClearContents
Else
Range("AB" & Target.Row) = Format(Date, "mmmm")
End If
End If
Je souhaiterais pour y voir plus clair faire référence à une plage nommée dans mon fichier.
J'ai donc donné un nom aux plages en questions puis j'ai essayé de faire référence à ce nom dans ma macro.
Le problème c'est que je n'ai aucunce bases en VBA et que j'ai du mal à adapter le code avec ces nouvelles références. J'ai écrit
DateRéception = Range("E7:E15000")
MoisEntrée = Range("AB7:AB15000")
If Target.Range = DateRéception Then
If Target.Value = "" Then
Range("MoisEntrée" & Target.Row).ClearContents
Else
Range("MoisEntrée" & Target.Row) = Format(Date, "mmmm")
End If
End If
Est-ce que quelqu'un pourrait m'aider à y voir plus clair. Je mets en pièce jointe un fichier test.
Mon exempled e macro est le suivant Pour toute saisie de date dans la plage E7 à E15000
Positionne le mois en toute lettre dans la colonne AB
Dans la feuille 1 "Plage non nommée" je fais réference à la macro d'origine qui fonctionne.
Dans la feuille 3 "Plage nommée" je fais appel à la macro rectifiée qui ne fonctionne pas
Merci d'avance pour vos conseils
J'ai un fichier excel avec une multitude de macros rédigées de la façon suivante :
If Target.Column = 5 Then
If Target.Value = "" Then
Range("AB" & Target.Row).ClearContents
Else
Range("AB" & Target.Row) = Format(Date, "mmmm")
End If
End If
Je souhaiterais pour y voir plus clair faire référence à une plage nommée dans mon fichier.
J'ai donc donné un nom aux plages en questions puis j'ai essayé de faire référence à ce nom dans ma macro.
Le problème c'est que je n'ai aucunce bases en VBA et que j'ai du mal à adapter le code avec ces nouvelles références. J'ai écrit
DateRéception = Range("E7:E15000")
MoisEntrée = Range("AB7:AB15000")
If Target.Range = DateRéception Then
If Target.Value = "" Then
Range("MoisEntrée" & Target.Row).ClearContents
Else
Range("MoisEntrée" & Target.Row) = Format(Date, "mmmm")
End If
End If
Est-ce que quelqu'un pourrait m'aider à y voir plus clair. Je mets en pièce jointe un fichier test.
Mon exempled e macro est le suivant Pour toute saisie de date dans la plage E7 à E15000
Positionne le mois en toute lettre dans la colonne AB
Dans la feuille 1 "Plage non nommée" je fais réference à la macro d'origine qui fonctionne.
Dans la feuille 3 "Plage nommée" je fais appel à la macro rectifiée qui ne fonctionne pas
Merci d'avance pour vos conseils