Menu déroulant avec texte associer au choix fait

[patrick965]

BONJOUR LES AMIS

D'ABORD MERCI POUR VOTRE TEMPS
J’EXPLIQUE
J'AIMERAIS QUE L'OSQUE JE FAIS UN CHOIX DE MODÈLE DANS LA CASE MODÈLE DEMANDER DANS UN MENU DÉROULANT DE MA SOUMISSION. J'AIMERAIS QU'IL Y AIT UN TEXTE QUI RELIER AU CHOIX FAIT S’AFFICHE DANS LA CASE détail des caractéristiques et options du modèle choisi DE MA SOUMISSION
POUR ÉVITER QUE J’ÉCRIVE TOUJOURS TOUS LES MÊMES TEXTES CHAQUE FOIE.
JE NE SAIS PAS CI J'AI BIEN DÉCRIT CE QUE JE CHERCHE A FAIRE.
J'AIMERAIS SAVOIR COMMENT FAIRE ÉTAPE PAR ÉTAPE SVP PARCE QUE J'AI BEAUCOUP DE TEXTE est ENTRÉ VU QU’IL Y A BEAUCOUP DE MODES.

JE VOUS OFFRE UN EXEMLE EN IECE JOINTE

MERCI BEAUCOUP

 

[camarchepas]

Re : Menu déroulant avec texte associer au choix fait

Bonjour Patrick,

Voici une premiére proposition, chaque modéle devra être séparé par une ligne vide comme dans l'exemple

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

Bonjour

Merci beaucoup pour ton travail vraiment extra c’est exactement ce que je cherche a faire
La seule chose est que j’aimerais qu’il n’y ai pas de ligne vide dans la colonne de description parce que le texte est un exemple le texte original ou les textes son beaucoup plus long et prenne presque toujours toutes les lignes d’onc le double inter ligne est as a envisagé aurrais tu une autre solution et de lus pourrais tu m’expliquer comment as-tu fait les étapes de tes démarches svp pour que je puisse les appliquer a tous mes autres textes ..
et peu ton associer un prix de vente dans la colonne prix exemple 2000$ le Luxembourg de base
1850 le Charlesbourg etc

Un gros gros merci a toi ...

 

[camarchepas]

Re : Menu déroulant avec texte associer au choix fait

Re ,

Voici donc le fichier encore optimisé.

donc en feuil3 , colonne A on passe une ligne à vide pour délimité le texte de l'option précédente
une ligne pour le titre Marseille par exemple , à répéter en colonne C de la feuil3
puis le texte associé sur les lignes suivantes
en colonne B si l'on veut l'on peut associer un prix en face des lignes

et c'est tout , le reste ce régle automatiquement :

voici le code commenté situé dans le module de la feuille facture de service

Private Sub Worksheet_Activate()
'programme la liste de choix en fonction des donnée renseignées dans la colonne C de la feuil3
Dim LigneFin As Long
'Calcul derniere ligne
  LigneFin = Sheets("Feuil3").Range("C" & Rows.Count).End(xlUp).Row
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=Feuil3!$C$2:$C$" & LigneFin
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Trouve As Range
Dim LigneFin As Long, Tourne As Long, Position As Long
'Interdit les procédure événementiels pendant l'éxécution de celle ci
Application.EnableEvents = False
'Si uniquement une cellule de sélectionnée
If Target.Count = 1 Then
'Si l'adresse de la cellule modifiée est D16
If Target.Address = "$D$16" And Target <> "" Then
 'Efface l'ancien texte
 Range("c18:G33") = ""
 'Recherche de la valeur de la cellule modifiée dans la colonne A de la feuil3
 Set Trouve = Sheets("Feuil3").Range("A:A").Find(Target, lookat:=xlWhole)
  'Si trouvé
 If Not Trouve Is Nothing Then
  'Recherche fin de texte associé à ce modéle
  LigneFin = Sheets("Feuil3").Cells(Trouve.Row, Trouve.Column).End(xlDown).Row
  'Ligne de départ
  Position = 18
  'Boucle de scrutation des lignes du modéle
  For Tourne = Trouve.Row + 1 To LigneFin
   Range("c" & Position) = Sheets("Feuil3").Range("A" & Tourne).Value
   Range("G" & Position) = Sheets("Feuil3").Range("B" & Tourne).Value
   Position = Position + 1
  Next
 End If
End If
End If
Application.EnableEvents = True
End Sub

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

Bonjour

Merci beaucoup pour le Temps passer sur mon document
pourriez vous me dire si je peu répéter la même action pour plusieurs texte et modèle et si oui aise-ce que je doit ajouter des choses dans la grosse formule.
désoler je suis assez débutant sur Excel et j'ai besoin de finaliser mes soumissions.
merci beaucoup pour votre aide très précieuse précieuse.

 

[camarchepas]

Re : Menu déroulant avec texte associer au choix fait

PAtrick ,

Je ne comprends pas trop la demande ,

un petit fichier exemple de ce que tu voudrais améliorer serait surement plus parlant

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

bonjour
je suis en train de vouloir mettre en application ce que tu ma appris sur un autre document Excel m'ais ne comprend pas trop ca ne fonctionne pas trop
dit moi je peu t'envoyer le document en privez sur le quel j'essais de recrée ce que l'on a fait sur celui ci.

merci

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

bonjour M


j'ai esseillé de mettre en application ce que vous m'avez appris comme vous aller le voir, mais ça ne fonctionne pas.
pouvez vous m'expliquer ou est mon erreur je veux faire la même chose que ce qu'on a fait sur le document précédent. Sans affecter les autres fonctionnalités. Des feuille de soumission et calcule.

De plus je ne sais pas trop ce que j'ai fait, mais j'ai esseiller d'enregistrer une macro (macro 1 et textboc17 )dans la section livrée a et j'aimerais l'enlever parce que quand je clique dans la section livrée a ça me donne un message d'erreur et il me repose le débogage et quand je fais celui-ci le numéro de soumission et l'enregistrement et la création de ficher ne ce fais plus. j'aimerais pouvoir changer l'adresse ou autre dans cette section comme avant que je fasse ses macros, mais je ne suis plus capable de les enlever.

Et pour terminer j'aimerais que dans la section client et livré a que les titre comme nom,adresse,ville,no de téléphone, etc reste en gras, mais que ce que j'écris c'est a dire les informations que j'entre eu ne sois pas en gras et je ne trouve pas comment faire .

Merci énormément de tout ton aide ça fais 2 ans que je travaille fort là-dessus et travaille encore a apprendre, mais il y a des foies des moments que nous devrons demander de l'aide.

merci encore

 

[camarchepas]

Re : Menu déroulant avec texte associer au choix fait

Voici pour les réparations ,

Pas bien grave ,

Il restait encore quelques feuil3 à transformer en feuil9 ( tu peux utiliser le recherche remplace dans ces cas là , cela permet de ne pas en oublier .

Le code est en commentaire pour le moment , il ne t"embêtera plus

Pour le reste , il faut que je regarde de plus pres , mais , c'est encore de la macro .

Bon , avec ton code , j'ai du me mettre en création pour pouvoir faire une sauvegarde sans remplir tout le formulaire , lol

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

bonjour

merci pour ton temps
je me demandais pkoi le menu déroulant est en c18 c20 et c 21 au lieu de juste les choix de model en d16 il y a t'il une raison quelconque.
et je ne voie pas comme changer les feuil3 en feuil 9 pour ne pas en oublier.
a tu pue voir pour ce qui étais tu texte gras dans ce que j' écrit dans client et livré a...

merci éééééééééénormément lolll

 

[camarchepas]

Re : Menu déroulant avec texte associer au choix fait

Re ,

Bon un peu d'explications :

Donc pour la liste déroulante du modéle en D16 ,

j'utilise la validation de données dans laquelle tu peux définir une liste .

Pour des raisons de simplicité, je charge cette liste dans une colonne dédiée dont les cellule sont l'une en dessous des autres,

Cela à l'avantage aussi de pouvoir les trier facilement par ordre alphabétique par exemple .

Voilà pourquoi la colonne C ,

A chaque fois que tu reviens sur l'onglet facture , la liste est remis à jour via l'événementiel Activate de la feuille


Je viens de modifier encore un peu mon code comme cela pour adapter la Feuille et la colonne , il suffit de changer les constantes dans le module1


Public Const Base_Liste As String = "Feuil9"
Public Const Col_Liste As String = "C"

Voilà , pour l'écriture en gras , je regarde

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

bonjour

merci beaucoup pour ton travail et merci de me donner des nouvelles pour les caractère gras

 

[patrick965]

Re : Menu déroulant avec texte associer au choix fait

bonjour a toi

je me demandais si je peu avoir un menu déroulant dans la case D16 parce qu'il va y avoir envieront 20 modelés avec des nom différant et sa fais beaucoup a se rappeler d'on si je les ajoute dans mon menu déroulant je vais éviter de chercher .
merci beaucoup a toi ...