Effacer un nom
JCB40
Messages postés
3461
Statut
Membre
-
JCB40 Messages postés 3461 Statut Membre -
JCB40 Messages postés 3461 Statut Membre -
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 iphone - Guide
- Effacer les données de navigation sur android - Guide
- Comment effacer un compte gmail - Guide
- Nom de l'adresse - Forum Jeux vidéo
- 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
