Autres Modifier automatiquement une suite de cellule selon la date du jour

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #2

Bonsoir le fil

Pour info
Seuls les fichiers *.xls, *.xlsm et *.xlsb peuvent contenir des macros.
Donc ton fichier exemple test.xlsx ne peut pas en contenir.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 26 Octobre 2019

• #3

Re

Voir ci cela peut t'inspirer

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Dim DerL&
DerL = Cells(Rows.Count, 2).End(3).Row
For i = 2 To DerL
If Cells(i, 2) > Date Then
Cells(i, 10).Resize(, 2) = Cells(i, 10).Resize(, 2).Value
End If
Next
End Sub

 

Vote positif 0 Vote négatif

T

Tmdu79

XLDnaute Nouveau

• 27 Octobre 2019

• #4

Bonjour Staple1600,

Merci pour ton message, mais je débute vraiment sur VBA.

Peux tu m'expliquer si tu as un moment la ligne de code que tu as saisi, car en faisant un coller sur mon fichier Excel, je ne voit pas la différence.

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #5

Re

Si tu exécutes la macro sur le fichier exemple que tu as mis ici
Puis que tu vas voir ce qu'il y a dans les colonnes J et K, tu y trouveras quoi?

 

Vote positif 0 Vote négatif

T

Tmdu79

XLDnaute Nouveau

• 27 Octobre 2019

• #6

Et bien par exemple si nous somme le 3 janvier 2020, et bien sur la ligne référant au 2 janvier, les formules sur les cellules J7 et K7 ne serait plus une formule mais uniquement une valeur.

 

Vote positif 0 Vote négatif

Claudy

XLDnaute Accro

• 27 Octobre 2019

• #7

Staple1600 à dit:

Bonsoir le fil

Pour info
Seuls les fichiers *.xls, *.xlsm et *.xlsb peuvent contenir des macros.
Donc ton fichier exemple test.xlsx ne peut pas en contenir.

Cliquez pour agrandir...

Bonjour,
c'est quoi la différence entre un *.xls, *.xlsm et *.xlsb ?
Merci,
Claudy

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #8

Re

Tmdu79
Tu n'as répondu à ma question (celle du message#5)

Claudy
Voir la maison mère

 

Vote positif 0 Vote négatif

Victor21

XLDnaute Barbatruc

• 27 Octobre 2019

• #9

Bonjour, Claudy.

Vous qui en êtes à votre 731° message, savez-vous ce qu'est et à quoi sert un moteur de recherche ?

PS : Bonjour le fil, bien entendu

Edit : @Staple1600 "Du coup", j'ai supprimé les digressions qui suivaient ce post

 

Dernière édition: 27 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #10

Bonjour Victor21

Victor21 (avant qu'il édite) à dit:

...poteur de recherche

Cliquez pour agrandir...

C'est quoi un poteur de recherche ?
Un ami qui cherche ?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #11

Re

Du coup, ma blague tombe à l'eau (snif)

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #12

Re

Du coup Assailli d'un doute, j'ai relu tout le fil et je vois que j'ai manqué de précision
Le code que j'ai posté doit être mis dans ThisWorkBook
(et non pas dans un module standard)
Et j'ai ajouté quelque commentaires dans le code

VB:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
'C'est une procédure événementielle 
'(à ne pas placer dans un Module standard comme Module1)
Dim DerL&
DerL = Cells(Rows.Count, 2).End(3).Row
For i = 2 To DerL
If Cells(i, 2) < Date Then ' si inférieur à date du jour
Cells(i, 10).Resize(, 2) = Cells(i, 10).Resize(, 2).Value ' alors valeurs seules en colonne J et K
End If
Next
End Sub

 

Dernière édition: 27 Octobre 2019

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #13

Re

Au moins, moi j'assume, Monsieur!
Je n'efface pas mon erreur ou ma coquille en mode édition.


PS: J'ai un doute, il n'y a pas une carabistouille avec "Au moins", au moins?

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 27 Octobre 2019

• #14

Re

Si j'osais, je pencherais plus vers faribole.
En attendant, nos digressions ont fait fuir le demandeur.

 

Vote positif 0 Vote négatif

T

Tmdu79

XLDnaute Nouveau

• 27 Octobre 2019

• #15

hum fuir non, impressionné oui. merci beaucoup pour ton aide Staple1600, le code fonctionne, cependant comment le faire fonctionner sur cet onglet uniquement lorsque le fichier excel comporte plusieurs onglets ?

- Deuxième question, comment faire si je souhaite intégrer une autre colonne (L) dans la ligne de code ?
Merci d'avance

 

Dernière édition: 29 Octobre 2019

Vote positif 0 Vote négatif