Manipuler plusieurs classeurs excel

Marsh Posté le 26-08-2005 à 12:44:52

Bonjour à tous,

je pense que c'est ici que je dois mettre ce post...

Donc voilà ce que je souhaite faire :

- un classeur avec plusieurs champs à remplir, ce classeur contient une date
- un classeur avec des onglets (un par mois) dont le nom est du genre classeur_2005

En fonction de la date, je dois aller chercher dans le bon classeur (en fonction de l'année) et dans le bon onglet (en fonction du mois) pour remplir le premier classeur (qui contient la date sur laquelle je fais mes tests).

La question est simple : suis je obligé de passer par du VB ? Si c'est le cas, est ce que la fonction peut être appelée de manière automatique quand la date du premier classeur change?

Merci pour votre aide, je connais pas trop VB, j'en ai fait une fois mais c'était surtout des modifications sur quelque chose qui était déjà fait...

Reply

Marsh Posté le 26-08-2005 à 12:44:52

Reply

Marsh Posté le 26-08-2005 à 14:23:52

Citation :

suis je obligé de passer par du VB ?

Ca doit etre faisable sans.. mais ca me semble plus simple avec

Citation :

Si c'est le cas, est ce que la fonction peut être appelée de manière automatique quand la date du premier classeur change?

Oui, en placant l'appel a ta fonction dans l'evenement

Code :

Private Sub Worksheet_Change(ByVal Target As Range)

de ta feuille (dans l'editeur VB, bouton droit sur ta feuil1->Afficher le code)

Citation :

En fonction de la date, je dois aller chercher dans le bon classeur (en fonction de l'année) et dans le bon onglet (en fonction du mois) pour remplir le premier classeur (qui contient la date sur laquelle je fais mes tests).

Pour info, la fonction Year te renverra l'annee de ta date et la fonction Month pour recuperer le mois.

Un ptit exemple:

Code :

' Affiche le mois et l'annee contenu dans les cellules du
' range r (ATTENTION chaque cellule du range doit contenir
' une date!
Private Sub fAffMonthAndYear(r As Range)
Dim c As Range
For Each c In r
MsgBox "mois: " & Month(c.Value) & vbNewLine & "annee: " & Year(c.Value)
Next c
End Sub
'Suppose que les cellules "A1:A3" contiennent des dates
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rModified As Range
Set rModified = Application.Intersect(Target, Range("A1:A3" ))
If Not rModified Is Nothing Then Call fAffMonthAndYear(rModified)
End Sub

---------------
Guendalf

Reply

Marsh Posté le 26-08-2005 à 14:54:34

Je te remercie beaucoup, je vais tester ca ce soir ou ce week end! C'est pour mon patron mais ca fait pas partie de mon travail!! J'ai comme l'impression de ma faire arnaqué là!!! :sarcastic:

Reply

Manipuler plusieurs classeurs excel

Sujets relatifs:

Leave a Replay