2 réponses
Bonjour,
Si vous n'avez pas change le nom des TextBox, la solution est dans ce que je viens d'ecrire et ce n'est pas .tex mais .Text
Si vous n'avez pas change le nom des TextBox, la solution est dans ce que je viens d'ecrire et ce n'est pas .tex mais .Text
bon quand je click sur debloquer
on selectionne ce qui suit en jaune
Insuv = [A1000].End(xIUp).Row + 1
aussi quand je fais passé le cursseur sur toutes les cellues, on me met Erreur définie par l’application ou par l'objet
on selectionne ce qui suit en jaune
Insuv = [A1000].End(xIUp).Row + 1
aussi quand je fais passé le cursseur sur toutes les cellues, on me met Erreur définie par l’application ou par l'objet
La première question à été résolue
mais voici mon prochain problème :
Private Sub CommandButton1_Click()
Sheets("GESTION").Activate
Dim Insuv As Integer
Insuv = [D1000].End(xlUp).Row + 1
Cells(Insuv, 4) = texBox1.Tex
Cells(Insuv, 5) = texBox2.Tex
Cells(Insuv, 7) = DateValue(texBox3.Value & "/" & texBox4.Value & "/" & texBox5.Value)
Cells(Insuv, 9) = texBox6.Tex
Cells(Insuv, 6) = texBox7.Tex
End Sub