Userform, placer les données selon condition

Bonjour à tous,

Je galère depuis quelque temps, pourtant je suis persuadé que la réponse est toute bête.

J'ai une base de données, recensant des entreprises.

Je souhaite remplir cette base à l'aide d'un userform. Dans ce userform j'ai un menu déroulant comportant le nom des entreprises.

C'est la le problème ; J'aimerai qu'en fonction de l'entreprise sélectionnée, les cellules de destination s'adaptent.

J'ai essayé le code suivant mais sans succès :

Private Sub CommandButton1_Click()
Dim L As Integer

If ComboBox3.Value = "Entreprise 1" Then

L = Sheets("Base").Range("a65536").End(xlUp).Row + 1

        Range("A" & L).Value = TextBox1
        Range("B" & L).Value = ComboBox1
        Range("C" & L).Value = ComboBox2
        Range("D" & L).Value = TextBox2
         End If

   If ComboBox3.Value = "Entreprise 2" Then

L = Sheets("Base").Range("e65536").End(xlUp).Row + 1

        Range("E" & L).Value = TextBox1
        Range("F" & L).Value = ComboBox1
        Range("G" & L).Value = ComboBox2
        Range("H" & L).Value = TextBox2

    End If
        MsgBox "Données ajoutées"

        Unload Me
End Sub

Si quelqu'un pouvait m'aiguiller, merci d'avance.

Luc

capture

Bonjour lucas54000, le forum,

Tu n'as pas précisé dans quelle feuille tu écrivais tes données --> With Sheets("Base") / End With

J'ai différencié la variable de "Entreprise 1" et celle de "Entreprise 2". --> L1 , L2

Essaie ainsi:

Private Sub CommandButton1_Click()

    With Sheets("Base")
        Dim L1 As Integer, L2 As Integer

         If ComboBox3.Value = "Entreprise 1" Then

            L1 = Sheets("Base").Range("a65536").End(xlUp).Row + 1

            .Range("A" & L1).Value = TextBox1
            .Range("B" & L1).Value = ComboBox1
            .Range("C" & L1).Value = ComboBox2
            .Range("D" & L1).Value = TextBox2
         End If

        If ComboBox3.Value = "Entreprise 2" Then

             L2 = Sheets("Base").Range("e65536").End(xlUp).Row + 1

            .Range("E" & L2).Value = TextBox1
            .Range("F" & L2).Value = ComboBox1
            .Range("G" & L2).Value = ComboBox2
            .Range("H" & L2).Value = TextBox2

        End If

      End With

            MsgBox "Données ajoutées"

            Unload Me
      End Sub

Cordialement,

12lucas54000.xlsm (22.57 Ko)

Suuuuper Merci beaucoup

Rechercher des sujets similaires à "userform placer donnees condition"