Effacer un nom
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
Bonjour
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement
Dans le fichier ci-joint les explications
je vous remercie pour votre aide
https://www.cjoint.com/c/KFmjYcEVajB
Cordialement
A voir également:
- Effacer un nom
- Comment effacer un compte gmail - Guide
- Comment effacer un iphone - Guide
- Effacer les données de navigation sur android - Guide
- Trouver un nom avec une adresse ✓ - Forum Réseaux sociaux
- Comment effacer une page word - Guide
6 réponses
Bonjour,
ceci ?
https://www.cjoint.com/c/KFmlLPNdpHD
eric
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
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
et bien lance-la à l'ouverture.
Dans ThisWorkbook :
Mais dans ce cas il faut spécifier la feuille, des fois qu'une autre soit active :
eric
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question