Bonjour,

Débutant sur VBA (excel), j'ai créé des Useforms (conetnant des textBox, des menus déroulants et des boutons) me permettant de guider les utilisateurs, afin de récupérer les informations nécessaires, pour l'utilisation d'une "base de données". Base de données regroupel'ensemble des informations d"une Affaire de Travaux à réaliser (Type de marché, Type de prestations, Lieux d'exécution - Commune - département, etc ...).

L'une de ces TextBox définit la désignation de l'affaire, et je récupere les choix fait par les utilisateurs dans deux menus déroulant pour la Commune et le Département.


Tb_NomAff est la TextBox rempli par les utilisateurs pour définir le Nom de l'affaire
Range("NomAff") est ma plage de cellule fusionnée reprenant Tb_NomAff

Private Sub Tb_NomAff_Change()

'Va chercher la valeur du Texte Tb_NomAff
'Et remplit les cellules fusionnées Etude de Prix!E1:L4 ("NomAff")

Range("NomAff") = Tb_NomAff

End Sub

Range("CodeDépartement") me permet d'identifier le choix du département, selon ce choix (clic sur B_Dept1 = choix Val de Marne ou clic sur B_Dept2 = choix Seine et Marne), je modifie la liste des communes possible dans le menu déroulant (soit Com94 : liste des communes du Val de Marne, soit Com77 liste des communes de Seine et Marne).
Range("Département") reprend le choix du Département
Range("Commune") reprend le choix de la Commune

Private Sub B_Dept1_Change()

'Cherche la Selection du Département
'Remplit la cellule Etude de Prix!M16
'Et modifie la Liste des Communes

If Fra_Dept.B_Dept1 Then
Range("CodeDépartement") = 1
Li_Comm.RowSource = "Com94"
Else
Range("CodeDépartement") = 2
Li_Comm.RowSource = "Com77"
End If

Li_Comm.ListIndex = 0

End Sub

Private Sub B_Dept2_Change()

'Cherche la Selection du Département
'Remplit la cellule Etude de Prix!M16
'Et modifie la Liste des Communes

If Fra_Dept.B_Dept2 Then
Range("CodeDépartement") = 2
Li_Comm.RowSource = "Com77"
Else
Range("CodeDépartement") = 1
Li_Comm.RowSource = "Com94"
End If

Li_Comm.ListIndex = 0

End Sub

Private Sub Li_Comm_Click()

'Cherche la Selection de la Commune

Commune = Li_Comm.ListIndex
Range("CodeCommune") = (Commune + 1)

If Fra_Dept.B_Dept1 Then
Range("NumCom") = (Commune + 2)
Else
Range("NumCom") = (Commune + 49)
End If

NumLigne = Range("NumCom")
Range("Département") = Sheets("Base de donnée").Range("B" & NumLigne).Text
Range("Commune") = Sheets("Base de donnée").Range("A" & NumLigne).Text

Mon probleme me parrait tres simple, mais je n'arrive pas à m'en sortir ...
Je cherche à regrouper dans une seule plage de cellule fusionnée (nommée Désignation : par exemple), le nom de l'affaire, la commune de réalisation et son département.

Dans un premier temps je cherche "juste" à concaténer (je ne sais pas si c'est le bon terme), ces informations ...
dans un deuxième temps je souhaiterais mettre en forme automatiquement cette cellule, afin que sur la premiere ligne j'ai le nom de l'affaire et sur la deuxième ligne : "Commune de :" Choix de commune & "- Département :" Choix du Département.

Existe t il une solution à mon probleme ?

Merci d'avance ...

Configuration: Windows XP
Internet Explorer 6.0