Selection de Cellules Multiples et somme

[excelman]

Bonjour à tous et à toutes,

Je suis à la recherche d'un macro qui me permettrait de sélectionner des cellules (toutes les 10 lignes colonne 1 ou toutes les 5 lignes colonne 2 par exemple) j'usqu'en bas de la feuille ou jusqu'à la dernière cellule pleine et d'en faire la somme.

J'ai déja une petit idée quand au fait qu'il faudrait lancer une text box pour renseigner les paramètre de sélectionner ?

Merci à tous et bien vouloir me lire.

Thierry

Cordialement

 

[Catrice]

Re : Selection de Cellules Multiples et somme

Bonjour,

ci-joint un exemple sans macro

 

[Robert]

Re : Selection de Cellules Multiples et somme

Bonsoir Thierry, bonsoir le forum,

Une proposition. Sélectionne la première cellule de la série puis lance la macro ci-dessous. Tu adapteras pour la colonne 2 en pas de 5...

Sub Macro1()
 
Dim a As Byte 'déclare la variable a
Dim deb As Long 'déclare la variable deb
Dim fin As Long 'déclare la variable fin
Dim tot As Variant 'déclare la variable tot
Dim x As Long 'déclare la variable x
 
a = MsgBox("vous devez sélectionner la première cellule de la ligne", vbOKCancel, "Attentio !") 'définit la variable a
If a = vbCancel Then Exit Sub 'condition : si la réponse à a est "Annuler", sort de la procédure
 
deb = ActiveCell.Row 'définit la variable deb
fin = Cells(65536, 1).End(xlUp).Row 'définit la variable fin
 
For x = deb To fin Step 10 'boucle sur toutes les cellules de deb à fin par pas de 10
    tot = tot + Cells(x, 1) 'définit la variable tot
Next x 'prochaine cellule de la boucle
 
MsgBox tot 'message renvoyant la variable tot
 
End Sub

Édition :

Oops télescopage avec Catrice que je salue au passage...

 

[excelman]

Re : Selection de Cellules Multiples et somme

Bonsoir,

Merci pour vos réponse.

J'ai tout simplement mis une formule tel que celle ci :

=si(A1="couverts";B1;"")
j'ai recopié la formule jusqu'en bas de la feuille et fait la somme de la colonne.
Ensuite je masque la colonne et le tour est joué.
C'est pas très propre mais ca marche et c'est le principal.

Merci encore d'avoir passé du temps à chercher une solution

Cordialement

Thierry
a+