Se positionner a aujourd'hui sur excel
Résolu/Fermé
zer4
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
-
11 janv. 2017 à 15:19
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 6 mai 2017 à 15:36
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 6 mai 2017 à 15:36
A voir également:
- Se positionner a aujourd'hui sur excel
- Liste déroulante excel - Guide
- Probleme de reception tnt aujourd'hui 2023 - Guide
- Aller à la ligne excel - Guide
- Formule excel - Guide
- Problème mail orange aujourd'hui 2023 - Guide
12 réponses
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
11 janv. 2017 à 15:38
11 janv. 2017 à 15:38
Pour l'exécuter avec un raccourci-clavier
1. tu te mets dans la feuille concernée
2. Alt-F11 pour accéder à l'éditeur vba
3. Coller tout le code
4. retour à la feuille
5. Outils/Macro/macros > tu sélectionnes OK puis Option et tu définis ton raccourci-clavier
Cdlmnt
1. tu te mets dans la feuille concernée
2. Alt-F11 pour accéder à l'éditeur vba
3. Coller tout le code
4. retour à la feuille
5. Outils/Macro/macros > tu sélectionnes OK puis Option et tu définis ton raccourci-clavier
Cdlmnt
AnnieAA2
Messages postés
3
Date d'inscription
mercredi 11 janvier 2017
Statut
Membre
Dernière intervention
27 janvier 2018
11 janv. 2017 à 15:23
11 janv. 2017 à 15:23
Vous pourriez simplement créer une macrocommande. Est-ce que votre date d'aujourd'hui apparaît seulement en haut de votre classeur? ou si elle apparaît sur chacune de vos lignes de tableau?
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
11 janv. 2017 à 15:25
11 janv. 2017 à 15:25
Bonjour
Une petite procedure à affecter à un bouton, un raccourci-clavier, etc ...
Cdlmnt
Une petite procedure à affecter à un bouton, un raccourci-clavier, etc ...
Const codate = "A"
Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Columns(codate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub
Cdlmnt
zer4
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
11 janv. 2017 à 15:33
11 janv. 2017 à 15:33
je vous remercie mais comment l'applique t-on ?
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
11 janv. 2017 à 15:51
11 janv. 2017 à 15:51
tout format date est bon pourvu que tu aies entré une date (vérifies en formatant une cellule au format nombre, tu dois voir un nombre entier 42705 pour le 1° dec 2016)
par exemple
jj/mm/aaaa
jj-mmm-aaaa
jjjj-mmmm-aaaa
etc ...
Cdlmnt
par exemple
jj/mm/aaaa
jj-mmm-aaaa
jjjj-mmmm-aaaa
etc ...
Cdlmnt
zer4
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
11 janv. 2017 à 16:08
11 janv. 2017 à 16:08
d'accord merci cependant le code que vous m'avez donnée ne fonctionne pas
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
11 janv. 2017 à 16:41
11 janv. 2017 à 16:41
Un exemple
http://www.cjoint.com/c/GAlpPartCRT
Cdlmnt
http://www.cjoint.com/c/GAlpPartCRT
Cdlmnt
zer4
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
12 janv. 2017 à 08:02
12 janv. 2017 à 08:02
Super merci bien ça fonctionne.
juste une petite et dernière question comment faire pour que ce soit applicable sur une ligne par exemple la 2 au lieu d'une colonne (actuellement A) ?
juste une petite et dernière question comment faire pour que ce soit applicable sur une ligne par exemple la 2 au lieu d'une colonne (actuellement A) ?
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié par ccm81 le 12/01/2017 à 14:21
Modifié par ccm81 le 12/01/2017 à 14:21
Je ne vois pas bien ce que tu veux dire par "applicable sur une ligne"
Tes dates sont en ligne 2 ?
Si c'est ça
Cdlmnt
Tes dates sont en ligne 2 ?
Si c'est ça
Const lidate = 2
Sub OK()
Dim obj As Object, d As Date
d = Date
Set obj = Rows(lidate).Find(d, , , xlWhole)
If Not obj Is Nothing Then obj.Select
End Sub
Cdlmnt
zer4
Messages postés
53
Date d'inscription
lundi 31 octobre 2011
Statut
Membre
Dernière intervention
12 décembre 2017
12 janv. 2017 à 14:22
12 janv. 2017 à 14:22
C'est bon c'est résolu.
j'ai juste changé columns par Row pour appliquer votre code a une rangée(ligne)
au lieu d'une colonne.
En tout cas je vous remercie Beaucoup !
j'ai juste changé columns par Row pour appliquer votre code a une rangée(ligne)
au lieu d'une colonne.
En tout cas je vous remercie Beaucoup !
Bonjour, je m'insère dans la discussion car la macro m'interresse, mais si a la place des jours dans les cellules ce sont les semaines de l'année, comment pouvons nous faire la même chose?
D'avance merci,
N.
D'avance merci,
N.
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
5 mai 2017 à 21:27
5 mai 2017 à 21:27
Bonjour
Peux tu envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller"
Cdlmnt
Peux tu envoyer un bout de ton fichier anonymisé, mais avec la même structure que l'original,sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse
tu fais "Coller"
Cdlmnt
le voici:
http://www.cjoint.com/c/GEggoKpXePs
et comment le rendre automatique (dès l'ouverture de la feuille)
D'avance merci.
N
http://www.cjoint.com/c/GEggoKpXePs
et comment le rendre automatique (dès l'ouverture de la feuille)
D'avance merci.
N
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
6 mai 2017 à 10:17
6 mai 2017 à 10:17
Un essai (la barre se met à jour à l'ouverture du fichier)
http://www.cjoint.com/c/GEgiq3ILFOM
Cdlmnt
http://www.cjoint.com/c/GEgiq3ILFOM
Cdlmnt
bonjour,
cela semble fonctionner, mais peu tu m'expliquer comment marchent les macros de ce fichier?
Je cherche a comprendre comment elles marche pour pouvoir les refaire ailleurs.
D'avance merci,
N.
cela semble fonctionner, mais peu tu m'expliquer comment marchent les macros de ce fichier?
Je cherche a comprendre comment elles marche pour pouvoir les refaire ailleurs.
D'avance merci,
N.
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
6 mai 2017 à 15:36
6 mai 2017 à 15:36
Le même avec quelques explications
http://www.cjoint.com/c/GEgnIoesZSM
Ne pas oublier le code dans le module Workbook (appel à la procedure OK du Module 1)
Cdlmnt
http://www.cjoint.com/c/GEgnIoesZSM
Ne pas oublier le code dans le module Workbook (appel à la procedure OK du Module 1)
Private Sub Workbook_Open()
Call OK
End Sub
Cdlmnt
11 janv. 2017 à 15:41
pour ma série de date que j'ai sur toute la longueur de ma feuille
comment doit être leurs format et comment doivent-elles se présenter ?