Discussion :

[fabdu25]

Bonjour,

Je suis novice en écriture de macros avec VB et j’aimerai avoir de l’aide par rapport au problème suivant. J’ai des données qui « tombent » toutes les semaines et j’aimerai les traiter.
Ici, mon but est de calculer une valeur issue d’une colonne de nombre. Cette valeur, j’aimerai la mettre dans une autre feuille.
J’ai essayé d’écrire une macro mais elle ne marche pas encore.

Voici l'ébauche de ma macro:

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
20
Sub Calculs()
Dim F_analyse As Worksheet
Dim F_resultats As Worksheet
Dim LstRw As Long
Dim provisoire As Double
 
 
Set F_analyse = ActiveWorkbook.Sheets(1) 'lieu des données= "Analyse "
Set F_resultats = ActiveWorkbook.Sheets(2)
 
 
F_analyse.Select 'passage dans la feuille des données
LstRw = .Cells(.Rows.Count, 1).End(xlUp).Row => erreur de compilation : référence incorrecte ou non qualifié (mais je ne vois pas pourquoi car pour moi cette variable qui me sert à aller jusqu'à la dernière valeur de la colonne)
provisoire = "=SOMME(&CT$4:$CT$ & LstRw)/(60*1000)" 'somme de la case A4 à la dernière valeure de cette colonne'
 
F_resultats.Select 'passage dans la feuille des résultats
provisoire = Range("A2") 'provisoire contient la valeur de la case A2'
 
 
End Sub

Ici, mon but est d’acquérir la bonne syntaxe pour ensuite la transposer pour beaucoup d’autres calculs.
Merci d’avance pour votre aide.
Cordialement,

Fabien

[parmi]

LstRw = .Cells(.Rows.Count, 1).End(xlUp).Row

Tu dois spécifier le nom de la feuille devant .Cells

Comme tu as déjà sélectionné la feuille

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LstRw = ActiveSheet.Cells(.Rows.Count, 1).End(xlUp).Row

Autrement

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LstRw = Sheets(2).Cells(.Rows.Count, 1).End(xlUp).Row 'ou autre

[fabdu25]

Cela ne marche pas quand même.
La fenêtre d'erreur me surligne le .Rows (qui est dans la parenthèse)
LstRw = ActiveSheet.Cells(.Rows.Count, 1).End(xlUp).Row

Sais tu pourquoi?

Merci d'avance.

[Menhir]

Même motif que pour le Cells : tu ne spécifies pas l'objet parent.

Quand on commence un nom d'objet (ou une chaîne d'objet) par un ".", il faut qu'il soit encadrer d'un With pour que l'objet parent soit définit.

Sinon, si l'objet parent est implicite, il ne faut pas mettre de "." au début.

Par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
With ActiveSheet
   LstRw = .Cells(.Rows.Count, 1).End(xlUp).Row
End With

permet d'appliquer le ActiveSheet à tous les objet commençant par un "." entre With et End With.

[parmi]

Je suis allé un peu trop vite...
J'aurais dû enlever aussi le point de .Rows

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LstRw = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

Mais Menhir a bien expliqué l'histoire des points

[Menhir]

J'aurais dû enlever aussi le point de .Rows

Je pense qu'il aurait plutôt fallu ajouter une Sheet (ActiveSheet ou une des variables renseignée juste avant).
Parce que s'il n'y a pas besoin de référence à une feuille pour le Rows, il n'y en a pas non plus besoin pour le Cells (et inversement).