Bonjour à vous,
Je m'adresse à vous car j'ai passé pas mal de temps sur un fichier Excel sans trouver la solution.
J'ai un fichier Excel sur lequel je gère des remises de chèques et j'ai fait une petite routine sur vba qui permet de calculer le montant des chèques (voir feuille Excel jointe).
Mon problème est le suivant :
Certaines remises de chèques concernent des ventes et dans ce cas je saisis l'abréviation "vte" en haut à gauche du tableau (en A1, A37 et A73).
Je voudrai intégrer cette contrainte dans ma routine VBA.
En effet si les remises de chèques sont option "VTE" alors faire le calcul sinon pas de calcul.
Je vous transmets ma feuille de calcul Excel avec mon début de routine VBA.
Merci de tenir au courant.
Je vous en suis très reconnaissant.
Mon code vba (également présent dans ma feuille)
Sub calcul_cumul_vente()
Dim Somme As Double
Dim ligne As Integer
Dim cellules As Range
Dim compteur As Double
For ligne = 1 To 1500
Somme = Somme + Cells(ligne, 4)
compteur = 1
Next
Cells(1, 7) = Somme
Cells(2, 7) = compteur
End Sub
Bien cordialement