XL pour MAC Plusieurs formes pour remplir un tableau Excel

[dubarre]

Bonjour,

Je viens vers vous car j'ai essayé plusieurs formules, dans des nouveaux classeurs il fonctionne je n'arrive pas à comprendre pourquoi dans ce classeur là il ne veut pas fonctionner pouvez-vous m'aider s'il vous plaît.

Private Sub CmdAjouter_Click()

Sheets("ToilesRépertoriés").Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.Offset(0, 1).Select

ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 3).Value = ComboBox1
ActiveCell.Offset(0, 4).Value = ComboBox2
ActiveCell.Offset(0, 5).Value = ComboBox3
ActiveCell.Offset(0, 6).Value = ComboBox4
ActiveCell.Offset(0, 7).Value = TextBox3
ActiveCell.Offset(0, 8).Value = TextBox4
ActiveCell.Offset(0, 9).Value = TextBox5

End Sub

 

[Jacky67]

Bonjour,

Je viens vers vous car j'ai essayé plusieurs formules, dans des nouveaux classeurs il fonctionne je n'arrive pas à comprendre pourquoi dans ce classeur là il ne veut pas fonctionner pouvez-vous m'aider s'il vous plaît.

Private Sub CmdAjouter_Click()

Sheets("ToilesRépertoriés").Activate
Range("A1").Select
Selection.End(xlUp).Select
Selection.Offset(0, 1).Select

ActiveCell = TextBox1
ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 3).Value = ComboBox1
ActiveCell.Offset(0, 4).Value = ComboBox2
ActiveCell.Offset(0, 5).Value = ComboBox3
ActiveCell.Offset(0, 6).Value = ComboBox4
ActiveCell.Offset(0, 7).Value = TextBox3
ActiveCell.Offset(0, 8).Value = TextBox4
ActiveCell.Offset(0, 9).Value = TextBox5

End Sub

Bonjour,
Cela pourrait ressembler à ceci
Dans cette exemple aucune saisie n'est contrôlée de sa validité ou de son format

Private Sub CmdAjouter_Click()
Dim Derlg&
With Sheets("ToilesRépertoriés")
  Derlg = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
  .Cells(Derlg, 1).Value = TextBox1
  .Cells(Derlg, 2).Value = TextBox2
  .Cells(Derlg, 3).Value = ComboBox1
  .Cells(Derlg, 4).Value = ComboBox2
  .Cells(Derlg, 5).Value = ComboBox3
  .Cells(Derlg, 6).Value = ComboBox4
  .Cells(Derlg, 7).Value = TextBox3
  .Cells(Derlg, 8).Value = TextBox4
  .Cells(Derlg, 9).Value = TextBox5
End With
End Sub