Explication VB Résolu/Fermé

Question

Bonjour,

Voilà, il n'y a pas si longtemps j'avais demandé, pour un cours, que l'un de vous me crée deux boutons excel en VB:

Je l'ai donc intégrer dans ma feuille excel mais mon prof voudrais quelques explications en français sur l'action de chaque ligne VB:
Voici le premier bouton qui sert à faire placer la somme d'une colonne dans une autre feuille excel mais une ligne l'une en dessous l'autre (je comprends quelques lignes mais y en a je ne sais pas à quoi elles servents:

Sub Bouton1_QuandClic()
'
Dim total, i As Integer
i = 1
total = 0
Worksheets("feuil1").Activate
Do While Range("A" & i).Value <> ""
If Range("B" & i).Value = "" Then Range("B" & i).Value = 0
If Range("C" & i).Value = "" Then Range("C" & i).Value = 0
total = total + (Range("B" & i) * Range("C" & i))
i = i + 1
Loop
i = 1
Do While Worksheets("feuil2").Range("A" & i).Value <> ""
i = i + 1
Loop
Worksheets("feuil2").Range("A" & i).Value = Format(i)
Worksheets("feuil2").Range("B" & i).Value = total
Worksheets("feuil2").Activate
End Sub

Et voici la seconde qui sert à remettre la colonne de la somme de la première feuille à zéro:

Sub raz()
Dim i As Integer
Worksheets("feuil1").Activate
i = 1
Do While Range("A" & i) <> ""
Range("C" & i).Value = 0
i = i + 1
Loop
End Sub

Je voudrais donc savoir ce que signifie ou à quoi sert chaque ligne

merci d'avance

lermite222 · Answer

Bonjour,

'Routine appellée quand ont clique sur Bouton1
Sub Bouton1_QuandClic()
'
' déclaration des variable employées.
Dim total 'variant
Dim i As Integer 'nombre jusque 32200
    i = 1 'assigner valeur 1 à i
    total = 0
    Worksheets("feuil1").Activate 'Actice la feuille 'Feuil1'
    Do While Range("A" & i).Value <> "" ' tant que la cellule
                          'sélectionnée n'est pas égale à zéro.
        'Condition: Si la cellule sélectionnée est vide la cellule
        'même ligne colonne B recoit zéro.
        If Range("B" & i).Value = "" Then Range("B" & i).Value = 0
        If Range("C" & i).Value = "" Then Range("C" & i).Value = 0
        'Actualise la variable Total
        total = total + (Range("B" & i) * Range("C" & i))
        i = i + 1
    Loop ' termine Do While
    i = 1
    Do While Worksheets("feuil2").Range("A" & i).Value <> ""
    i = i + 1
    Loop
    Worksheets("feuil2").Range("A" & i).Value = Format(i)
    Worksheets("feuil2").Range("B" & i).Value = total
    Worksheets("feuil2").Activate
End Sub


Sub raz()
'Remise à zéro de la colonne C de la feuille 'Feuil1'
Dim i As Integer
    Worksheets("feuil1").Activate
    i = 1
    Do While Range("A" & i) <> ""
        Range("C" & i).Value = 0
        i = i + 1
    Loop
End Sub

Je ne sais pas si c'est ce que tu veux, mais cela pourra déjà t'aider.
A+

chrichnou · Answer

Bonjour,

Ah ok, je ne savais qu'il y avait ça dans l'aide excel

Je vais faire ça et merci encore.

Explication VB

2 réponses

Discussions similaires