Problème de remplissage Cellule

Bonjour, s'il vous plait, si quelqu'un peut me corriger ce code.

car il ne m'affiche pas le nom de la société (la première cellule) par contre les autres cellules se remplissent parfaitement

Private Sub btnAjout_Click()
Sheets("Fiche").Activate
Range("A1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
ActivateCell = txtSociete.Value
ActiveCell.Offset(0, 1).Value = txtTelephone
ActiveCell.Offset(0, 2).Value = txtFax
ActiveCell.Offset(0, 3).Value = txtMail
ActiveCell.Offset(0, 4).Value = txtFix
ActiveCell.Offset(0, 5).Value = txtAdresse
ActiveCell.Offset(0, 6).Value = txtCP
ActiveCell.Offset(0, 7).Value = cboVille
ActiveCell.Offset(0, 8).Value = txtObservation
ActiveCell.Offset(0, 9).Value = txtContact
End Sub

BOnjour,

ActivateCell.value = txtSociete.Value

sauf si erreur sur le nom de la textbox ?

Merci pour votre réponse

sauf ca ne fonctionne pas avec ActivateCell.value = txtSociete.Value, il m'affiche une erreur.

Et pourtant le nom du text box, il est correcte comme déclaré

d'autres pistes s'il vous plait?

Si les autres colonnes fonctionnent alors peut-être en écrivant de la même façon :

ActiveCell.Offset(0, 0).Value = txtSociete.Value

Toujours pas

il me donne msg d'erreur :

erreur d'exécution '424' objet requis

Alors peut être ainsi en décalant l'offset de 1 sur toutes les lignes et en supprimant le " Selection.Offset(1, 0).Select "

rivate Sub btnAjout_Click()
Sheets("Fiche").Activate
Range("A1").Select
Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Value= txtSociete
ActiveCell.Offset(1, 1).Value = txtTelephone
ActiveCell.Offset(1, 2).Value = txtFax
ActiveCell.Offset(1, 3).Value = txtMail
ActiveCell.Offset(1, 4).Value = txtFix
ActiveCell.Offset(1, 5).Value = txtAdresse
ActiveCell.Offset(1, 6).Value = txtCP
ActiveCell.Offset(1, 7).Value = cboVille
ActiveCell.Offset(1, 8).Value = txtObservation
ActiveCell.Offset(1, 9).Value = txtContact
End Sub

Merci énormément

ça compile parfaitement

Pour une fois que je trouve sans fichier test.