Elargir la fonction" merge "à l'ensemble du tableau (voir sujet en page 2)rRESOLUE

[br44]

Bonjour a toutes et à tous ,

j'ai recherche sur le forum une procédures qui permettrais de rentrée une liste de clients dans un tableau par l'intermédiaire d'une combo box associer une texte box située dans userform ; à moins que cela ne soit pas possible ?

j'ai essaye d'adapter une procédure trouver sur le forum mais rien me fonctionne le souci c'est que je n'est aucun résulta qui s'affiche dans mon tableau .

je vous joint bien entendu un fichier en exemple ; je voudrais alimentée le tableau située sur le feuille "Fiche clients " .

Vous remerciant par avance pour le coup demain et suis désoler de vous demander une chose aussi basic que celle ci ;mais là je tourne en rond et cela m'énerve .

pour infos il s'agit simplement d'entrer un n° client et le nom dans les deux premières colonnes du tableau . ouvertures de l'userform part les touches : ctrl + a

j'aurais un autres fonction à rajouter avant l'enregistrement . si vous pouviez me donner le code
je me débrouillerais pour le rentrer et de le completer moi même .

inséré un nouvelle onglet portant le n° du clients qui lui a était attribué.

vous remerciant par avance pour tout je vous dit à bientôt . br44

 

[CHALET53]

Bonjour,

Un début
a+

 

[br44]

bonjour chalet 53

merci beaucoup pour cette réponse rapide ; ta solution me convient sur le principe ,mais pourquoi tu mets 2 TextBox lors que j'aurais voulu une combobox pour le n° de clients et une textbox pour le noms

de manière à l'utiliser dans l'autres sens dans un deuxièmes temps

Si tu pouvait me donner la raison se serais super a près je vais essayer d'adapter ta macro , mais si pour des raison de formats dit moi que ne me borne pas a essayer quelques choses qui ne fonctionneras pas .

je te remercie de nouveaux pour le coup de main et te teins au courant pour la suites

 

[CHALET53]

Une combobox permet de sélectionner un nom (par exemple) dans une liste de noms dont tu disposerais dans un onglet
S'il s'agit de saisir un nom et un numéro de client : 2 textboxs sont appropriés

 

[br44]

re bonjour juste pour vous dit que j'ai réussi a faire les modifies avec une combobox

a plus pour le suite

 

[br44]

re bonjour chalet 53
merci beaucoup pour ta réponse .
aurais tu par hazard le procédure v.b.a pour créer un onglet pour chaqu'un des enrgistrement de manière à avoir une feuille par clients ?

 

[br44]

Bonjour a tous et à Chalet 53
se petit message pour vous donner des nouvelles dans l'avancement de mon projet .
Pour se qui est de l'insertion d'un nouvel onglet c'ok
pour lui attribuer un nom c'est fait aussi .
j'en suis à la phase de copier le Tableau situe en feuille 2 dans le nouvel Onglet créer
je vous joint bien sur un fichier avec les nouveau éléments et la macro qui bloque .
le débogueur me donne la raison suivantes ; "Erreur d'execution '424' Objet requis et
il bloque au niveau de la définition de ma variable sht (Nouvelle Onglet ) .
d'avoir une copie de la feuille 2 dans chacun des nouveaux onglets .
La Feuille 2 servant de model .

En espérant êtres claire dans ma demande je vous remercie par avance du coup de main que voudrez bien me donnée . je reste à vôtres disposition pour toutes question qui vous serez utile .

De plus si vous avez pas le temps juste l'explication de l'erreur et la procédure permettant de résoudre le problème me suffiras je ferais mon possible pour faire le rectification .

A bientôt et merci d'avance br44

 

[CHALET53]

Re,
Comme ceci peut-être (j'ai supprimé les blancs en double dans tes noms de feuilles)
Si la feuille créée existe, il y a plantage car pas de contrôle de l'existence avant la création. Ce serait peut-être utile

Private Sub CommandButton1_Click() 'Boutton "ENREGISTER "
Dim feuil As String
'Définit et nome la variable NS
' Set NS = Worksheet.Add '<====Bloquage ici / ERREUR D'EXCECUTION'424'
' OBJET REQUIS

If NumClient = "" Then MsgBox ("Saisir un numéro de client"): Exit Sub
If NomClient = "" Then MsgBox ("Saisir un nom de client"): Exit Sub
Derligne = Sheets("Fiche Client").Range("A65").End(xlUp).Row + 1
If Derligne < 6 Then Derligne = 6
Cells(Derligne, 1) = Application.Proper(NumClient.Value): Cells(Derligne, 2) = Application.Proper(NomClient.Value)

'j'insert les nouveaux onlets
'je selectionne le feuile qui précède l'insertion
Sheets("DETAIL FICHE CLIENTS").Select
'je nome ne nouvel Onglet créer
feuil = "FCI " & NumClient.Value
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = feuil

'La procèdure fonctionne bien sans le dernière prtie ci-dessous
'Je selectione la plage à copier
With Sheets("DETAIL FICHE CLIENTS")
.Range("A1:A65536").Copy
With Sheets(feuil).Range("A1")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
End With
End With
End Sub

 

[br44]

Bonjour Chalet53 ,

merci, à toi pour cette réponse rapide le temps de tester tous ça et je reviens vers vous pour vous tenir au courant .
petite question : si j'ai d'autres question sur le même projet ,mais le même sujet dois je ouvrir un nouveau poste où garder celui ci en modifiant le titres ?
merci en core et à bientôt

 

[br44]

Bonjour a toutes et tous et à toi Chalet 53 ,

Comme convenue je te donne des nouvelles suite au dernière modifications .
tout fonctionne bien j'y juste ajouter cette ligne de code :
".PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False"
pour qu'il ajuste la taille des colonnes .
mais pour la hauteurs des lignes il n'y a rien que je puisse faire , car certes il ajuste les lignes au conteue de cellules , mais de la hauteur de lignes du model .
qui sont (pour infos) :
row("3","6:9","122:124") =20
row ("10","125")=32
row("11:121")=25

j'ai essayer le formule suivantes :
".PasteSpecial Paste:=xlPasteRowheights, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False"
mais cela ne change rien .

Voilà si tu peux voir si il y a une solution je suis preneur , mais se n'est pas une priorité c'est juste pour ne pas prendre de risque avec de format différents c'est tout .
Te remerciant pour ton aide et de vous toutes et tous je vous dit à bientôt pour la suite de se programme lol
Amicalement BR44

 

[CHALET53]

Regarde si ça le fait avec cela :

Private Sub CommandButton1_Click() 'Boutton "ENREGISTER "
Dim feuil As String
'Définit et nome la variable NS
' Set NS = Worksheet.Add '<====Bloquage ici / ERREUR D'EXCECUTION'424'
' OBJET REQUIS
If NumClient = "" Then MsgBox ("Saisir un numéro de client"): Exit Sub
If NomClient = "" Then MsgBox ("Saisir un nom de client"): Exit Sub
Derligne = Sheets("Fiche Client").Range("A65").End(xlUp).Row + 1
If Derligne < 6 Then Derligne = 6
Cells(Derligne, 1) = Application.Proper(NumClient.Value): Cells(Derligne, 2) = Application.Proper(NomClient.Value)

'j'insert les nouveaux onlets
'je selectionne le feuile qui précède l'insertion
Sheets("DETAIL FICHE CLIENTS").Activate
'je nome ne nouvel Onglet créer
feuil = "FCI " & NumClient.Value
ActiveWorkbook.Sheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = feuil

'La procèdure fonctionne bien sans le dernière prtie ci-dessous
'Je selectione la plage à copier
With Sheets("DETAIL FICHE CLIENTS")
.Range("A1:A65536").Copy
With Sheets(feuil).Range("A1")
.PasteSpecial Paste:=xlValues
.PasteSpecial Paste:=xlFormats
.Range("A3").Select
Selection.RowHeight = 20
.Range("A6:A9").Select
Selection.RowHeight = 20
.Range("A122:A124").Select
Selection.RowHeight = 20
.Range("A11:A121").Select
Selection.RowHeight = 25
.Range("A10", "A125").Select
Selection.RowHeight = 32
End With
End With
End Sub

 

[br44]

Re bonjour merci pour cette réponse si rapide . je te tiens au courant A plus

 

[br44]

bonsoir a tous le monde , et bonsoir à toi Chalet53 .
tout d'abord je vous tiens à m'excuser pour le temps mis a répondre suite à nos dernier échanges .
Je te rassure tout fonctionne bien pas de souci de se coté la .
je suis donc passer à le phase 2 de mon projet qui vas êtres d'alimenter "les Fiche individuel Client " .
pour se faire je me sert d'un UserForm qui vas reprendre le N° et le Nom du client .

mais j'ai déjà un problème que je ne comprend pas je n'arrive pas afficher les éléments suivants à l'ouverture de l'Userform .
C'est éléments sont :
le N0 et le Nom du clients l'un d'une combo Box l'autres dans une textbox il s'agit en faites de récupéré les N° et Noms qui sont dans les 2 premières colonnes de la feuilles "Fiche Clients" .
j'ai créer 3 autres listes de choix la première pour les n° de la semaine allant de1 à 4 la seconde pour le n° de la Journée allant de 1 à 7 et la troisième pour la liste des produits qui est la même que la colonne A de la feuille "Détail Fiche Client "
pour cela je me suis basé sur d'ancienne macro à moi que me suis contenté de modifier au niveau des noms pour elle fonctionne avec se fichier .
cela à l'aire de fonctionner car je aucun message d' erreur . la seul chose c'est que l'userfrom et vide .si quelqu'un peux m'expliquer pour quoi? ,et ai-je commis un n'oublie et où .Cela me permettras de progresser .

pour le reste du programme je reviendrais vers vous, car cela vas se compliqué donc un problème a la fois .

Je bien sur préparer un ficher avec les deux feuilles concerné par le résultat de nôtres premier userform .
et avec le nouveau qui s'ouvre ave les touches crtl+b .

Voilà en espérant que je sois claire damns ma demandes et que vous pourrez répondre à mon interrogation ,

je vous dit à bientôt et merci d'avance . br44

 

[CHALET53]

Bonjour,

Ce n'est peut-être pas suffisant mais ta procédure d'initialisation du Userform n'a pas de End Sub
Il ne faut pas l'intituler :
Private Sub UserForm2_Initialize() mais ;

Private Sub UserForm_Initialize()

Essaie cela et corrige les anomalies

a+

 

[br44]

bonjour chatlet53 , le forum

Bon je te remercie pour cette réponse . le changement de nom de l'usf n'a rien changer horis mis que ma macro d'ouverture ne fonctionnais plus .

je voulais savoir si il faut mètres la liste de choix au formats numérique pour celle qui serais concerné .
et pour quoi cela ne s'affiche pas dans les listeBox qui leurs attribuées.
Tu me de made de régler quelque anomalie . pourrais tu me dire dès qu'elle il s'agit pour que je puissent le les rectifiées .
Bon et bien je retourne à ma réflexion et je te tien au courant .

et cas merci pour le coup de main . Amicalement Br 44