Explication VB
Résolu
chrichnou
-
chrichnou -
chrichnou -
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
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
A voir également:
- Explication VB
- Vb - Télécharger - Langages
- Foyer netflix explication - Accueil - Guide streaming
- Paris multiple 2/6 explication - Forum Loisirs / Divertissements
- Chambre 1408 explication fin ✓ - Forum Cinéma / Télé
- Explication pour une curieuse ✓ - Forum Mozilla Firefox
2 réponses
Bonjour,
Je ne sais pas si c'est ce que tu veux, mais cela pourra déjà t'aider.
A+
'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+
Cela m'aide déjà mais si il y a moyen d'avoir un peu plus de commentaire ça ne me dérengerait pas... comme c pour un tfe, je souhaite être le plsu précis possible pour que tout le monde comprenne quand il le lira.
Merci encore.
A+