Problème de boucle For each . Next

Version imprimable

05/09/2017, 16h56
ALACO

1 pièce(s) jointe(s)

Problème de boucle For each . Next

Bonjour à tous,

ça fait un moment que je cherche une solution à mon problème, et j'en suis arrivée au stade ou je ne sais plus quoi faire...
Pourtant c'est un truc tout simple je pense...
Alors je vous explique:
D'abord mon fichier :
- un classeur avec plusieurs onglets, tous les mois de l'année, et dans toutes les feuilles j'ai "quasiment" les mêmes "présentations" de données, sauf l'ordre et le nombre des colonnes qui pourraient être variable donc j'ai voulu l'intégrer dans le programme en disant en gros "cherche la cellule qui contient...", et la dernière ligne est variable (par soucis de confidentialité j'ai supprimé toutes les colonnes inutiles à la compréhension).

Ce que je souhaite faire :
- Multiplier A2 et B2 en C2
- Faire la somme de la colonne C en C i (i étant la dernière ligne de ma colonne)
- Passer à l'onglet suivant et c'est là où ça bloque..., il ne passe pas à l'onglet suivant mais à la colonne suivante.

Ce que j'ai fait:
- J'ai fait une boucle For each pour parcourir l'ensemble des onglets
- J'ai fait une boucle Do whille Aj non vide (j'avais fait une boucle for j=2 to i-1 au début et j'avais le même problème

Bref je ne sais plus, je suis perdue, si quelqu'un voulait bien y jeter un œil, ça serait super!!

Merci beaucoup
05/09/2017, 17h32
parmi

Bonjour,

Désolé, mais je n'ouvre pas les fichiers joints avec macros...
Peux-tu mettre le code que tu as concernant ces boucles ?
05/09/2017, 17h35
eriiic

Bonjour,

pour commencer ça plante à l'ouverture.

Des variables publique doivent être déclarée dans un module standard.
Et ne doivent être publiques ou globales que les variables le nécessitant. Je ne pense pas i, j, DernCol etc en fassent partie.
D'autant plus que tu n'as qu'une seule macro. Donc toutes les variable doivent être déclarées dans cette proc.

C'est quoi l'intérêt de recalculer tout ça à chaque ouverture ???
Si rien à changé c'est inutile, par contre si une modif le nécessite tu fermes et rouvres ton fichier pour que la maj se fasse ?
il y a un manque de logique certain je trouve.

Du coup j'ai à peine regardé ton code.
Les .select sont inutiles dans 99% des cas. Alors que dire de 2 .select successifs

eric

Code

Bonjour,

Voici le code saisi:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Option Explicit
Dim DernCol As Integer
Dim Onglet As Worksheet
Dim i As Single
Dim j As Single
Dim Cel1 As Range, Cel2 As Range
 
Private Sub Workbook_Open()
 
For Each Onglet In ActiveWorkbook.Sheets
 
    Cells(1, 1).Select
    ActiveSheet.UsedRange.Cells(ActiveSheet.UsedRange.Rows.Count, 1).Select
    i = ActiveCell.Row
 
    DernCol = Range("A1").End(xlToRight).Column
    Cells(1, DernCol + 1) = "Quantité"
 
j = 2
Do While Cells(j, DernCol) <> ""
    Set Cel1 = Cells.Find(What:="QteFactureeFact")
    Set Cel2 = Cells.Find(What:="PartPrixOuvrage")
 
    Cells(j, DernCol + 1).FormulaLocal = "=" & Cells(j, Cel1.Column) & "*" & Cells(j, Cel2.Column)
    j = j + 1
 
Loop
 
    Cells(i, DernCol + 1) = Application.Sum(Range(Cells(2, DernCol + 1), Cells(i - 1, DernCol + 1)))
 
Next Onglet
 
End Sub

05/09/2017, 17h41
Invité

Citation:

Envoyé par ALACO

Bonjour,

A tester.

Pièce jointe 309500
05/09/2017, 18h42
Invité

Citation:

Envoyé par ALACO

Cette version supprime le recalcul automatique des formules pendant la mise à jour des onglets

Pièce jointe 309517
05/09/2017, 19h43
parmi
Comme tu boucles les feuilles, tu dois spécifier leur nom.
Par exemple, ceci (et je suis d'accord avec eriiic sur les Select...)
Mais c'est juste pour une compréhension...
Code:

1 2 3 4 5 For Each Onglet In ActiveWorkbook.Sheets Onglet.Cells(1, 1).Select Onglet.UsedRange.Cells(Onglet.UsedRange.Rows.Count, 1).Select .........
06/09/2017, 08h23
ALACO

Super! Merci beaucoup pour votre réponse!
Je n'ai pas encore essayé mais dès que je le fais, je vous tiens au courant.
J'aurai du préciser au début que je suis complètement novice, la première fois que j'ai utilisé VBA c'était en juillet, donc je n'ai pas (encore, je l'espère) les bons réflexes, ni même toute la logique que VBA exige. Mais à chaque nouveau programme, je m'améliore un peu!

1 pièce(s) jointe(s)

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Sub test()
GestionClasseur ThisWorkbook
End Sub
Sub GestionClasseur(ByRef wb As Workbook)
Dim Onglet As Worksheet
For Each Onglet In wb.Sheets
    GestionOnglet Onglet
Next
End Sub
 
 
Sub GestionOnglet(ByRef Onglet As Worksheet)
Dim Colonnes, Rg As Range
Set Rg = Onglet.UsedRange
Set Colonnes = GestionColonnes(Rg)
For i = 2 To Rg.Rows.Count
    Debug.Print Rg(i, Colonnes("A")), Rg(i, Colonnes("C"))  'Debug.Print Rg(i, Colonnes("QteFactureeFact")), Rg(i, Colonnes("PartPrixOuvra"))  dans ton cas!
Next
End Sub
Function GestionColonnes(plage As Range)
Dim c As Integer, Col
Set Col = CreateObject("Scripting.Dictionary")
With plage(1, 1)
For c = 0 To plage.Columns.Count - 1
Debug.Print .Offset(0, c).Value
    Col(.Offset(0, c).Value) = c + 1
Next
End With
Set GestionColonnes = Col
End Function