Rapport de message :*
 

Re: Modification de contenu de cellules suivant sélection

Titre du sujet : Re: Modification de contenu de cellules suivant sélection
par Mth le 08/08/2012 01:37:01

Bonsoir Titom, myDearFriend

Ci-joint un petit essai avec une Listbox intégrée dans la feuille (contrôle ActiveX qui, à tort ou à raison, me semblait plus simple que de passer par l'intermédiaire d'un Userform).
J'y ai laissé une ligne vide pour pouvoir laisser des cellules à blanc en cas de besoin, on sélectionne l'élément dans la Listbox puis le libellé choisi s'inscrit dans les cellules que l'on sélectionne ensuite dans le tableau.

Le code dans Feuil1:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
If Not Intersect(Target, Range("B2:H5")) Is Nothing Then
    Dim Monchoix As String
    Monchoix = Sheets("Feuil2").Range("A1").Offset(ListBox1.ListIndex, 0)
   
    For Each c In Selection
        c.Value = Monchoix
    Next c
    Cancel = True
End If
End Sub
 

(Pour ta dernière question je crois qu'il est impossible de colorier la police d'une Listbox, il semble qu'il faille passer par une Listview, donc conserver ton Userform dans ce cas)

Tu auras sans doute de meilleures propositions mais vois si ce petit essai peut t'aider.

Bonne soirée/nuit,

mth