XL pour MAC Plusieurs formes pour remplir un tableau Excel

dubarre

XLDnaute Nouveau
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.

Code:
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
 

Fichiers joints

Jacky67

XLDnaute Accro
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.

Code:
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
Code:
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
 
Dernière édition:

Discussions similaires


Haut Bas