Effacer un nom
JCB40
Messages postés
3070
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3070 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3070 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
--
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
A voir également:
- Effacer un nom
- Comment effacer un iphone - Guide
- Comment effacer une page word - Guide
- Trigramme nom - Forum VB / VBA
- Nom de l'adresse - Forum Consommation & Internet
- Nom sonnerie iphone - Forum iPhone
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
