Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 01/02/2012, 09h17   #1
Membre habitué
 
Avatar de fowlie
 
Étudiant
Inscription : mai 2011
Messages : 335
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : mai 2011
Messages : 335
Points : 146
Points : 146
Par défaut Macro ou formule permettant de choisir la première colonne affichée aprés les volets figés

Bonjour,

j'aimerais savoir s'il existe une formule, ou s'il faut que je passe par une macro pour faire ce que je souhaite.

J'ai un fichier de ce type :

               Janvier        Février      Mars ...
             1 2 ...     31 1 2 .... 29   1 2 .... 31
Nom1
Nom2                MES DONNEES
Nom3
J'ai figé la premiére colonnes (comportant les noms) et les deux premiéres lignes comportant les dates.

J'aimerais, que la deuxième colonne affichée ne corresponde pas au premier janvier mais à la date d'aujourd'hui, en l'occurrence le 1er février. Et celà constamment, je ne veux cependant pas supprimer les colonnes précédentes, je souhaite pouvoir les afficher quand je veux, je veux juste changer une propriété de ma feuille .... si c'est possible

Je récupére ben les valeurs des Jour avec la fonction DATE(), mais aprés je ne vois pas comment faire....

Je sais que c'est possible ... mais c'est tout ce que je sais malheureusement.

Merci d'avance pour tout conseil et aide
__________________
---Fowlie---
fowlie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/02/2012, 09h54   #2
Membre chevronné
 
Inscription : octobre 2006
Messages : 541
Détails du profil
Informations personnelles :
Localisation : France, Ardèche (Rhône Alpes)

Informations forums :
Inscription : octobre 2006
Messages : 541
Points : 760
Points : 760
Bonjour

Code :
1
2
3
4
5
Sub agauche()
 lig = ActiveCell.Row
 col = Rows(2).Find(Date, Range("A2")).Column
  Application.Goto Cells(lig, col), True
  End Sub
Attention les dates dans ton classeur doivent au format jj/mm/aaaa
__________________
Michel_M
Michel_M est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 01/02/2012, 10h01   #3
Expert Confirmé Sénior
 
Homme Daniel
aucune
Inscription : septembre 2011
Messages : 2 004
Détails du profil
Informations personnelles :
Nom : Homme Daniel
Localisation : France, Seine et Marne (Île de France)

Informations professionnelles :
Activité : aucune

Informations forums :
Inscription : septembre 2011
Messages : 2 004
Points : 4 037
Points : 4 037
Bonjour,

Avec cette ligne de code, en admettant que les dates soient en ligne 1 :
Code :
ActiveWindow.ScrollColumn = Application.Match(Date * 1, Rows(1), 0)
Sinon, change le numéro de ligne de "Rows(1)"
__________________
Cordialement.

Daniel

Citation:
La plus perdue de toutes les journées est celle où l'on n'a pas ri.
Chamfort
Daniel.C est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 01/02/2012, 10h06   #4
Membre habitué
 
Avatar de fowlie
 
Étudiant
Inscription : mai 2011
Messages : 335
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Étudiant
Secteur : Industrie

Informations forums :
Inscription : mai 2011
Messages : 335
Points : 146
Points : 146
merci beaucoup!
c'était pas compliqué mais il fallait savoir
__________________
---Fowlie---
fowlie est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 11h39.


 
 
 
 
Partenaires

Hébergement Web