Débutant // Problème code VBA

**Qwazerty** · 08/03/2010, 20h58

Re
J'avais mis le total en fin de tableau, voici pour le mettre en début de tableau.
Pour ce qui est de L et M, c'est juste en variante, tu choisiras ce que tu veux, dans la colonne L, seul la valeur est mise, en colonne M c'est la formule qui est inscrite (je vois pas trop l'intérêt ceci dis, ça aurait un sens de le faire uniquement si les valeur venaient a changer après la mise en place des formules.

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
Sub Sakarov()
Dim TheCel As Range
Dim FirstCel As Range
Dim TheSh As Worksheet
Dim LFirstCel As Long, LLastCel As Long
 
'Initialisation de variables
Set TheSh = Sheets("Feuil1")
 
With TheSh 'permet de ne pas avoir a répeter TheSh a chaque fois, si vba rencontre un . il rajouetra TheSh devant
    'On marque la cellule A2 comme etant la 1ere de la serie
    Set FirstCel = .Range("A2")
 
    Do
        'On boucle de la cellule FirstCel+1ligne jusqu'a la derniere cellule non vide du tableau (+1 ligne qui servira a finir la boucle Do car elle sera vide)
        For Each TheCel In .Range(FirstCel.Offset(1, 0), .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0))
            'On regarde si le contenu des 2 cellules est différent
            If FirstCel.Value <> TheCel.Value Then
                'TheCel represente une cellule contenant une valeur differente
                'On memorise les lignes de la 1ere et derniere ligne
                LFirstCel = FirstCel.Row
                'On utilise donc la ligne superieur (offset(-1,...)) qui correspond a al derniere ligne contenant la mm valeur que FirstCel
                LLastCel = TheCel.Offset(-1, 0).Row
                'Et on met la somme dans la colonne L (offset(0,11)) a la meme ligne que la 1ere valeur
                FirstCel.Offset(0, 11).Value = WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "J"), .Cells(LLastCel, "J")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E"))) / WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "K"), .Cells(LLastCel, "K")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")))
                'Placer une formule au lieu de lla valeur (en colone M ici (offset(..,12)))
                FirstCel.Offset(0, 12).Formula = "=SumProduct(" & .Range(.Cells(LFirstCel, "J"), .Cells(LLastCel, "J")).Address & "," & .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")).Address & ")/ SumProduct(" & .Range(.Cells(LFirstCel, "K"), .Cells(LLastCel, "K")).Address & "," & .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")).Address & ")"
                'On quitte cette boucle
                Exit For
            End If
        'Si les 2 cellules sont identiques, on continue la boucle
        Next TheCel
 
        'Ensuite Fisrtcel devent donc La cellule pointé pas TheCel
        Set FirstCel = TheCel
    'On retourne a Do jusqu'a ce que FirstCel soit vide
    Loop Until FirstCel.Value = ""
 
End With
 
End Sub

A++
Qwaz

**Galatane** · 08/03/2010, 23h31

J'ai un peu modifier mon code. Je mettais le résultat dans la bonne colonne, mais pas a la bonne ligne.

En fait, la question que l'on se pose, c'est de savoir si, par exemple ton premier tableau a dans les cellule A le texte : "Banane", le tableau suivant, le texte "Orange", est il possible de retrouver plus tard, dans un autre tableaux l'un ou l'autre de ces textes?

Si oui, mon code ne fonctionnera pas.

**SAKAROV** · 08/03/2010, 23h37

GALATANE, la réponse est : NON.

IM-POS-SIBLE.

ex:

orange
orange
orange
orange
orange
orange
orange
bleu
bleu
bleu
bleu
bleu
bleu
bleu
bleu
bleu
bleu
bleu
vert
vert
vert
vert
vert
vert
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron
marron

et après ça, on reverra jamais ni orange ni marron ni les autres cités ci-dessus

**Galatane** · 09/03/2010, 08h56

J'ai profiter d'un peu de temps ce matin pour vérifier mon code. Il y a encore du changement, mais rien de bien important. Ce sont juste les valeurs de base et de calcul de fin qui changent.
Donc utilise bien le code actuellement affiché.

**SAKAROV** · 09/03/2010, 11h39

Messieurs.

J'ai mis ce code :

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub Sakarov()
 
Dim TheCel As Range
 
Dim FirstCel As Range
 
Dim TheSh As Worksheet
 
Dim LFirstCel As Long, LLastCel As Long
 
Set TheSh = Sheets("Feuil1")
 
With TheSh 
 
    Set FirstCel = .Range("A2")
 
    Do
 
        For Each TheCel In .Range(FirstCel.Offset(1, 0), .Cells(Rows.Count, "A").End(xlUp).Offset(1, 0))
 
            If FirstCel.Value <> TheCel.Value Then
 
                LFirstCel = FirstCel.Row
 
                LLastCel = TheCel.Offset(-1, 0).Row
 
                FirstCel.Offset(0, 11).Value = WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "J"), .Cells(LLastCel, "J")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E"))) / WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "K"), .Cells(LLastCel, "K")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")))
 
                FirstCel.Offset(0, 12).Formula = "=SumProduct(" & .Range(.Cells(LFirstCel, "J"), .Cells(LLastCel, "J")).Address & "," & .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")).Address & ")/ SumProduct(" & .Range(.Cells(LFirstCel, "K"), .Cells(LLastCel, "K")).Address & "," & .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")).Address & ")"
 
                Exit For
 
            End If
 
        Next TheCel
 
                Set FirstCel = TheCel
 
    Loop Until FirstCel.Value = ""
 
End With
 
End Sub

Ca me dit ça :

Erreur d'execution '6' Dépassement de capacité

Quand je clic sur "débogage", ça me surligne ça :

Code :

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

FirstCel.Offset(0, 11).Value = WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "J"), .Cells(LLastCel, "J")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E"))) / WorksheetFunction.SumProduct(.Range(.Cells(LFirstCel, "K"), .Cells(LLastCel, "K")), .Range(.Cells(LFirstCel, "E"), .Cells(LLastCel, "E")))

.... ????

**Galatane** · 09/03/2010, 11h42

Sur ce code, je peux pas t'aider plus. Je ne le comprend pas plus que toi.

As tu essayer le mien pour tester?

**SAKAROV** · 09/03/2010, 11h42

Et idem pour celui de galatane

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
21
22
23
24
25
26
27
28
Option Explicit
 
Sub sommeprod_tableau()
 
Dim debut As Integer
Dim fin As Integer
Dim continuer As Boolean
 
debut = 2
fin = 0
 
While continuer = False 'debut de la boucle, continue tant que "continuer = Faux"
 
    fin = Application.WorksheetFunction.CountIf(Range("A:A"), Range("A" & debut)) + fin
        'recherche de la fin du tableau avec la fonction NBSI, en se referencant à la 1 ere cellule du tableau en cours.
 
    Range("L" & debut) = Application.WorksheetFunction.SumProduct(Range("J" & debut & ":J" & fin + 1), Range("E" & debut & ":E" & fin + 1)) / Application.WorksheetFunction.SumProduct(Range("K" & debut & ":K" & fin + 1), Range("E" & debut & ":E" & fin + 1))
        ' calcule du sommeprod
 
    If Range("A" & fin + 2) = "" Then continuer = True
        'condition de fin : Si la cellule suivante au dernier tableau analysé est vide, alors continuer = Vrai
 
    debut = fin + 2
        ' nouveau parametres, pour le tableau suivant
 
Wend
 
End Sub

--------------------------------------------------------------------------------
Dernière modification par Galatane

: dépassement de capacité ...

**Galatane** · 09/03/2010, 11h47

Peux tu mettre un point d'arret en debut de code et avancer pas a pas (avec F8) pour me dire ouca bug? Car chez moi, le code passe bien

**SAKAROV** · 09/03/2010, 11h58

ça me surligne ça :

Code :

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

Range("L" & debut) = Application.WorksheetFunction.SumProduct(Range("J" & debut & ":J" & fin + 1), Range("E" & debut & ":E" & fin + 1)) / Application.WorksheetFunction.SumProduct(Range("K" & debut & ":K" & fin + 1), Range("E" & debut & ":E" & fin + 1))

**Galatane** · 09/03/2010, 12h00

A ce moment la, quels sont les valeurs de debut et de fin?

**SAKAROV** · 09/03/2010, 12h03

J'ai essayé de remplacer "integer" par "long" ; mais ça marche pas non plus

**Galatane** · 09/03/2010, 12h06

L'erreur apparait au premier cycle ou plus tard?

**SAKAROV** · 09/03/2010, 12h06

euhhhh, que veux tu dire par "valeurs de début et de fin" ? dsl j'vois pas

La macro ne part pas du tout. Ca me met direct ça. Erreur '6'

**Galatane** · 09/03/2010, 12h09

Quand ton execution est en pause, passe la souris sur les variable "Debut" et "Fin" ou met un espion dessus.

Ca te permet de connaitre leurs valeurs actuelles.

**SAKAROV** · 09/03/2010, 12h18

debut = 1640

fin = 1707

**Galatane** · 09/03/2010, 12h21

Entre ces ligne, n'y aurait il pas des cellule vide ou egale à zero dans la colonne E? et dans J ou K?

Le seul cas ou j'arrive a reproduire l'erreur, c'est quand ma feuille est vide, ou que la premiere ligne du tableau est vide. Donc pas trop d'explication. Je laisse la main sur ce coup. Desolé

**SAKAROV** · 09/03/2010, 12h38

En J et K il y a souvent 0, 0% ou cellule vide. Ca dépend. En E, non, enfin, y'a plein de 0,0032 des trucs comme ça, mais jamais zéro zéro.

Le seul cas ou j'arrive a reproduire l'erreur, c'est quand ma feuille est vide, ou que la premiere ligne du tableau est vide. Donc pas trop d'explication. Je laisse la main sur ce coup. Desolé

Ca pourrait venir du fait que j'ai une en-tête ? J'ai une en-tête toute la ligne 1.

Ou sinon, dans ma colonne A, ce qu'il y a a repérer ce sont des codes qui mêlent chiffres et lettres. Je précise ; sait-on jamais.

C'est bon ça marche, c'est juste que le tableau était trop gros. J'ai pris 2.000 lignes de mon tableau de 30.000, et ça a marché nickel :p

Merci

**SAKAROV** · 09/03/2010, 14h04

Messieurs,

Je ne sais pas comment on met "résolu", mais c'est bel et bien résolu.

Encore merci Galatane.

A+

**Qwazerty** · 09/03/2010, 18h20

Salut
Pour le tag

il se trouve en bas de la discutions.
Tu as également une fonction super intéressant, le bouton Edit!, celui ci te permet d'éditer un message que tu as déjà posté, ça évite de mettre un post supplémentaire qui grossi la conversation pour au final aucune plus value (4 messages d'affilés du même auteur par exemple

)
Autre petit truc très apprécie sur le fofo, le bouton # quand tu veux mettre du code, tu sélectionnes le code et tu appuis sur le bouton #, il se trouve dans le menu de mise en forme du message, ça évitera aux modos d'avoir à le faire pour toi

Pour ce qui est de ton problème, c'est bien que tu l'ai résolu en ne prenant que 2000 lignes ... mais pourquoi ça ne marche pas sur les 30000 lignes? Il serait quand même intéressant de le découvrir? non? tu vas quand même pas scinder ton tableau en 15 parties pour n'avoir que 2000 lignes à chaque fois? Si?

Il serait intéressant de connaitre les valeur des différentes variables lors du dépassement de capacité, je peux me tromper , mais a mon avis le problème est résolu en utilisant que 2000, uniquement par ce que le problème se pose sur une ligne plus éloignée, donc clore le sujet en l'état, c'est reculer pour mieux sauter.

A++
Qwaz

Débutant // Problème code VBA

Macros et VBA Excel

Discussions similaires

Partager

Partager