nrdz83
XLDnaute Impliqué
Bonjour à tous, voila ma question j'ai réalisé un programmme avec l'aide de pleins de personnes sur le forum et il fonctionne impeccablement sur mon pc, par contre sur les oridinateurs de mon travail il ne fonctionne pas . Déjé sur un pc avec windows 2000 et excel 2000 j'ai cette erreur
Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
Dim Mois As Byte, tmp(21) As Variant
Mois = Month(DTPicker1)
With Sheets(Mois + 1)
DerLig = .Range("A65000").End(xlUp).Row + 1
tmp(0) = DTPicker1
tmp(1) = ComboBox1
tmp(2) = TextBox3
tmp(3) = TextBox4
tmp(4) = TextBox1
tmp(5) = .Cells(DerLig, 6).FormulaR1C1 ' Nécessaire pour ne pas effacer le contenu de cette cellule.
tmp(6) = ComboBox2
tmp(7) = ComboBox3
tmp(8) = ComboBox5
tmp(9) = TextBox2
tmp(10) = ComboBox4
tmp(11) = ComboBox6
tmp(12) = ComboBox7
tmp(13) = ComboBox8
tmp(14) = ComboBox9
tmp(15) = ComboBox10
tmp(16) = ComboBox11
tmp(17) = ComboBox12
tmp(18) = ComboBox13
tmp(19) = ComboBox14
tmp(20) = ComboBox15
.Range(.Cells(DerLig, 1), .Cells(DerLig, 1).Offset(0, 20)).Value = tmpEnd With
' On décharge le formulaire
Unload Me
End Sub
et sur les autres pc équipé de xp et office 2003 dans mes feuilles mensuel en colonne A au lieu d'avoir la date 14/01/2009 ça s'affiche 01/14/2009 ?
et en colonne F (total) ma formule D4-D3 est transformé par RC4-RC3 et du coup formule fausse?
Pourquoi d'un pc à un autre ça change ?
D'avance merci pour vos lumières
Private Sub CommandButton1_Click()
' Mise en place des valeurs saisies
Dim Mois As Byte, tmp(21) As Variant
Mois = Month(DTPicker1)
With Sheets(Mois + 1)
DerLig = .Range("A65000").End(xlUp).Row + 1
tmp(0) = DTPicker1
tmp(1) = ComboBox1
tmp(2) = TextBox3
tmp(3) = TextBox4
tmp(4) = TextBox1
tmp(5) = .Cells(DerLig, 6).FormulaR1C1 ' Nécessaire pour ne pas effacer le contenu de cette cellule.
tmp(6) = ComboBox2
tmp(7) = ComboBox3
tmp(8) = ComboBox5
tmp(9) = TextBox2
tmp(10) = ComboBox4
tmp(11) = ComboBox6
tmp(12) = ComboBox7
tmp(13) = ComboBox8
tmp(14) = ComboBox9
tmp(15) = ComboBox10
tmp(16) = ComboBox11
tmp(17) = ComboBox12
tmp(18) = ComboBox13
tmp(19) = ComboBox14
tmp(20) = ComboBox15
.Range(.Cells(DerLig, 1), .Cells(DerLig, 1).Offset(0, 20)).Value = tmpEnd With
' On décharge le formulaire
Unload Me
End Sub
et sur les autres pc équipé de xp et office 2003 dans mes feuilles mensuel en colonne A au lieu d'avoir la date 14/01/2009 ça s'affiche 01/14/2009 ?
et en colonne F (total) ma formule D4-D3 est transformé par RC4-RC3 et du coup formule fausse?
Pourquoi d'un pc à un autre ça change ?
D'avance merci pour vos lumières