Comment coller plusieurs fois la même ligne
Geo13 -
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
- Comment coller plusieurs fois la même ligne
- Partager photos en ligne - Guide
- Aller à la ligne excel - Guide
- Mètre en ligne - Guide
- Historique copier coller - Guide
- Apparaitre hors ligne instagram - Guide
63 réponses
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?
Bonjour,
Ca, j'avais compris mais en ligne ou en colonne le bouton suivant
Que ce passe-t-il si toutes les tables sont occupees et une se libere au mileux, vous la reatribuerez avant que toutes les tables seront liberees?
Votre fichier se plante souvent!!
Pour le reste nous aviserons au fur et a mesure de l'avancee
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 ?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
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
Suite:
Modif copy x lignes faites pour table1(zwexrcvtybun)
https://www.cjoint.com/c/MGrozxymI0g
Vous avez aussi le emplissage nom table en ligne
Suite1
y a une erreur de feuille dans le fichier precedent
correction: https://www.cjoint.com/c/MGrpCMmEceg
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
Re,
Evidement, ca coule de source
Je regarde la chose
Y a quand meme pas mal de modif
C'est urgent votre truc?
Bonjour,
C'est possible de faire la copie dans l'usferform ?
Actuellement, vous pouvez corriger si erreur de quantite, vu que ceci est avant la copie.
Si copie dans UF, sera un peu plus complique de rectifier si erreur de quantite.
Y a quand meme pas loin de 700 precedures a modifier en dehors de l'UF Quantite, que la copie se fasse dans l'UF ou avec le code Actuel.
Pourquoi suivant les feuilles y a un melange de bouton de formulaire et bouton controls ActiveX?
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
En attendant, un fichier pour avoir un apercu: https://www.cjoint.com/c/MHpgJ7fvuKg
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,
Ok
Bonjour,
une fois que j'appuie sur le bouton
Tout a fait Thierry, mais comment vous faites pour savoir quelle est la ligne a supprimer?
Vous avez deja un bouton supprimer sur l'UF UF_Gestion_Cmd_Table
Il faut selectionner une cellule colonne A de le feuille et click sur le bouton.
C'est ce que vous aviez commence a coder et que j'ai modifie pour que ca "marche"
Private Sub Cmd_Supprimer_Click()
Call all
End Sub
Sub all()
With Sheets(Table_Choisie)
.Range("A" & ActiveCell.Row).Resize(, 5).Delete
End With
End Sub
Bonjour,
Le bouton supprimer qui est existant, il sert en cas d'erreur d'encodage.
J'aimerai bien un autre bouton mais celui-ci garderai le prix dans une variable ce qui me permettrai de savoir mon chiffre de la journée.
pour savoir qu'elle ligne est a supprimer, je la selectionnerai avant d'appuye sur le bouton
Bonjour,
elle recoit les infos via wifi
table par table comme ca le bar peut preparer les commande recue par le service de salle
Re,
Le payement de la tourné c'est parfait.
l'impression pour les commandes avec le choix de la tournée c'est nickel :)
Par contre, pour l'impression, est il possible de n'imprimer que les celulles necessaire ?
Exemple, ne pas imprimer les colonnes réglé et tournée ?
La largueur du papier n'est que de 80mm pour information :)
Comment dois je faire pour modifier les couleurs des userform ?
Voici un exemple que j'ai fais pour imprimer les vidanges
https://www.cjoint.com/c/NBBpOaWJW3f
Bonjour,
Toujours occupé ?