Effacer un nom

Signaler
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
-
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
-
Bonjour
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement

6 réponses

Messages postés
24184
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
6 894
Bonjour,

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
Messages postés
1640
Date d'inscription
lundi 22 février 2021
Statut
Membre
Dernière intervention
23 septembre 2021
108
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
434
Bonjour
Merci pour ta réponse
Je ne cherche pas a supprimer la ligne mais uniquement effacer le contenu de la cellule colonne C,
dans l'exemple du fichier le nom de luc doit être effacer.
Crdlt
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
434
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
Messages postés
24184
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
6 894
et 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
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
434
Merci pour ton aide je vais essayé de l'adapter a mon fichier original
Bon WE
Cordialement
Messages postés
54683
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
22 septembre 2021
16 593
Bonjour JCB40.

Pour éviter des macros, ou peut utiliser la Mise en forme conditionnelle et mettre en blanc la police de la cellule ...
Messages postés
2453
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
21 septembre 2021
434
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