Modification d'un userform

Bonjour le Forum !

Dans ce fichier modèle, un userform s'affiche lorsque l'on clique sur les cellule de la colonne I du tableau (de I6 à I & LigneAjout).

Grâce a cet userform, il est possible de sélectionner un item (un seul par cellule). Tout fonctionne !

Cependant, j'ai ajouté une textbox pour appliquer le même choix à différentes cellules d'après le N°.

Par exemple, lorsque l'on clique sur la cellule I6, l'userform1 s'ouvre, on sélectionne un item, puis on choisit le n° 3-5 (sélection de 3 à 5) ou 3;5 (sélection 3 et 5).

Comment puis-je faire ??

Merci par avance,

Amicalement

Bonsoir Walden

Essaye avec ce code

Private Sub CommandButton1_Click()
  Dim a As Long ' Variable pour les lignes tjs en long
  Dim Quoi As String, TabL() As String
  Dim Ind As Integer, FirstLig As Long, LastLig As Long, Lig As Long
  Dim LigneAjout As Long

  With Me.ListBox1
    For i = 0 To .ListCount - 1
      If TextBox1 = "" And .Selected(i) = True Then
        a = ActiveCell.Row
        Range("I" & a).Value = .List(i)  ' cas du premier mot pas de ";" avan
      End If

      If TextBox1 <> "" And .Selected(i) = True Then
        a = ActiveCell.Row
        LigneAjout = Range("NumLigne").End(xlDown).Row
        Quoi = TextBox1.Value
        ' Séparation par tiret
        If InStr(1, Quoi, "-") > 0 Then
          FirstLig = Left(Quoi, InStr(1, Quoi, "-") - 1)
          LastLig = Mid(Quoi, InStr(1, Quoi, "-") + 1)
          For Lig = FirstLig To LastLig
            Range("I" & Lig).Value = .List(i)
          Next Lig
        ElseIf InStr(1, Quoi, ";") > 0 Then
          ' Séparation par point-virgule
          TabL = Split(Quoi, ";")
          For Ind = 0 To UBound(TabL)
            Range("I" & Val(TabL(Ind))).Value = .List(i)
          Next Ind
        Else
          Range("I" & a).Value = .List(i)  ' cas du premier mot pas de ";" avan
        End If
      End If
    Next i
  End With
  Unload UserForm4
  Range("F2").Select
End Sub

A+

Bonjour BrunoM45,

Merci beaucoup de ta réponse ! Je teste ça et je te dis ce qu'il en est !

Merci encore !

Amicalement

Bonjour

Une autre façon

Bonjour BrunoM45, Banzai64, le Forum,

Merci à vous 2 pour vos réponses ! Les 2 fonctionnent !

La proposition de Banzai64 dépasse (comme d'habitude) mes espérances, je continue donc avec cette version !

Merci encore de votre aide,

Excellente journée,

Amicalement