Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Feuille de vente (liste triées + civilité)

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

Douds68160

XLDnaute Occasionnel
Bonjour le forum,

Voila je suis sur le point de créer un entreprise (statut auto-entrepreneur) et j'aimerais faire un fichier reprenant plusieurs données (fournisseur, client, taxe,…)
Mais je bute déjà sur une mise en forme comment mettre un menu déroulant dans une cellule en reprenant des données d'une autre feuille :
En J5 le nom du client avec la civilité (feuille données client) (j'ai trouvé des trucs sur le site Boisgontier (SUPER bien fait 😉 ) mais je n'arrive pas à l'adapter chez moi… trop nul le gars 🙁 🙁 )
Et comment faire pour insérer des lignes en gardant la mise en forme + les formule (si c'est possible) a par en faisant glisser le formule des cellules "type"
Je compte sur vous pour m'aider a réaliser ce fichier (en m'expliquant) car grâce a vous (voir poste précédent…) j'ai bien avancé en VBA…
Un grand merci à ce forum! 🙂 🙂
 

Pièces jointes

Trier par date Trier par votes
Re : Feuille de vente (liste triées + civilité)

Bonjour
Il est déjà très bien ce fichier !

Vous pourriez simplement rajouter à la fin des formulaires, quelques instructions :
Code: 
    .Range("K" & dl1).Formula = "=RC[-10] & "" "" &RC[-9]" 'rajout de la formules
    
    'enfin, redéfinition du nom de la zone
    ActiveWorkbook.Names.Add Name:="Liste_clients", RefersToR1C1:="='Données clients'!R2C11:R" & dl1 & "C11"

Plus qu'à mettre à jour l'autre formulaire avec le même logique

En espérant vous avoir un peu aidé

Olivier
 
Vote positif 0 Vote négatif
Re : Feuille de vente (liste triées + civilité)

Bonjour,

Merci Odesta, mais je rencontre un petit soucis pour votre code..
Je ne sais pas dans quel formulaire le saisir, et en plus j'ai un message d'alerte concernant le code (erreur de compilation.)

Merci pour l'intervention
 
Vote positif 0 Vote négatif
Re : Feuille de vente (liste triées + civilité)

Bonjour
C'est à rajouter dans le code du formulaire Client.

Pour le formulaire Fournisseur, la zone nom est différente, et il n'y a pas l'air d'avoir de formule.

Cordialement
 
Vote positif 0 Vote négatif
Re : Feuille de vente (liste triées + civilité)

Re.
Vous n'êtes pas dans le code du formulaire, mais dans un Module.
Pour accéder au code du formulaire, ouvrir le UserForm Saisie_cli

Vous y trouver le formulaire. Faite un clique-droite / CODE.
Vous aller voir ce code :

Code: 
Private Sub UserForm_Initialize()
   Me.Civilite.List = Array("M.", "Mme", "Mlle")
   
 End Sub

Sub Valider_Click()
With Sheets("Données clients")
dl1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'dercol = [IV3].End(xlToLeft).Column

    .Range("A" & dl1).Value = Civilite.Value
    .Range("B" & dl1).Value = Nom.Value
    .Range("C" & dl1).Value = Prenom.Value
    .Range("D" & dl1).Value = Adresse.Value
    .Range("E" & dl1).Value = CP.Value
    .Range("F" & dl1).Value = Ville.Value
    .Range("G" & dl1).Value = Pays.Value
    .Range("H" & dl1).Value = E_mail.Value
    .Range("I" & dl1).Value = Tel.Value
    .Range("J" & dl1).Value = Portable.Value



End With

Unload Me

End Sub


Private Sub Annuler_Click()
Unload Me
End Sub






Il suffit apres la ligne
.Range("J" & dl1).Value = Portable.Value

de rajouter ceci :
Code: 
    .Range("K" & dl1).Formula = "=RC[-10] & "" "" &RC[-9]" 'rajout de la formule
    
    'enfin, redéfinition du nom de la zone
    ActiveWorkbook.Names.Add Name:="Liste_clients", RefersToR1C1:="='Données clients'!R2C11:R" & dl1 & "C11"


Dites-nous si vous rencontrez des problèmes
Cordialement
Olivier
 
Vote positif 0 Vote négatif
Re : Feuille de vente (liste triées + civilité)

Re bonjour,

Yaouh, merci, il faut dire que j'ai fait mon boulet sur ce coup,… 😕
Mille mercis pour ce code (ça marche nickel!) qui du coup va alléger mon fichier…
Cordialement.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

K
  • Question Question
XL 2021 Créer un document imprimable à partir d'une liste de commande
Réponses
1
Affichages
335
sylvanu
J
  • Question Question
XL 2016 Tableau de bord - report de données
2
Réponses
16
Affichages
2 K
chris
F
  • Résolu(e)
Microsoft 365 Copier à tour de rôle les éléments d'une liste vers une même cellule
Réponses
1
Affichages
453
flint125
F
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
2 K
Pac41240
P
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
784
job75
  • Résolu(e)
XL 2019 Aide pour un module d'archivage de feuille en pdf dans répertoire
Réponses
5
Affichages
1 K
Nico2978
J
  • Question Question
Microsoft 365 Importer via vba les données et la mise en forme d'une feuille dans un autre classeur
Réponses
9
Affichages
952
sylvanu
P
  • Question Question
XL 2016 Renvoyer les informations d'une feuille générale à une feuille détaillée
Réponses
0
Affichages
459
Pauuul35
P
F
  • Question Question
Microsoft 365 Faire un onglet de Récap de tous les onglets
Réponses
5
Affichages
1 K
Fanou44
F
J
  • Question Question
XL 2016 Parcourir les chaînes de caractères et mettre en gras si elles contiennent des chiffres
Réponses
5
Affichages
1 K
JN1
J
L
  • Résolu(e)
Microsoft 365 Macro copie de lignes entières d'un onglet général vers onglets détaillés à partir d'une colonne oui/non
Réponses
9
Affichages
2 K
job75
L
  • Question Question
Microsoft 365 Créer un récap de plusieurs factures
Réponses
0
Affichages
1 K
Ludo1977
L
B
  • Question Question
XL 2016 Recherche de façon de procéder pour liste déroulante
Réponses
6
Affichages
2 K
BOB130
B
O
  • Question Question
XL 2019 copie de cellule en fonction d'un numéro de listing de référence
Réponses
1
Affichages
1 K
Jacky67
R
  • Question Question
XL 2019 Objet : Copier/coller des valeurs d'une plage de cellules colorées avec MFC dans une deuxième feuille
2
Réponses
15
Affichages
3 K
Rom1-51
R
P
  • Question Question
XL 2019 Travail d'un fichier en vue d'une intégration dans un logiciel de comptabilité
Réponses
3
Affichages
1 K
Pouh
P
D
  • Résolu(e)
XL 2013 Sortir les données de plusieurs feuilles
Réponses
5
Affichages
1 K
Draian
D
N
  • Question Question
XL 2016 Transposer des informations pour creer un planning
Réponses
4
Affichages
1 K
WTF
N
  • Résolu(e)
XL pour MAC Refonte complete d'un fichier, besoin d'idées
8 9 10
Réponses
147
Affichages
14 K
Staple1600
M
  • Question Question
XL 2016 Importation + Comparateur de prix VBA
Réponses
1
Affichages
999
kingfadhel
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…