Sheets("Feuil2").cells (X, Y) = textbox1.value
Sheets("Feuil2").Cells(x, y).Value = TextBox1.Value
Private Sub CommandButton4_Click()
Dim li As Long 'déclare la variable li
li = Sheets([COLOR=red]"[/COLOR]interlocuteur[COLOR=red]"[/COLOR]).Range("A65536").End(xlUp).Row + 1 'définit la variable li
Sheets([COLOR=red]"[/COLOR]interlocuteur[COLOR=red]"[/COLOR]).Cells(li, 1) = TextBox1.Value
End Sub
Bonjour le fil, bonjour le forum,
Visiblement tu as juste oublié les guillemets et un espace en trop à Ro w...
Code:Private Sub CommandButton4_Click() Dim li As Long 'déclare la variable li li = Sheets([COLOR=red]"[/COLOR]interlocuteur[COLOR=red]"[/COLOR]).Range("A65536").End(xlUp).Row + 1 'définit la variable li Sheets([COLOR=red]"[/COLOR]interlocuteur[COLOR=red]"[/COLOR]).Cells(li, 1) = TextBox1.Value End Sub