textbox écrit à droite de la cellule sélectionnée par combobox

[pascal21]

bonsoir à tous
avec un usf et un combobox je sélectionne une cellule contenant des dates en colonnes B
j'ai 2 textbox ensuite que je dois complèter sur la même ligne que la cellule sélectionnée précédemment
ex date sélectionnée en b5 textbox1 écrit en c5 textbox2 en d5
ensuite idem textbox mais avec des checkbox de f à J
voir fichier joint pur mieux comprendre
je cherche le code qui permet d'écrire à droite de la cellule sélectionnée par le combobox
merci

 

[skoobi]

Re : textbox écrit à droite de la cellule sélectionnée par combobox

Bonjour Pascal,

voici un exemple pour le code du bouton "OK":

Private Sub CommandButton1_Click()
Label2.Visible = True
ActiveCell.Offset(, 1).Value = TextBox1.Value
ActiveCell.Offset(, 2).Value = TextBox2.Value
For i = 1 To 5
  If Controls("CheckBox" & i) Then ActiveCell.Offset(, i + 3).Value = "1"
Next
End Sub

 

[Lii]

Re : textbox écrit à droite de la cellule sélectionnée par combobox

Bonsoir,

Avec simplification possible :

Dim Li As Integer, I As Byte
Private Sub UserForm_Initialize()
  For Li = 3 To Sheets(1).Range("B65536").End(xlUp).Row
    ComboBox1.AddItem Format(Range("B" & Li), "dddd dd mmmm yy")
  Next
End Sub

Private Sub ComboBox1_Change()
  Label2.Visible = IIf(ComboBox1 = "", True, False)
End Sub

Private Sub CommandButton1_Click()
  If ComboBox1 = "" Then Exit Sub
  Li = ComboBox1.ListIndex + 3
  Cells(Li, 3) = TextBox1.Value
  Cells(Li, 4) = TextBox2.Value
  Cells(Li, 11) = TextBox3.Value
  For I = 1 To 5
   If Controls("Checkbox" & I) Then Cells(Li, 5 + I) = 1
  Next
End Sub

 

[pascal21]

Re : textbox écrit à droite de la cellule sélectionnée par combobox

bonsoir skoobi lii
skoobi j'ai essayé ton code qui fonctionne parfaitement
j'ai juste un petit soucis avec les checkbox que je n'arrive pas à remettre à zéro j'ai mis ce code dans le commandbutton click

checkbox1.value =""

ça ne fait que griser les coches et si je tente une nouvelle saisie j'ai un message d'erreur "utilisation incorecte de null" (????)
quel est le code qui permet de remettre à zéro un checkbox?
merci

 

[skoobi]

Re : textbox écrit à droite de la cellule sélectionnée par combobox

Re,

une coche peut être TRUE ou FALSE:

CheckBox1.Value = False

 

[pascal21]

Re : textbox écrit à droite de la cellule sélectionnée par combobox

merci skoobi
je venais de tomber sur la même réponse dans les archives du site
bonne soirée