Comment coller plusieurs fois la même ligne

Bonjour,

Va demander un peu de temps car j'ai quelques imprevus

Bonjour,

fichier quelque peu modifie:  https://www.cjoint.com/c/MImjKRlNiNg

Pour Marquer une conso payee: click sur la ligne de la liste en bleu et click sur bouton marron fonce "Payer Consommation". Pour le moment il faut faire ligne par ligne. Si vous voulez selectionner plusieurs lignes c'est faisable.

Si erreur de ligne payee, selectionez la ligne en question click sur le bouton qui est devenu jaune. Je vais regarder pour faire kake chose de plus facile pour retrouver la ligne a modfier 

je n'ai pas encore fait pour chiffre jour

Bonjour,

 si j'ai bonne mémoire

C'est vous qui voyez....

J'ai presque trouve pour votre chiffre du jour. Ce qui me pose probleme c'est le transert table. Pour la suppression de ligne, j'ai trouve

Un transfert table ne se fait que si le table de destination est libre je suppose(itoire)!

Y a un autre truc qui me chiffonne, mais nous verrons quand j'aurai fait le chiffre jour

Bonjour,

Le bouton vidange deva faire quoi?

J'ai repris pas mal le code et le format des feuilles, donc pas touche a ce format

Pour moi la feuille vidange devient Chiffre du jour meme si pour le moment c'est toujours vidange en nom.

Dans cette feuille, c'est le cumul de chaque ligne de conso en nombre et prix par conso. Vous  trouverez donc votre nombre de conso par conso pour vos stocks

A quel moment vous faites la raz des tables qui restent en fin de journee?

Bonjour,

Ok, c'est ce que j'ai programme.

Le RAZ de la feuille vidange est a faire sur changement de jour ou ......

Re,

Ok

Re,

Oui

Bonjour,

Vous pouvez prendre un moment pour reflechir aux evolutions possibles

Re,

Le code était pour moi bon 

Plait-il?

Re,

Les feuilles sont masquees

mettez ce code dans un module et lance le

Sub affiche_feuille()
    For Each Sh In Worksheets
        Sh.Visible = True
    Next
End Sub

Bonjour,

Voici les quelques modification :

-La gestion bar : les boutons son sans nom et une fois qu'on appui sur le bouton bar 

le resultat du inputbox devient le nom du bouton . une fois l'addition payé le bouton sera a nouveau sans nom.

- serait il possible de faire le total de chaque tournée ?

- serait il possible que le totale de la table correspond au consommation qui reste a payer ?

D'avance merci

Bonjour,

-La gestion bar : 

Je dois reprendre cela car j'ai surtout fait pour les tables 

une fois l'addition payé le bouton sera a nouveau sans nom.

Ok

le total de chaque tournée ?

De quel total parlez vous?

Normalement Total Jour et table sont recalcules a chaque ajout de conso

totale de la table correspond au consommation qui reste 

Un peu curieux, le total de la table des consos ne vous interesse pas!!

Bonjour,

 je ne sais pas si tu comprends ce que je veux dire 

A priori, nous sommes de la meme palenete, ca devrait le faire sauf ceci

 bouton tournée......le montant des conso soit note.

Bonjour,

Ok, je vais donc deja faire avec toutes ces evolutions

Bonjour,

Pa d'inquietude, je ne vous ai oublié 

Bonjour,

Si je ne m'abuse docteur, sur click Tournee il n'y a pas besoin d'entrer une quantite!

Bonjour,

Ca va demander un certain temps car vos demandes de calcul par tournees, reste du provoquent beaucoups de modif du fait que tout doit se mettre a jour pour Ajout ou Suppression de ligne.

C'est faisable mais remet en cause pas mal code

Bonjour,

Fichier modifie pour les dernieres demandes: https://www.cjoint.com/c/MKbqMG7v1Bg

A tester, en ai peut-etre oublie

Bonjour,

-je n'ai pas le montant total de la table sur certaines tables

Pouvez preciser quelles tables

-avec le bouton tournée j'ai quelque problème également

Ben, lesquels

pour la case restant du , est il possible de la faire actualise directement ?

Pouvez expliquer car c'est comme ca que c'est fait

Vous utilisez le fixhier que j'ai mis a dispo ou un autre?

Bonjour,

1ère question: Pour copier une sélection plusieurs fois en fonction de la quantité entrée, vous pouvez utiliser une boucle For. Voici un exemple de code VBA qui copie la sélection 3 fois si la quantité est 3:

Sub CopySelection()
    Dim quantity As Integer
    quantity = InputBox("Entrez la quantité:")
    If quantity > 0 Then
        For i = 1 To quantity
            Selection.Copy
            ActiveCell.Offset(1, 0).EntireRow.Insert Shift:=xlDown
        Next i
    End If
End Sub

2ème question: Pour stocker la valeur actuelle de la cellule total dans une variable avant de la remettre à zéro, vous pouvez utiliser une variable globale. Voici un exemple de code VBA qui stocke la valeur actuelle de la cellule total dans une variable globale totalValue avant de la remettre à zéro:

3ème question: Pour renommer un bouton avec le résultat de l’inputbox, vous pouvez utiliser la propriété Caption du bouton. Voici un exemple de code VBA qui renomme le premier bouton vierge avec le résultat de l’inputbox et renomme le bouton suivant vierge si vous appuyez à nouveau sur le même bouton:

Dim totalValue As Double

Sub ResetTotal()
    totalValue = totalValue + Range("A1").Value
    Range("A1").Value = 0
End Sub