Comment coller plusieurs fois la même ligne

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

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

Bonjour,

Je recupere le fichier et regarde la chose

devient le nom du bouton suivant vierge

En ligne ou colonne?

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 ?

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

Super merci beaucoup :)

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

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 ?

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

je connais un peu le VBA.

Vous pouvez m'aider ?

Re,

Evidement, ca coule de source

Je regarde la chose

Y a quand meme pas mal de modif

C'est urgent votre truc?

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 

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

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

Bonjour, "sorry, j'etais en vacances" Encore!!!!! Moi, c'est F894009, pas sorry.. Je me replonge dans votre fichier

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

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?

Bonjour,

la ligne sélectionner en cas d'erreur 

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

Bonjour,

Ok, je vois

Bonjour,

Ok

Bonjour,

Je regarde comment vous faire ca