Recherche date automatique avec deplacment
geo34
-
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
eriiic Messages postés 24581 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour,
J'ai un calendrier annuel sur excel, avec chaque jour lier a 5 item :
Je souhaiterais faire un bouton macro qui permet d'afficher le groupe de colonne lié a la date du jours juste après les colonnes figées (les 3 premières colonnes seront figées).
En gros les colonnes D,E,F,G,H correspondent a lundi 1 janvier 2018, elles apparaissent en 4,5,6,7,8 position dans le tableau, je suis le 25 mars j'appui sur le bouton, les 5 colonnes correspondant au 25 mars apparaissent en position 4,5,6,7,8 visuellement (la barre de défilement se déplace au bon endroit).
C'est possible ? Si oui une petite piste ^^
J'ai tenté ca :
Mais j'ai un soucis car mes dates sont fusionner avec 5 colonnes.
https://www.cjoint.com/c/GLtn1dTZzP5
Merci à vous !
J'ai un calendrier annuel sur excel, avec chaque jour lier a 5 item :
Je souhaiterais faire un bouton macro qui permet d'afficher le groupe de colonne lié a la date du jours juste après les colonnes figées (les 3 premières colonnes seront figées).
En gros les colonnes D,E,F,G,H correspondent a lundi 1 janvier 2018, elles apparaissent en 4,5,6,7,8 position dans le tableau, je suis le 25 mars j'appui sur le bouton, les 5 colonnes correspondant au 25 mars apparaissent en position 4,5,6,7,8 visuellement (la barre de défilement se déplace au bon endroit).
C'est possible ? Si oui une petite piste ^^
J'ai tenté ca :
Sub RechercheDateFind2()
d = InputBox("Date? jj/mm/aa")
If d <> "" Then
On Error Resume Next
[A1:BRH1].Find(What:=Format(CDate(d), "dddd d mmmm yyyy"), LookIn:=xlValues).Select
If Err <> 0 Then MsgBox "Inconnu"
End If
End Sub
Mais j'ai un soucis car mes dates sont fusionner avec 5 colonnes.
https://www.cjoint.com/c/GLtn1dTZzP5
Merci à vous !
2 réponses
-
Bonjour
On ne le répétera jamais assez, pas de cellules fusionnées si on veut utiliser des formules complexes ou des macros ! Elles sont inutiles et peuvent être avantageusement remplacées par des cellules non fusionnées avec centrage du texte sur plusieurs colonnes (Format de cellule - Alignement)
C'est ce que j'ai fait pour exemple pour les cellules du 1er janvier (aucune différence visuelle avec le 2 janvier fusionné)
En stockant en A1 la dernière date cherchée et donc celle de la colonne affichée à côté de la colonne C la macro est simple, il suffit de calculer l'écart entre la nouvelle date voulue et celle stockée et de faire le scroll en fonction (sans même s'occuper des dates en ligne 1 ou 2)
https://mon-partage.fr/f/iplkpAK3/
Cdlmnt
Via
-
Bonjour,
plus simplement tu peux calculer la colonne :col = (ta_date - [D2]) * 5 + 4
eric
