Sujet Précédent Sujet Suivant

Effacer un nom

Fermé
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 12 juin 2021 à 11:50
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 12 juin 2021 à 18:06
Bonjour
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement

6 réponses

Réponse 1 / 6
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
12 juin 2021 à 13:38
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
1
Réponse 2 / 6
brucine Messages postés 14320 Date d'inscription lundi 22 février 2021 Statut Membre Dernière intervention 26 avril 2024 1 814
12 juin 2021 à 12:14
Bonjour.

Comme ça?
https://forums.commentcamarche.net/forum/affich-23117117-suppression-de-ligne-en-fonction-d-une-date
0
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 juin 2021 à 13:19
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
0
Réponse 3 / 6
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 juin 2021 à 13:52
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
0
eriiic Messages postés 24570 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 23 avril 2024 7 213
Modifié le 12 juin 2021 à 16:23
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
0
Réponse 4 / 6
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 juin 2021 à 17:43
Merci pour ton aide je vais essayé de l'adapter a mon fichier original
Bon WE
Cordialement
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 6
Raymond PENTIER Messages postés 58396 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 25 avril 2024 17 094
12 juin 2021 à 17:53
Bonjour JCB40.

Pour éviter des macros, ou peut utiliser la Mise en forme conditionnelle et mettre en blanc la police de la cellule ...
0
Réponse 6 / 6
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 461
12 juin 2021 à 18:06
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
0

Discussions similaires

"Nom de l'adresse" lors d'une inscription sur une site
ScarexStupid -
Rossignol -

9 réponses
Annuaire portable gratuit à partir d'un nom
dani26 -
Authority -

9 réponses
Comment trouver un numéro à partir du nom et prénom
papillon -
guyguy -

10 réponses
Trouver un nom avec une adresse
lakshmi66 -
Nath01 -

11 réponses
Nom d’adresse
X -
X -

2 réponses