Probléme pour ecrire une macro avec Combobox et incrementation dans plusieurs colonne

Bonjour ,

Pas facile a expliqué pour cela que je n'est pas de reponse , je pense !!

en fonction de mon aide__3

ce que je veux c :

ocotbre = "conso oct" si j'ai une valeur dans la textbox "conso gaz"
"" = "conso ecs oct" si j'ai une valeur dans lea textbox "conso ecs"
"" = "Dju oct" si j'ai une valeur dans la textbox "DJU"

et ainsi de suite avec les autre mois !!!

Comment ecrire cela ???

EXEMPLES :

je choisi un bat puis je rentre une valeur "1" dans la textbox "conso gaz" en fonction d'une varibale "octobre" la valeur doit s'incremente dans la colonne "Conso oct" !

je choisi un bat puis je rentre une valuer 3 par exemple dans la textbox "conso ecs" en fonction du mois de "novembre" la valeur doit s'incremente dans la colonne "Conso ecs Nov".

Sachant que cette ecriture me permet de simplifié la saisie , car auparavant javais 1 combobox mois par textbox( Conso oct , Conso ecs oct et DJU oct) et donc 3 saisie de plus .
En PJ l'ancienne methode aide__1

Merci

Bonjour mimil49,

Le calcul effectué par ta procédure est curieux :

Code:

---

Sheets("Données").Cells(li, col).Value = (Me.TextBox1.Value) - ai 'place la valeur de la TextBox1 - l'index du mois précédent dans la cellule "Conso oct".

---

La "Conso oct" est donc égale à la valeur saisie dans la Textbox1 "conso gaz " à laquelle on soustrait la valeur de l‘index de début d’année GAZ (ai).
L’index ai étant égal à 1000, si je saisis 20 en octobre, la "Conso oct" est donc de -980 ???
Dis-nous en clair la valeur que tu es censé trouver dans "Conso oct" lorsque tu saisis 20 (par exemple) dans la Textbox1 "conso gaz ".

Cordialement.

Re-bonjour,

Je crois avoir compris le calcul de la consommation gaz.
La valeur saisie correspond à l’index du compteur gaz (consommation globale) et la différence avec l’index du mois passé permet de connaitre la consommation.
Pour adapter ton code, il suffit de redéfinir la colonne qui correspond au mois.
Tu pourras établir un code identique pour le calcul de consommation ECS.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Private Sub CommandButton1_Click() 'bouton "Valider GAZ" Dim li As Byte 'déclare la variable li (LIgne) Dim col As Byte 'déclare la variable col (COLonne) Dim ai As Double 'décare la variable ac (Ancien Index) li = Me.ComboBox1.ListIndex + 7 'définit la ligne qui correspond au bâtiment col = (Me.ComboBox2.ListIndex) * 4 + 16 'définit la colonne qui correspond au mois _   (récupère la valeur stockée dans la colonne 1 de la ComboBox1) Select Case col 'agit en fonction de la colonne col Case 16 'si colonne P (c.a.d le mois d'octobre) ai = (Sheets("Données").Cells(li, col - 3).Value) 'définit l'ancien index (= debut année) Case 20 To 44 'si colonne au delà de T a AR ai = (Sheets("Données").Cells(li, col - 4).Comment.Text) 'définit l'ancien index (récupère le commentaire deux cellules à gauche) End Select 'fin de l 'action en fonction de la cellule With Sheets("Données") Sheets("Données").Cells(li, col).ClearComments 'supprime un éventuel commentaire dasns la cellule (li, col) Sheets("Données").Cells(li, col).AddComment (TextBox1.Value) 'place le contenu de la TextBox1 (l'index du mois) en commentaire dans la cellule (li, Col) Sheets("Données").Cells(li, col).Value = (Me.TextBox1.Value) - ai 'place la valeur de la TextBox1 - l'index du mois précédent dans la cellule (li, col) End With End Sub

---

Cordialement.

Enorme merci GFZT82

Cela fais deux semaine que je cherche la solution est en faite la seul modif est :

Code:

---

1 2	col = (Me.ComboBox2.ListIndex) * 4 + 16 'définit la colonne qui correspond au mois _   (récupère la valeur stockée dans la colonne 1 de la ComboBox1)

---

Mais peux tu m'expliquer juste ton ecriture , pourquoi " * 4 + 16 " ??

Je vais maintenant faire les autres combobox !!

Encore merci :)

Ce calcul permet de faire la correspondance entre le numéro de l'élément sélectionné dans ta ComboBox et la colonne mois dans ta feuille.

Dans ta feuille, le premier mois (octobre) est situé en colonne 16.
Chacun des mois suivants est décalé de 4 colonnes par rapport au mois précédent (novembre en colonne 20, décembre en colonne 24, etc).
Dans la ComboBox2, le mois d’octobre correspond à l’index 0, novembre à l’index 1, décembre à l’index 2, etc.

D’où la formule permettant de faire la correspondance :
N° de colonne = N° d’Index * 4 + 16


Content d'avoir pu te rendre service.
Bonne continuation ;).

Merci :)

Ca me parait plus simple maintenant ;)