P Paulle XLDnaute Occasionnel 28 Mai 2020 #1 Bonjour, En glanant des lignes de vba, j’ai réussi la macro « Dernière_colonne ». Le code n’est certainement pas le plus adapté. Je voudrai une macro semblable à la macro « Dernière_colonne », qui sélectionnerai la cellule à la date d’aujourd’hui. Merci. Pièces jointes Classeur01.xlsm 17.9 KB · Affichages: 9
Bonjour, En glanant des lignes de vba, j’ai réussi la macro « Dernière_colonne ». Le code n’est certainement pas le plus adapté. Je voudrai une macro semblable à la macro « Dernière_colonne », qui sélectionnerai la cellule à la date d’aujourd’hui. Merci.
pierrejean XLDnaute Barbatruc 28 Mai 2020 #2 Bonjour Paulle Voila Pièces jointes Classeur01.xlsm 18.6 KB · Affichages: 10 Vote positif 0 Vote négatif
MP59 XLDnaute Occasionnel 28 Mai 2020 #3 Bonjour Paulle et Pierrejean, une autre façon d'arriver au résultat. Pièces jointes Classeur012.xlsm 19.4 KB · Affichages: 15 Vote positif 0 Vote négatif
Jacky67 XLDnaute Barbatruc 28 Mai 2020 #4 Bonjour à tous VB: Sub Dreniere_colonne() Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column).Select End Sub Sub LeJour() Application.Goto ([2:2].Find(Date)), True End Sub Pièces jointes Classeur01.xlsm 16 KB · Affichages: 4 Dernière édition: 29 Mai 2020 Vote positif 0 Vote négatif
Bonjour à tous VB: Sub Dreniere_colonne() Cells(2, Cells(2, Columns.Count).End(xlToLeft).Column).Select End Sub Sub LeJour() Application.Goto ([2:2].Find(Date)), True End Sub
P Paulle XLDnaute Occasionnel 28 Mai 2020 #5 Merci pierrejean, MP59 et Jacky67. MP59, la macro "Ce jour" présente une erreur "1004" Vote positif 0 Vote négatif
MP59 XLDnaute Occasionnel 28 Mai 2020 #6 ?? Pas dans mon fichier. Peut-être à tu fais un copier coller et que le bouton n'est pas relié à la macro. Vote positif 0 Vote négatif
?? Pas dans mon fichier. Peut-être à tu fais un copier coller et que le bouton n'est pas relié à la macro.
P Paulle XLDnaute Occasionnel 28 Mai 2020 #7 Non je n'ai pas fait de copier coller. J'ai enregistré ton fichier sous un autre nom et joins. Pièces jointes Copie de Classeur012-2.xlsm 19.2 KB · Affichages: 4 Capture01.JPG 72.4 KB · Affichages: 9 Vote positif 0 Vote négatif
Jacky67 XLDnaute Barbatruc 28 Mai 2020 #8 Paulle à dit: Non je n'ai pas fait de copier coller. J'ai enregistré ton fichier sous un autre nom et joins. Cliquez pour agrandir... RE.. Essaye VB: Sub Cejour() [2:2].Find(Date).Select End Sub Vote positif 0 Vote négatif
Paulle à dit: Non je n'ai pas fait de copier coller. J'ai enregistré ton fichier sous un autre nom et joins. Cliquez pour agrandir... RE.. Essaye VB: Sub Cejour() [2:2].Find(Date).Select End Sub