Effacer un nom
Bonjour
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement
--
Commence par faire le nécessaire ,puis fait ce qu'il est possible de faire et tu réaliseras l'impossible sans t'en apercevoir. Saint François d'Assise
6 réponses
-
ContributeurBonjour,
ceci ?Sub suppNom() Dim datas, lig As Long datas = [A1:C1].Resize(Cells(Rows.Count, 1).End(xlUp).Row) For lig = 2 To UBound(datas) If datas(lig, 2) < Date Then datas(lig, 3) = "" Next lig [A1:C1].Resize(UBound(datas), 3) = datas End Sub
https://www.cjoint.com/c/KFmlLPNdpHD
eric
-
-
Bonjour eric
Merci pour ta réponse
cela fonctionne ,mais j'aurais souhaité que la macro se d’éclanche automatiquement dés que la date d'arrivée est dépassé.
Crdlt
-
Contributeuret bien lance-la à l'ouverture.
Dans ThisWorkbook :Private Sub Workbook_Open() suppNom End Sub
Mais dans ce cas il faut spécifier la feuille, des fois qu'une autre soit active :Sub suppNom() Dim datas, lig As Long With Worksheets("Feuil1") datas = .[A1:C1].Resize(Cells(Rows.Count, 1).End(xlUp).Row) For lig = 2 To UBound(datas) If datas(lig, 2) < Date Then datas(lig, 3) = "" Next lig .[A1:C1].Resize(UBound(datas), 3) = datas End With End Sub
eric
-
-
Merci pour ton aide je vais essayé de l'adapter a mon fichier original
Bon WE
Cordialement
-
ContributeurBonjour JCB40.
Pour éviter des macros, ou peut utiliser la Mise en forme conditionnelle et mettre en blanc la police de la cellule ...
-
Bonjour Raymond,
J'ai bien pensé à la MFC ,le problème est que le contenu de la cellule doit disparaitre totalement
d’où ma demande en VBA .
Bon WE
Crdlt
