Comment coller plusieurs fois la même ligne

Question

Bonjour,

J'ai quelques questions :

1ere :

j'ai un bouton pour sélectionner une ligne , ensuite un userform s'ouvre pour demander la quantité .

En fonction de la quantité entrée, j'aimerai que cette selection soit coller le meme nombre de fois ( Si quantité est 3 , j'aimerais coller la selection 3 fois)

Comment puis je faire ?

2ème :

sur chaque feuille , j'ai une cellule total.

J'ai un bouton sur chaque feuille pour remettre le total a zero.

J'aimerais que ce bouton (avant de remettre le total a zero) garde la valeur dans une variable et qu'a chaque fois qu'on appuie sur le bouton , le total actuel s'addition a la variable

Avez vous une idée ?

Dernière question :

j'ai un bouton qui ouvre un inputbox.

Sur la meme page j'ai 10 bouton vierge de nom.

J'aimerais que le résultat de inputbox devient le nom d'un bouton.

Ensuite si j'appui a nouveau sur le meme bouton, j'aimerai que le resultat de inputbox devient le nom du bouton suivant vierge

Avez vous une idée ?

D'avance merci

Windows / Edge 114.0.1823.79

f894009 · Answer

Bonjour,

Un fichier serait utile pour vous aider

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

f894009 · Answer

Bonjour,

Je recupere le fichier et regarde la chose

devient le nom du bouton suivant vierge

En ligne ou colonne?

Geo13 · Answer

A cause de quoi se plante t- il ?

j'ai résolu le problème des tables :)

je bloque sur les quantite.

Quand j'ajoute un produit, j'ai un useform qui s'ouvre avec des boutons de 1 a 10

J'aimerai que quand je clique par exemple sur le bouton 2 , ca copie la dernière ligne de la feuille et coller la selection sur la ligne d'en dessous

Comment puis je faire ?

f894009 · Answer

Re,

Tables ok, pouvez comment vou avez fait?

ca copie la dernière ligne de la feuille et coller la selection sur la ligne d'en dessous

dans votre code, il ya des noms de feuille, pas dans vos explications

Sub appletiser()
   Dim lastRow As Long
        lastRow = Sheets(Table_Choisie).Cells(Rows.Count, 1).End(xlUp).Row + 1
    Sheets("Tarif").Range("A1:E1").Copy Destination:=Sheets(Table_Choisie).Range("A" & lastRow)
    UserForm2.Show
    Sheets(Table_Choisie).Activate
End Sub

et a l'origine vous demandiez un nombre de ligne fonction de la quantite

Alors?

Vous vouliez faire quoi avec ceci dans UF2?

Private Sub CommandButton2_Click()
Dim derligne As Integer
Sheets(Table_Choisie).Select

derligne = Range("A" & Rows.Count).End(xlUp).Row
Cells(derligne, "A:E").Select

End Sub

Geo13 · Answer

Super merci beaucoup :)

Mais pour éviter que je dois modifier toute mes macros, s'est possible de la copie dans l'user form ?

Geo13 · Answer

C'est possible de faire la copie dans l'usferform ?

En reprenant la derniere ligne de la feuille choisie et en la copiant le nombre de fois demande par le bouton de l'userform ?

f894009 · Answer

Bonjour,

C'est tout a fait possible, car normalement votre "Application" n'aurait pas du etre consue avec toutes ces feuilles, codes associes a ces feuilles et tous ces codes associes aux boutons

Vous connaissez le VBA un peu, moyen ou bien car la modif est tres simple.

C'est vous qui voyez

Geo13 · Answer

je connais un peu le VBA.

Vous pouvez m'aider ?

f894009 · Answer

Re,

Evidement, ca coule de source

Je regarde la chose

Y a quand meme pas mal de modif

C'est urgent votre truc?

Geo13 · Answer

Bonjour, si c'est trop complique c'est pas grave

C'est juste possible de faire disparaitre l'userform apres avoir cliquer sur la quantite voulue ?

pour pouvoir mettre les boutons en couleur

f894009 · Answer

Bonjour,

Ce n'est pas du tout complique.

Je pose des questions pour etre sur de ne pas faire de modifs pour rien et vous permettre de voir d'autre possibilites pour faire evoluer votre fichier

J'ai deja fait le moitie des modif pour les lignes a ecrire en fonction de la quantite

UF disparait apres choix quantite, je fais

pour pouvoir mettre les boutons en couleur

Si UF pas de probleme

Si feuilles tables et autres, les boutons controls activeX pas de probleme, mais bouton formulaire impossible

J'ai eu un leger contre temps aujourd'hui, je reprends demain

f894009 · Answer

Bonjour,

Modif copie lignes terminee.

les tables changent de couleur

Ok, je fais

comptabilise le nombre de fois

Affiche ou et par jour ou..?

Pouvez expliquer ce que le bouton supprimer doit faire, car y deux facons actuellement dont une qui est un peut curieuse

f894009 · Answer

Bonjour,

"sorry, j'etais en vacances"

Encore!!!!!

Moi, c'est F894009, pas sorry..

Je me replonge dans votre fichier

En attendant, un fichier pour avoir un apercu:
 https://www.cjoint.com/c/MHpgJ7fvuKg

f894009 · Answer

Bonjour,

comptabiliser le nombre de produit consommer

Oui.

Je suis entrain de traiter les erreurs possibles sur des manipes sans lien avec le depart sur feuille Plan

f894009 · Answer

Bonjour,

Ok.

c'est possible de corriger ca ?

Fait.

Procedure avec Bouton Supprimer

Sub all()
    ActiveCell.Range("A1:E1").Select
    Selection.ClearContents
End Sub

Pour faire quoi?

f894009 · Answer

Bonjour,

la ligne sélectionner en cas d'erreur

Le cas present ce n'est que la premiere vu le code!!

f894009 · Answer

Bonjour,

Ok, je vois

f894009 · Answer

Bonjour,

Ok

f894009 · Answer

Bonjour,

Je regarde comment vous faire ca

f894009 · Answer

Bonjour,

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

f894009 · Answer

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

f894009 · Answer

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

f894009 · Answer

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?

f894009 · Answer

Bonjour,

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

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

f894009 · Answer

Re,

Ok

f894009 · Answer

Re,

Oui

f894009 · Answer

Bonjour,

Vous pouvez prendre un moment pour reflechir aux evolutions possibles

f894009 · Answer

Re,

Le code était pour moi bon

Plait-il?

f894009 · Answer

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

Geo13 · Answer

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

f894009 · Answer

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!!

f894009 · Answer

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.

f894009 · Answer

Bonjour,

Ok, je vais donc deja faire avec toutes ces evolutions

f894009 · Answer

Bonjour,

Pa d'inquietude, je ne vous ai oublié

f894009 · Answer

Bonjour,

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

f894009 · Answer

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

f894009 · Answer

Bonjour,

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

A tester, en ai peut-etre oublie

f894009 · Answer

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?

NICK337 · Answer

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

f894009 · Answer

Bonjour,

Ok,

Pouvez continuer avec le gars puisque ca vous intéresse!

f894009 · Answer

Bonjour Geo,

Petit contre temps.

En faisant des modifs pour reprendre la partie Tonneau, pt et gt plus reprise de code pour avoir une structure de code plus normale, probleme d'affichage feuille sur click table, plus de mise a jour sur retour UF_Gestion apres ajout et pas de retour sur la feuille table

Ces anomalies apparaissaient de temps en temps avant ces modifs

Vient de l'enchainement des differentes parties de code appelees.

Je planche

Desole du retard

f894009 · Answer

Bonjour,

Ai trouve pour mise a jour listview, couleur bouton et autres. Beaucoup de modif pour arriver au but recherche

Le probleme etait bien l'enchainement des differentes UF et procedures de calcul pour mise a jour

J'ai fait beaucoup d'essais et pour le moment, en fonction de ces essais, c'est ok

Je dois faire des verif complementaires pour la feuille Vidange plus et moins par conso

f894009 · Answer

Bonjour,

fichier modifie: caisse-enregistreuse-SWF-3.xlsm (cjoint.com)

Je n'ai pas fait de RAZ de la feuille vidange pour mes tests.

Il vous faudrait faire une raz des tables par Nouvelle table de l'UF_Gestion.. et une raz de vidange avec le bouton feuille plan

Normalement pour eviter les tantations de modif qui faucerons les calculs, il faudrait masquer les feuilles tables, salon et tonneau etc des que la mise au point sera terminee.

A vous de tester.

J'ai quelques idees d'evolution mais deja faire la mise au point de cette version

f894009 · Answer

Bonjour,

(comme une consommation seule)

C'est une des evolutions que je voulai vous proposer car faire une par une les conso ca le faisait moyen

Une autre facon, avoir des cases a cocher dans la listview, faut voir

Feuille de compte, je regarde. Avec mes tests, ca parraissait ok

f894009 · Answer

Bonjour,

Ca se fait pour toutes les consos.

f894009 · Answer

Bonjour,

Feuille de compte, normale qu'elle ne se mette pas ajour, ya pas ou plus de code pour

Pas besoin de code ni bouton.

Une simple formule en A1: =SOMME(vidange!F:F).

D'ailleur, vous avez votre total jour feuille Vidange

f894009 · Answer

Re,

la feuille de compte

Vous mettrez un mot de passe pour la proteger

avoir une feuille vidange avec juste

Il faudra que je modifie le code pour avoir le totat conso a la place de la feuille vidange

Feuille vidange: vous voulez seulement Soft et bierre. Ok, ca demande du code supplementaire pour determiner les consos soft et biere

f894009 · Answer

Bonjour et meilleurs voeux,

Modif code pour compte/vidange fait. Je dois faire des tests.

Payement par tournee, j'y cogite

f894009 · Answer

Bonjour,

Apres tests feuilles Compte et Vidange Ok

Regler conso sur tournee, ca casse une partie de la structure de la programmation mais je fais

Vous voulez conserver le reglement a la conso en plus du reglement a la tournee?

Perso, je prefererai non car ca complique pas mal la programmation

f894009 · Answer

Bonjour,

pouvoir cocher les consommations a payer

A la place de tournee, ca serait pas mal

f894009 · Answer

Re,

Y a pas de MDP. Chez moi la feuille n'est pas protegee!

Le code pour RAZ Vidange et Compte est deja fait

Tablette: je peux oublier le click droit souris

f894009 · Answer

Re,

possible de mettre une table personnel

Oui

un bouton de faire une sauvegarde

Oui

mise en page que les feuilles menu et biere

Ben, qui a fait ces deux la?

f894009 · Answer

Bonjour,

que je clique sur coca

Oui, car la feuille Vidange est mise a jour par Compte. Je vais modifier

Le probleme avec vous, c'est que vous n'avez pas au depart une idee assez precise de ce que doit faire ce fichier. Vous decouvrez au fur et a mesre des modifs faites.

Normalement a ce stade, ca ne devrait etre que des ajustements pas des modifs consequentes.

Maintenant la question qui fache:

Vous etes sur de connaitre le fichier que vous avez mis a dispo au depart et celui que je vous mets a dispo?

f894009 · Answer

Bonjour,

Avant "nouveau": c'est ce que j'ai l'intention de faire

Modif sur vote derniere version: oui

je connais un peu le VBA

Vous etes capable de suivre tout le chemin au niveau du code pour ajouter une conso?

f894009 · Answer

Bonjour,

Fichier avec Vidange et Compte: https://www.cjoint.com/c/NAsgjj1RL0g

Je vais commencer la partie paiement conso Tournee et par conso( ca ne fait pas grand chose en modif supl)

f894009 · Answer

Bonjour,

Table Personnels:

( pour que les consos de cette table soit comptabilisé uniquement dans vidange )

Vous avez demande de n'entrer que les conso Soft et Bierre dans Vidange!

Quand est il pour les autres consos des personnels?

Seront ils limites a ces deux menus?

f894009 · Answer

Re,

Fichier avec non majour Compte pour table Personnels

https://www.cjoint.com/c/NAyoXwQSQag

Code dans module MMajour_Feuille

Sub Majour_Feuille(Plage_Menu) pour ajout Table Personnels

Code dans VBA UF Private Sub ListView1_DblClick() pour suppression Table Personnels

f894009 · Answer

Bonjour,

J'ai recupere e fichier.

Payement direct c'est quoi?

Les feuilles en rouges m'arrachent la retine, mais si ca vous convient....

f894009 · Answer

Bonjour,

Est il possible de diminuer le temps d'affichage du bouton bar ?

S'il disparait, il revient par quel miracle!

Pouvez expliquer?

f894009 · Answer

Bonjour,

Oui. Vous pouvez faire un model entre autre pour l'entete

Impression de quoi?

Vous avez essaye de cocher les cases sur dernier fichier que je vous ai mods a dispo

f894009 · Answer

Bonjour,

Payement seulement a la tournee fait.

Dois faire quelques modifs suite a tests

Pouvez expliquer en detail le fonctionnement du Payement Direct.

f894009 · Answer

Bonjour,

Comment pouvez vous utiliser excel avec des macro sur votre Tablette?

Table Payement direct:

possible avoir tournee ou pas?

Payement a la conso?

Ticket a la conso?

Vous avez pense a un model de ticket?

Commande:

Par table ou possible grouper x tables

Impression  Commande & Ticket:

Quelle type d'imprimante avez vous?

f894009 · Answer

Bonjour,

Votre imprimante recoit commande et/ou ticket comment?

Comment procedez vous pour les impressions commandes:

Table par table, groupement de commandes pour plusieurs tables?

Fichier a tester: https://www.cjoint.com/c/NByj1PUTW3g

A tester dans tous les sens

pour l'impression commande/ticket vous devez choisir l'imprimmante

Comment coller plusieurs fois la même ligne

63 réponses

Discussions similaires

Newsletters