Bonsoir a tous,

Je debute sous VBA, je viens du C/Java
Alors voila ce que j'essaie de faire :

J'aimerai qu'a chaque ouverture du fichier excel, ma procedure mette a jour un calcul a partir de la date systeme.
J'ai bien galerer tout seul, et je ne suis pas loin d'y arriver, mais je fais appel a votre savoir car j'ai deja perdu pas mal de temps pour ces quelques lignes ...

En gros dans la boucle for, on recherche dabord la colonne qui correspond a la date de l'ouverture de fichier (il y a sur ma feuille excel, entre autre, sur une ligne tout les jours d'une année)
Une fois trouvé le jour, il faut recuperer "l'adresse" de la celule, enfin c'est plus l'identifiant de la colonne que je dois recuperer (J, H, AB, CX, CC ...).
Je sors de la boucle une fois la celulle trouvé, histoire que je garde les infos de cette cellule dans la variable cell. En faisant sans l'exit for, ca me generai des erreurs du coup j'ai opté pour cette solution.
Bref j'ai tout dans cell, le probleme est que maintenant je dois faire la somme d'un interval de cellule, en gros de K18 au numéro de colonne qui doit a chaque ouverture correspondre au jour et au mois actuel.
Donc c'est ce que j'essaie de faire, mettre le resultat de la somme dans J18.
Cependant il y a un probleme de syntaxe je pense, j'ai fai plusieurs tentatives.

Avec cell.address, ca affiche l'adresse du coup la formule copié dans la cellule (SOMME...) marche pas.
Et avec les R[x]C[x], ca marche pas non plus

Voila pourriez vous me donner un coup de main ?
Merci d'avance

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Private Sub Workbook_Open()
 
   Dim nb As Integer
   Dim cell, cell2 As Range
   Dim col, lig As Integer
 
   For Each cell In Feuil5.Range("K2:GX2")
     If (cell.Value = Date) Then Exit For
   Next cell
 
   'col = cell.Column
   'lig = cell.Row
 
   Feuil5.Range("J18").Select
   ActiveCell.Formula = "=SUM(K18:" & cell.Address & ")"
   'ActiveCell.Formula = "=SUM(R[17]C[11]:R[17]C[" & col + 1 & "])"
 
End Sub
j'oubliais, j'utilise excel 2002