Comment racourci un bouton Range

Fermé

Diag-Avignon - 25 janv. 2016 à 12:44
Diag-Avignon Messages postés 4 Date d'inscription lundi 25 janvier 2016 Statut Membre Dernière intervention 25 janvier 2016 - 25 janv. 2016 à 19:20

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

A voir également:

Comment racourci un bouton Range
Réinitialiser chromecast sans bouton - Guide
Bouton shift pc - Forum Jeux vidéo
Out of range - Forum Ecran
[Ecran tft] "out of range au démarrage ✓ - Forum Matériel & Système
Comment ajouter quelqu'un sur facebook sans le bouton ajouter - Guide

4 réponses

Réponse 1 / 4

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
Modifié par eriiic le 25/01/2016 à 13:17

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

Réponse 2 / 4

Diag-Avignon Messages postés 4 Date d'inscription lundi 25 janvier 2016 Statut Membre Dernière intervention 25 janvier 2016
25 janv. 2016 à 13:24

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?

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
25 janv. 2016 à 14:36

Il faudrait déposer un fichier avec les explications claires et complètes pour comprendre ton besoin.
cjoint.com et coller ici le lien

Réponse 3 / 4

Diag-Avignon Messages postés 4 Date d'inscription lundi 25 janvier 2016 Statut Membre Dernière intervention 25 janvier 2016
25 janv. 2016 à 15:36

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

eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 8 mai 2024 7 216
25 janv. 2016 à 17:11

Devant la faiblesse de tes explications je laisse la place à d'autres.
eric

Diag-Avignon Messages postés 4 Date d'inscription lundi 25 janvier 2016 Statut Membre Dernière intervention 25 janvier 2016
25 janv. 2016 à 18:55

Merci quand meme de ta patience

Réponse 4 / 4

Maurice
25 janv. 2016 à 17:39

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

Diag-Avignon Messages postés 4 Date d'inscription lundi 25 janvier 2016 Statut Membre Dernière intervention 25 janvier 2016
25 janv. 2016 à 19:20

Super Maurice merci beaucoup

Discussions similaires

Où est la touche SHIFT sur mon clavier d'ordi ?

input signal out of range

VBA : Range avec références variables..

Bouton ON OFF, O ou I ?

Quel est la touche shift sur le clavier

Discussions similaires

Newsletters