Combobox saisi dans des cellules spécifiques

[TheProdigy]

Bonjour tout le monde et merci à ce forum de m'avoir aidé à trouver le code suivant grace à Lii. Je voudrais si possible ne pas saisir dans les lignes non vides qui se succèdent mais dans les cellules fixes. dans A1 B1 C1 & D1

Private Sub CommandButton1_Click()
  Derli = Range("A65000").End(xlUp).Row + 1
  ActiveSheet.Unprotect
  For Col = 1 To 4
    Cells(Derli, Col) = Controls("ComboBox" & Col)
  Next
  ActiveSheet.Protect
End Sub

Merci

 

[jp14]

Re : Combobox saisi dans des cellules spécifiques

Bonjour

Bonjour tout le monde et merci à ce forum de m'avoir aidé à trouver le code suivant grace à Lii. Je voudrais si possible ne pas saisir dans les lignes non vides qui se succèdent mais dans les cellules fixes. dans A1 B1 C1 & D1

Il suffit de modifier le code comme ceci

Private Sub CommandButton1_Click()
 Derli = Range("A65000").End(xlUp).Row + 1
  ActiveSheet.Unprotect
  For Col = 1 To 4
    Cells(1, Col) = Controls("ComboBox" & Col)
  Next
  ActiveSheet.Protect
End Sub

A tester

JP

 

[TheProdigy]

Re : Combobox saisi dans des cellules spécifiques

Exactement. Mais pourquoi il y a toujours ce compteur qui me dérange?
Supposant que je veux saisir dans X1 puis Y5 puis B 17 puis C20 par exemple vous voyez?
Je vous transments tout le code

Dim Cell As Range, Col As Byte

Private Sub UserForm_Initialize()
  For Each Cell In Range("opération")
    ComboBox1.AddItem Cell
  Next
  For Each Cell In Range("libellé")
    ComboBox2.AddItem Cell
  Next
  For Each Cell In Range("affectation1")
    ComboBox3.AddItem Cell
  Next
  For Each Cell In Range("affectation2")
    ComboBox4.AddItem Cell
  Next
End Sub
Private Sub CommandButton1_Click()
 Derli = Range("A65000").End(xlUp).Row + 1
  For Col = 1 To 4
    Cells(1, Col) = Controls("ComboBox" & Col)
  Next
End Sub
Private Sub CommandButton2_Click()
  Unload Me
End Sub

Encore merci

 

[jp14]

Re : Combobox saisi dans des cellules spécifiques

Bonsoir

Dans ce cas

Exactement. Mais pourquoi il y a toujours ce compteur qui me dérange?
Supposant que je veux saisir dans X1 puis Y5 puis B 17 puis C20 par exemple vous voyez?
Je vous transments tout le code

Private Sub CommandButton1_Click()
range("X1") = ComboBox1.value
range("y5") = ComboBox2.value
range("b17") = ComboBox3.value
range("c20") = ComboBox4.value

Les compteurs ou les boucles permettent une simplification ( moins on écrit, moins on se trompe), à condition que les données se suivent.


JP

 

[TheProdigy]

Re : Combobox saisi dans des cellules spécifiques

Ah je comprends
Merci infiniment