Message d'erreur userforme

Bonsoir

Débutant excel , j'essaie d'intégrer ces deux macros dans mon user forme mais j'ai un message d'erreur. je pense que je dois faire une faute pour grouper ces deux programme car c'est au niveau du second private Sur UserForm_initialize() : nom ambigu détecté

merci

Private Sub UserForm_Initialize()

Dim col As Integer

col = 1

Do While Cells(1, col).Value <> ""

UserForm1.ComboBox1.AddItem Cells(1, col).Value

col = col + 1

Private Sub UserForm_Initialize()

Do While Cells(2, col).Value <> ""

UserForm1.ComboBox2.AddItem Cells(2, col).Value

col = col + 1

Loop

End Sub

Bonjour et bienvenue sur le forum

Il ne peut y avoir qu'une seule macro "UerForm_Initialize() dans une feuille VBA pour userform.

Essaie ainsi :

Private Sub UserForm_Initialize()
    Dim col As Integer
    col = 1
    Do While Cells(1, col).Value <> ""
        ComboBox1.AddItem Cells(1, col).Value
        ComboBox2.AddItem Cells(2, col).Value
        col = col + 1
    Loop
End Sub

Si ça ne va toujours pas, joins ton fichier.

Bye !

Bonjour,

Ou encore :

Private Sub UserForm_Initialize()

    Dim Plage

    With ActiveSheet: Plage = .Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp)): End With
    ComboBox1.List = Plage

    With ActiveSheet: Plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)): End With
    ComboBox2.List = Plage

End Sub

Bonjour, j'ai actuellement le même problème quant à deux codes que j'aimerais associer pour éviter une erreur de compilation pour cause de nom ambigu. Est-ce que quelqu'un pourrait créer une macro les incluants les deux?

Code #1 :

Private Sub btnCREATE_Click()

Range("A2").Value = txtCUP.Text

Range("B2").Value = txtSKU.Text

Range("C2").Value = txtKEY.Text

Range("D2").Value = txtDESC.Text

Range("E2").Value = txtCST.Text

Range("F2").Value = txtPRX.Text

Range("G2").Value = txtDEPT.Text

Range("H2").Value = txtPGE.Text

End Sub

Code #2

Private Sub btnCREATE_Click()

Range("A2").Select

ActiveCell.End(xlDown).Select

lastrow = ActiveCell.Row

MsgBox = lastrow

Cells(lastrow + 1, 1).Value = txtCUP.Text

Merci d'avance!

Bonjour,

C'est ceci que tu veux ?

Private Sub btnCREATE_Click()

    Dim Lig As Long

    With ActiveSheet: Lig = .Cells(.Rows.Count, 1).End(xlUp).Row + 1: End With 'sur colonne A

    MsgBox Lig '<-- je suppose que c'est pour le test !

    Cells(Lig, 1).Value = txtCUP.Text
    Cells(Lig, 2).Value = txtSKU.Text
    Cells(Lig, 3).Value = txtKEY.Text
    Cells(Lig, 4).Value = txtDESC.Text
    Cells(Lig, 5).Value = txtCST.Text
    Cells(Lig, 6).Value = txtPRX.Text
    Cells(Lig, 7).Value = txtDEPT.Text
    Cells(Lig, 8).Value = txtPGE.Text

End Sub