Comment racourci un bouton Range
Diag-Avignon
-
Diag-Avignon Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
Diag-Avignon Messages postés 4 Date d'inscription Statut Membre Dernière intervention -
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
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
4 réponses
-
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 -
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? -
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 -
Bonjour
macro a mettre dans un ModuleSub 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
