Discussion :

[Methodrone8]

salut tout le monde
j'ai un soucis en VBA, c'est mon premier code dans ce langage, je suis pas encore un expert et je ne connais pas trop les subtilités des boucles dans ce langage

en gros voici l'algorithme que j'essaie de coder:

-Tant que le numéro client est le meme (colonne E), si la cellule de colonne O vaut B, on recupere la valeur de la cellule T et on la stocke dans la variable valbase
-si la cellule de la colonne O vaut R, on recupere la valeur de la cellule de la colonne U et , on l'additionne a valbase (somme) et on la divise par valbase pour obtenir le ratio (variable ratio.)

Une fois que l'on change de client, les 3 variables se remettent a 0 et l'algo recommence.

Le soucis c'est que je suis un noob et que jsuis passé à coté de 3 problèmes majeurs:

L'existence de valbase lorsqu'on passe d'une ligne a l'autre
La remise a zéro des variables
l'imbrication du for pour parcourir les lignes (i) et du do while pour s'assurer qu'on est sur le meme client.

pouvez vous m'aider svp?

Voici le fichier en ligne, http://cl.ly/3S3e1u1E2G2V332H1Y45

J'ai mis des 0 partout par souci de confidentialité, seul les cases utiles sont restées pleines.
les 2 dernières colonnes sont les résultats de la macro (la première le ratio) et la 2eme la valeur de la somme ou de la valbase.

Merci d'avance
Guillaume


ps: si vous ne souhaitez pas télécharger la pièce jointe, voici un screenshot et le code vba:

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
Sub reval()
    Dim i As Long
    Dim somme As Double, ratio As Double, valbase As Double
 
 
 
    For i = 3 To 12
 
        Do While Cells(i, 5).Value = Cells(i + 1, 5).Value
 
        If Cells(i, 15).Value = B Then
 
                valbase = Cells(i, 20).Value
                somme = valbase + somme
                Cells(i, 25).Value = valbase
 
         ElseIf Cells(i, 5).Value = Cells(i - 1, 5).Value And Cells(i, 15).Value = R Then
 
                somme = Cells(i, 21).Value + somme: Cells(i, 25).Value = somme
                ratio = valbase / somme
                Cells(i, 24).Value = ratio
 
            End If
 
 
        Loop
 
    Next i
           somme = 0: valbase = 0: ratio = 0
 
        End Sub

[Bear the french]

Bonjour Methodrone8,

Il y a un bel effort à essayer de nous présenter ton problème.
Cependant, il y a de nombreuses incohérences - pas seulement sur la syntaxe.

J'ai essayé d'aménager néanmoins ce que tu as fait :

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
Sub reval()
    Dim i As Long
    Dim somme, valbase As Double
 
    ' Range("E" & Rows.Count).End(xlUp).Row donne la ligne de la dernière cellule présente dans la colonne "E"
    For i = 3 To Range("E" & Rows.Count).End(xlUp).Row
 
        If Cells(i, 5).Value = Cells(i - 1, 5).Value Then
 
            If Cells(i, 15).Value = "B" Then
                    valbase = Cells(i, 20).Value
            ElseIf Cells(i, 15).Value = "R" And valbase <> 0 Then
                    somme = Cells(i, 21).Value + somme
                    ' je stocke le ratio en colonne 24
                    Cells(i, 24).Value = (somme + valbase) / valbase / 100
            End If
 
        Else
 
            somme = 0
            valbase = 0
            If Cells(i, 15).Value = "B" Then
                    valbase = Cells(i, 20).Value
            End If
 
        End If
 
    Next i
 
End Sub

Je stocke le ratio en colonne 24. Ce ratio n'est calculé que si la colonne E = "R" ou si la variable valbase est différente de zéro (car une division par zéro provoque une erreur).
Fais des tests et dis nous si ça marche où si ça bug (et à quel endroit ça bug).

Bertrand

[Methodrone8]

Salut!
merci beaucoup pour ta réponse, je me suis rendu compte des énormités qu'il y avait dans le code, c'était pas le bon , j'avais essayé plein de trucs et je n'ai pas posté le code que je pensais vraiment utiliser
je vais essayer celais que tu as mis, je te remercie beaucoup pour ton aide!

Guillaume

Edit: Ca marche parfaitement! Merci beaucoup, j'ai beaucoup à apprendre en programmation, mais c'est en forgeant qu'on devient forgeron! je vais beaucoup lire le forum et les tutos ça va bien m'aider

merci encore

[Methodrone8]

petite rectification:
Cela fonctionne parfaitement sur le fichier coupé que j'ai mis a votre disposition, mais pas sur le fichier source.
il y a une erreur :

"Erreur d'exécution "13" : incompatibilité de type"
sur la ligne 8 du code:

cela s'explique je pense du fait que les cellules de cette colonne dans le fichier source sont par exemple:
GU000022750
ou parfois
1560830

comment régler ça?
j'ia tenté de selectionner la colonne -> format de cellule -> standard mais l'erreur reste.



merci d'avance pour votre précieuse aide

[Bear the french]

Re,

Ton erreur pointe sur quelle colonne ? La 20ème ou colonne "T" ?

Bertrand

[Methodrone8]

l'erreur pointe sur la ligne 8 de ton code, à savoir la colonne E du classeur (la colonne num client)

edit: j'ai mis en ligne dans le premier message le fichier modifié avec le code de Bertrand , et des id clients semblables a ceux du fichier source

[Bear the french]

Cela est cohérent : tu veux comparer un chiffre avec un texte... Hors Excel compare des données de même type.

Ton ID client peut être converti en type texte grâce à ce code :

Code :

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

Range("E" & i) = CStr(Range("E" & i))

Tu peux l'insérer dans ta boucle :

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
Sub reval()
    Dim i As Long
    Dim somme, valbase As Double
 
 
    ' Range("E" & Rows.Count).End(xlUp).Row donne la ligne de la dernière cellule présente dans la colonne "E"
    For i = 3 To Range("E" & Rows.Count).End(xlUp).Row
 
 
        ' conversion de la colonne E en texte
        Range("E" & i) = CStr(Range("E" & i))
 
        If Cells(i, 5).Value = Cells(i - 1, 5).Value Then
 
            If Cells(i, 15).Value = "B" Then
                    valbase = Cells(i, 20).Value
            ElseIf Cells(i, 15).Value = "R" And valbase <> 0 Then
                    somme = Cells(i, 21).Value + somme
                    ' je stocke le ratio en colonne 24
                    Cells(i, 24).Value = (somme + valbase) / valbase / 100
            End If
 
        Else
 
            somme = 0
            valbase = 0
            If Cells(i, 15).Value = "B" Then
                    valbase = Cells(i, 20).Value
            End If
 
        End If
 
    Next i
 
End Sub

Dis moi si ça fonctionne chez toi.

Bertrand

[Methodrone8]

cette fois, cela marche parfaitement!

merci beaucoup pour ton aide