Modifcation Lignes idem que combobox

Bonsoir,

Je voudrais effectuer des modifications par outils (colonne A).

Via l'userform, je sélectionne un outil (combobox1), je saisis en tetxbox1 et 2 et en validant je voudrais que les valeurs des textboxs se mettent en colonne B et C, pour chaque ligne de la colonne A qui sera égale au combobox1, avec ce code je n'y suis pas parvenu.

Option Explicit
Dim F As Worksheet

Private Sub UserForm_Initialize()
    Dim mondico, a, i As Long
    Set F = Sheets("BD")
    Set mondico = CreateObject("Scripting.Dictionary")
    a = F.Range("A2:A" & F.[A65000].End(xlUp).Row)
    For i = LBound(a) To UBound(a)
        If a(i, 1) <> "" Then mondico(a(i, 1)) = ""
    Next i
    Me.ComboBox1.List = mondico.keys
End Sub

Private Sub CmdValider_Click()
    Dim C As Range
    Application.ScreenUpdating = False
    For Each C In Range(F.Cells(2, 1), F.Cells(Rows.Count, 1).End(3))
        If Me.ComboBox1 <> "" Then
            If C = Me.ComboBox1 Then C.Offset(0, 1) = Me.TextBox1: C.Offset(0, 3) = Me.TextBox2
        Else
            MsgBox "Combobox vide"
            Exit Sub
        End If
    Next
    Application.ScreenUpdating = True
    Unload Me
End Sub

En vous remerciant par avance.

J'avoue ne rien comprendre, il a fallu que je réécrive le même code pour que ça fonctionne.

Private Sub CmdValider_Click()
    Dim C As Range
    Application.ScreenUpdating = False
    For Each C In Range(F.Cells(2, 1), F.Cells(Rows.Count, 1).End(3))

        If Me.ComboBox1 <> "" Then
            If C = Me.ComboBox1 Then C.Offset(0, 1) = Me.TextBox1: C.Offset(0, 3) = Me.TextBox2 'réécriture de cette ligne sans modification
        Else
            MsgBox "Combobox vide"
            Exit Sub
        End If
    Next
    Application.ScreenUpdating = True
    Unload Me
End Sub
Bonne soirée.

Bonjour,

Dans le classeur joint, le code est un peu différent

For Each C In Range(F.Cells(2, 3), F.Cells(Rows.Count, 3).End(3))

A+

Bonsoir Frangy,

En effet, je ne me suis rendu compte qu'après avoir ouvert la discussion. J'ai corrigé le code du poste mais je ne l'ai pas fait sur le fichier joint. Mais je reste perplexe, car je n'ai fait que réécrire le code de la ligne repérée par des astérisques pour que ça fonctionne. J'espère ne pas avoir ne pas avoir de mauvaises surprises.

Merci pour ton retour, bonne soirée.