Comment racourci un bouton Range Fermé

Question

Bonjour, 

Je tourne sous excel 2016

j ai crée un bouton pour additionner des valeurs a partir d une commande puis de remettre a zéro cette commande pour la prochaine.

cependant je ne sais pas comment appliquer cette formule à 1000 ligne sauf manuellement (pénible) 

voici mon bouton pour 16 ligne:

Private Sub Commandbutton_Click()

Range("am5") = Range("g5") + Range("ak5"): Range("g5") = 0
Range("an5") = Range("as5") + Range("al5"): Range("as5") = 0
Range("am6") = Range("g6") + Range("ak6"): Range("g6") = 0
Range("an6") = Range("as6") + Range("al6"): Range("as6") = 0
Range("am7") = Range("g7") + Range("ak7"): Range("g7") = 0
Range("an7") = Range("as7") + Range("al7"): Range("as7") = 0
Range("am8") = Range("g8") + Range("ak8"): Range("g8") = 0
Range("an8") = Range("as8") + Range("al8"): Range("as8") = 0
Range("am9") = Range("g9") + Range("ak9"): Range("g9") = 0
Range("an9") = Range("as9") + Range("al9"): Range("as9") = 0
Range("am10") = Range("g10") + Range("ak10"): Range("g10") = 0
Range("an10") = Range("as10") + Range("al10"): Range("as10") = 0
Range("am11") = Range("g11") + Range("ak11"): Range("g11") = 0
Range("an11") = Range("as11") + Range("al11"): Range("as11") = 0
Range("am12") = Range("g12") + Range("ak12"): Range("g12") = 0
Range("an12") = Range("as12") + Range("al12"): Range("as12") = 0
Range("am13") = Range("g13") + Range("ak13"): Range("g13") = 0
Range("an13") = Range("as13") + Range("al13"): Range("as13") = 0
Range("am14") = Range("g14") + Range("ak14"): Range("g14") = 0
Range("an14") = Range("as14") + Range("al14"): Range("as14") = 0
Range("am15") = Range("g15") + Range("ak15"): Range("g15") = 0
Range("an15") = Range("as15") + Range("al15"): Range("as15") = 0
Range("am16") = Range("g16") + Range("ak16"): Range("g16") = 0
Range("an16") = Range("as16") + Range("al16"): Range("as16") = 0

End Sub


Merci de votre aide

Configuration: Windows / Firefox 43.0

eriiic · Answer

Bonjour,

ton code n'a rien à voir avec ce que tu veux faire. Tu fais la somme d'une cellule et d'un résultat de test...
Vider une plage :
range("AM5:AN1000").clearcontents

eric
 
En essayant continuellement, on finit par réussir. 
Donc plus ça rate, plus on a de chances que ça marche.(les Shadoks)
En plus du merci (si si, ça se fait !!!), penser à mettre en résolu. Merci

Diag-Avignon · Answer

Bonjour

merci de ta réponse ta commande va me servir pour éviter la dernière ligne mais je ne comprend pas ta première phrase, comment faire pour que a1 s’additionne a b1 et qu une fois a1=0 b1 reste avec la meme valeur?

Diag-Avignon · Answer

Bonjour

voila le fichier 

https://www.cjoint.com/c/FAzoKaQS2Wk

ce qu il m intéresse c est de rentrer pour chaque vente que nous faisons la quantite dans la colonne G et le prix Unitaire dans la colonne H, du coup cela me permet de faire une moyenne de mes prix de vente par produit, ensuite de remettre ces colonnes a zero 

merci

Maurice · Answer

Bonjour

macro a mettre dans un Module

Sub Test()
Dlig = 5    ' debut de ligne
Flig = 16   ' Fin de ligne
   For L = Dlig To Flig
      Range("AM" & L) = Range("G" & L) + Range("AK" & L)
      Range("AN" & L) = Range("AS" & L) + Range("AL" & L)
   Next
Range("G" & Dlig & ":H" & Flig).ClearContents
End Sub


A+
Maurice

Comment racourci un bouton Range

4 réponses

Discussions similaires