Discussion :

[maclolo2]

bonjour,

Je n'arrive pas à attribuer à ma cellule la valeur de ma textbox.
J'ai une combobox avec le nom des personnes qui recherche dans une colonne excel si le nom y est et si oui, alors je copie le contenu de ma textbox dans une colonne AC de la même ligne.
mais ma textbox ne renvoie pas le texte saisi dans la cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub CommandButton1_Click()
    Sheets("tableau").Activate
    nbLignes = Cells(Rows.Count, "B").End(xlUp).Row
    For i = 1 To nbLignes
    If (InStr(1, CStr(Range("B" & i).Value), strTemp, vbTextCompare) = Formation.ComboBox1.Value) Then
        Sheets("tableau").Cells(i, 29).Value = Formation.TextBox1.Value
    End If
    Next i
    Unload Formation
End Sub

merci pour toute aide

[jackborogar]

Bonjour,

Essayes en retirant le ".Value" après ton Textbox1 et dis moi

Cdt,

[gFZT82]

Bonjour,

J'aurais mieux vu quelque chose comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CommandButton1_Click()
Dim strTemp As String
Dim nbLignes As Long, i As Long
    With Worksheets("tableau")
        nbLignes = .Cells(.Rows.Count, "B").End(xlUp).Row
        strTemp = Formation.ComboBox1.Value
        For i = 1 To nbLignes
            If InStr(1, CStr(.Range("B" & i)), strTemp, 1) > 0 Then
                .Cells(i, 29).Value = Formation.TextBox1.Value
            End If
        Next i
        Unload Formation
    End With
End Sub

Cordialement.

[maclolo2]

merci beaucoup ca fonctionne parfaitement.