Exporter valeur textbox par selection dans combobox
Bonjour le Forum
Dernier coup de main fichier bien avancé
il me reste quand même un petit problème.
quand je valide pour ajouter un nvx client tout se passe bien sauf que mes données ne se collent jamais sur la première ligne sous les titres.
D 'autant plus si je décide de formater les cellules (couleur, format téléphone etc..) ça copy n'importe ou
je joint les fichiers
le code est dans le module7 et l'autre dans le user
les fichiers sont dans le même répertoire
Merci
Cordialement
Le forum,
Le fichier client n'est pas complètement vide sans compter les entêtes.
CTRL+END nous amène très loin à droite et pas sur la ligne 2.
Il faudrait supprimer les colonnes de H à la fin.
Il faudrait supprimer les lignes de 2 à 22 ou plus.
Ou encore, repartie d'un fichier neuf.
Jim
Bonjour,
Je suis déjà reparti d'un fin fichier neuf et idem dés que je met en forme des cellules ça part en vrille.
Et les entêtes j"en ai besoin .
Pour l'heure je n'ai pas de solution !
Le forum,
Des exemples de mises forme des cellules du fichier_client s.v.p.
Afin de mieux comprendre la problématique.
Jim
la forum,
juste la couleur ligne d’entête avec sa police gras
et format téléphone dans la colonne téléphone.
rien de plus.
Le Forum,
Observation :
- si "Fichier_Clients.xlsx" est fermé, les données y sont écrites sans respecter le format des cellules du fichier.
- si "Fichier_Clients.xlsx" est ouvert, les données y sont écrites en respectant le format des cellules du fichier.
Jim
jim55
Je viens de tester les 2 méthodes aucune ne respecte le format tel la cellule est au format texte
et je viens de me rendre compte que quand je selectionne un N° dans la combo pour ensuite modifier une donnée quand je clic modifier
erreur :
End If
Source.Execute sSQL
Source.Close
Set Source = Nothing
MsgBox "Mise à jour avec succès"
'Unload Me
End If
Le Forum,
L'erreur mentionné provient du format des données dans les cellules.
Est-ce essentiel que "Fichier_Clients" ne soit pas ouvert pour y écrire ?
Si on peut ouvrir en arrière plan le fichier pour y écrire, on peut y écrire tout en gérant le format des données dans les cellules.
Jim
Oui ce ne serait pas gênant parce que je vérifie quand même a chaque fois si c'est bien noté.
le mieux ce serait que la feuil soit dans le même classeur actif mais ça je ne sais pas faire.
Bonjour forum
Bonjour JIM et merci pour ton temps
Merci d'avoir creusé super présentation avec le tri
Premier essai quand je je valide pour ajout ça me colle toujours les données à ligne 64 la je comprend pas
Pour ajout bun nvx client faut-il se placer obligatoirement sur la feuil CLIENT ??
car quand je me positionne sur la feuil devis et que j'ajoute ça ne passe pas
sinon select combo ajout données sur feuil nickel
modif select combo nickel ici ca fonctionne peut importe la feuil active
super boulot
je te joins ma feuil de test regarde a partir de la ligne 64
Bonjour,
Un essai ... corrections de quelques points ...
- il manquait le point devant Cells, la ligne était lue sur la feuille DEVIS et non sur CLIENTS d'où l'écriture sur la mauvaise ligne
Dlig = .Cells(Rows.Count, 1).End(xlUp).Row + 1
- j'ai ajouté la vérification au cas où le numéro serait déjà présent.
- gestion du numéro de téléphone à 10 chiffres
- tri du tableau de la feuille "CLIENTS"
- en ajoutant un nouveau, il est déjà prêt à être inscrit sur la feuille "DEVIS" via le bouton "OK"
ric
Bonjour Ric
Forum
Merci pour l’intérêt et ces modifs,
par contre je n'ai plus le choix quand je sélectionne un num de client de pouvoir modifier les coordonnée du client pour : soit changer (l’adresse, le tel ou le mail)
je dois le faire directement dans la feuille CLIENTS
Dautre part lorsque j'ajoute le nvx clients il est bien reporté dans la feuille CLIENT à la bonne place mais un beug se produit ici :
Sub TrierTableau()
ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields. _
Add2 Key:=Range("Tableau1[N°client]"), SortOn:=xlSortOnValues, Order:= _
xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Bonjour,
Une correction ...
Private Sub Cbo_NoClient_Change()
Me.CommandButton_Ajouter.Caption = "Modifier"
N = Me.Cbo_NoClient.ListIndex + 2
Call NoClient_Suite
End Subric
Désolé Ric mais ça ne modifie pas
Bonjour,
Je suis désolé, mes derniers changements lors du ménage du code ont tout bousillé.
J'ai changé le fichier au post de 13:01 ... ça devrait mieux fonctionner.
ric
Le Forum,
ric a pris la relève ... good.
Jim
Bonsoir Ric, Jim
Forum
Suis de sortie je regarde ça tout à l'heure !
Bonjour Ric,
Forum,
j'ai teste la version 3 mais sans resultat toujours un beug ici:
Sub TrierTableau()
'ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields.Clear
'ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort.SortFields. _
'Add2 Key:=Range("Tableau1[N°client]"), SortOn:=xlSortOnValues, Order:= _
'xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("CLIENTS").ListObjects("Tableau1").Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Alors j'ai testé en supprimant cette étape et tout fonction nickel (ajout, modif, transfert donnée feuil devis)
puis jai rajouté un bouton réinitialise..
je te joins le fichier complet pour que tu vois .. et si tu veux apporter des modif d’efficacité je suis preneur en particulier sur le module 2 ou je me suis servi de l’éditeur de macro un peu pourri comme macro mais bon ça marche
Un grand merci a toi Ric pour ta perspicacité et a Jim qui est intervenue.
Bonjour,
En supprimant les scroll et les select, on obtient ...
Sub EDITION_FACTURES()
' WILLY Macro
Dim WsD As Worksheet
Dim WsF As Worksheet
Set WsD = Sheets("DEVIS")
Set WsF = Sheets("FACTURE")
WsD.Range("F2:H2").Copy
WsF.Range("F2:H2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("B12").Copy
WsF.Range("B12").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("B14").Copy
WsF.Range("B14").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("H17").Copy
WsF.Range("H18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("F9:F11").Copy
WsF.Range("F9:F11").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("F14:F17").Copy
WsF.Range("F15:F18").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
WsD.Range("A21:F54").Copy
WsF.Range("A21:F54").Paste
WsD.Range("G59").Copy
WsF.Range("G59").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Range("L1").Select
End Subric