VBA : Faire une somme sur une colonne inconnue (variable)
Résolu/Fermé
A voir également:
- VBA : Faire une somme sur une colonne inconnue (variable)
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
- Vba range avec variable ✓ - Forum VB / VBA
- Vba dépassement de capacité ✓ - Forum Excel
2 réponses
Le Pingou
Messages postés
12187
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2024
1 449
Modifié le 9 août 2022 à 18:11
Modifié le 9 août 2022 à 18:11
Bonjour,
Si vous êtes en vba, avec ces 2 lignes à adapter selon besoin!
Set MaPlage = Range("A2:A600")' mettre les info de votre colonne
MaSomme = Application.WorksheetFunction.Sum(MaPlage)
Pas clair ;
Je crée des données via une recherchev et sur la première cellule vide de cette colonne (SA) je voudrais faire une somme des données de cette même colonne.
Si première cellule vide est le numéro de la colonne alors cette colonne est donc vide et de ce fait la somme sera zéro… !
Le Pingou
Messages postés
12187
Date d'inscription
mercredi 11 août 2004
Statut
Contributeur
Dernière intervention
14 novembre 2024
1 449
9 août 2022 à 20:05
9 août 2022 à 20:05
Bonjour,
Je vois que ozone_ est intervenu, donc pour moi je quitte le poste.
9 août 2022 à 18:45
Bonjour Le Pingou,
Je vous remercier pour votre prompt retour.
J'ai essayé ceci qui fonctionne bien en MSGBox mais que j'aimerais avoir sur ma cellule derligneSA :
SA = Range("B1").End(xlToRight).Column + 1
Cells(1, SA).Select
derligneSA = Cells(Rows.Count, SA).End(xlUp).Row
MsgBox derligneSA 'Ca retrouve bien le dernière cellule
Set MaPlage = Range(Cells(2, SA), Cells(derligneSA, SA))
MaSomme = Application.WorksheetFunction.Sum(MaPlage)
MsgBox MaSomme ' ca me fait bien la somme
Sauriez vous comment faire s'il vous plait ?
Un grand merci
Cordialement
Modifié le 9 août 2022 à 19:07
Bonjour à vous deux,
Peut être que ceci est la solution :
SA = Range("B1").End(xlToRight).Column + 1 ' Permet de convertir en lettre SA SAcol = Split(Cells(1, SA).Address, "$")(1) Cells(1, SA).Select derligneSA = Cells(Rows.Count, SA).End(xlUp).Row MsgBox derligneSA 'Ca retrouve bien le dernière cellule Set MaPlage = Range(Cells(2, SA), Cells(derligneSA, SA)) MaSomme = Application.WorksheetFunction.Sum(MaPlage) MsgBox MaSomme ' ca me fait bien la somme Cells(derligneSA, SA).Formula = "=SUM(" & SAcol & "2:" & SAcol & derligneSA - 1 & ")"9 août 2022 à 19:18
Bonjour ozone_,
Merci pour ta proposition. Par contre la dernière ligne
=SUM(" & SAcol & "2:" & SAcol & derligneSA - 1 & ")"se met en rouge quand je la colle en VBA
Cordialement
9 août 2022 à 19:25
Re,
Au temps pour moi ça fonctionne nickel :-)
Merci +++