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).

[parmi]

Pas nécessairement.
Si tu mets le code suivant dans Feuil1, Rows est reconnu comme faisant partie de Feuil2 implicitement

Code :

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

nblignes = Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row

[Menhir]

Effectivement, dans la mesure où toutes les feuilles Excel ont le même nombre maximum de lignes, Rows.Count ne dépend pas de la feuille sur laquelle on pointe et on peut se contenter de la feuille active, quelle qu'elle soit.

[SfJ5Rpw8]

Bonsoir,

Pas nécessairement.
Si tu mets le code suivant dans Feuil1, Rows est reconnu comme faisant partie de Feuil2 implicitement

Code :

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

nblignes = Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row

ben non .. rows sans rien devant concerne la feuille active ... et donc pas forcément la feuil2 ... ton code marche parce-que tu as la chance que la feuille active possède le même nombre de ligne que ta feuille 2 ..

c'est facilement vérifiable en plaçant ton code dans un classeur 2003... et en modifiant légèrement ton code pour être sur d'utiliser la feuille 2 du classeur contenant ton code :

Code :

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

nblignes = ThisWorkbook.Sheets("Feuil2").Cells(Rows.Count, "A").End(xlUp).Row

ce code bugge si la feuille active est dans un classeur xlsx (ou xlsm) ...



Une autre façon de voir que ton code à un problème est de l’exécuter sans avoir de feuille de calcul active ... rajoute par exemple une feuille graphique active la dans ton calcul est exécute ton code ...


tout cela montre que mieux vaut TOUJOURS précisé devant les objets Rows, range, Cells la feuille concerné et éviter de laisser excel se débrouiller avec la feuille active car il est facile de trouver un cas ou le code foire ...

[parmi]

Bien vu Messieurs

[fabdu25]

Bonjour à tous!

Merci beaucoup pour toutes ces explications. C'est vraiment sympa de pouvoir compter sur vous!
Grâce à vous, mon programme avance bien.

Cordialement,


Fabien