Bonjour à tous,
N.B : Le fichier en PJ est un aperçu du vrai fichier mais le bug est bel et bien là.
Je suis coincée face à un problème de version Excel.
J'ai crée mes fichiers sous Excel 2007 et ils comportent des formulaires qui permettent de saisir des données qui seront placées automatiquement grâce à un code (voir ci-dessous). Dans certaines colonnes, il y a des formules qui sont étendues jusqu'aux lignes 1200 environ.
Le code permet d'aller chercher la dernière ligne remplie et colle donc les informations saisies en dessous. Le fichier fonctionnait super bien. Sauf que dans l'atelier, les PC fonctionnent sous Excel 2003. Et là...c'est le drame!
Quand j'entre les saisies sous XL 2003, il place correctement les premières saisies mais arrivé au Range D, les données sont rentrées tout en bas, c'est à dire en dessous de la dernière ligne de formule.
J'en déduis donc qu'XL 2003 compte mes formules =SI comme des lignes remplies, y'a t-il un moyen d'éviter ce problème? Parce que je ne peux pas du tout enlever ces formules .
Cordialement,
Tsoin.
Code :
N.B : Le fichier en PJ est un aperçu du vrai fichier mais le bug est bel et bien là.
Je suis coincée face à un problème de version Excel.
J'ai crée mes fichiers sous Excel 2007 et ils comportent des formulaires qui permettent de saisir des données qui seront placées automatiquement grâce à un code (voir ci-dessous). Dans certaines colonnes, il y a des formules qui sont étendues jusqu'aux lignes 1200 environ.
Le code permet d'aller chercher la dernière ligne remplie et colle donc les informations saisies en dessous. Le fichier fonctionnait super bien. Sauf que dans l'atelier, les PC fonctionnent sous Excel 2003. Et là...c'est le drame!
Quand j'entre les saisies sous XL 2003, il place correctement les premières saisies mais arrivé au Range D, les données sont rentrées tout en bas, c'est à dire en dessous de la dernière ligne de formule.
J'en déduis donc qu'XL 2003 compte mes formules =SI comme des lignes remplies, y'a t-il un moyen d'éviter ce problème? Parce que je ne peux pas du tout enlever ces formules .
Cordialement,
Tsoin.
Code :
Range("E" & Range("E" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = ListBox1.Value
Range("A" & Range("A" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = CDate(TextBox1.Text)
Range("D" & Range("D" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox3.Value
________________BUG à partir d'ici___________________________
Range("F" & Range("F" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox4.Value
Range("G" & Range("G" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox7.Value
Range("J" & Range("J" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox9.Value
Range("O" & Range("O" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox12.Value
Range("N" & Range("N" & Cells.Rows.Count).End(xlUp).Row + 1).Select
ActiveCell.Value = TextBox11.Value
Pièces jointes
Dernière édition: