Valeur de 2 combobox dans une cellule

[joums]

Bonjour,

Je souaiterais affecter la valeur de 2 combobox dans une cellule

Je pensais faire ceci ...

'Déclaration des combobox
Dim N As Byte
Dim P As String
 
Set N = ComboBox4.value
Set P = ComboBox2.value

Sheets("Feuil1").Range("A5").Select
ActiveCell.FormulaR1C1 = "TEST" & "N" & Chr(10) & "P"

Mais ca ne marche pas, j'aurai donc besoin de votre aide
Merci

 

[Hulk]

Re : Valeur de 2 combobox dans une cellule

Hello,

Peut-être simplement comme ceci...

Private Sub CommandButton1_Click()

    If ComboBox4.Value <> "" [COLOR="Red"][B]Or[/B][/COLOR] ComboBox2.Value <> "" Then
        Sheets("Feuil1").Range("A5").Value = "TEST " & ComboBox4.Value & Chr(10) & ComboBox2.Value
    End If

    'ou

    'If ComboBox1.Value <> "" [COLOR="red"][B]And[/B][/COLOR] ComboBox2.Value <> "" Then
    '    Sheets("Feuil1").Range("A5").Value = "TEST " & ComboBox1.Value & Chr(10) & ComboBox2.Value
    'Else
    '    MsgBox "S'il vous plaît, remplissez les deux champs !"
    'End If

    
End Sub

À adapter !