Bonsoir le forum,
J'ai bien évidemment un petit problème et j'en appel a votre aide , d'avance merci à ceux qui s'attarderons dessus.
Voila j'ai un fichier excel .XLSM, dans lequel se trouve un bon nombre de macro et code VBA, lorsque je l'utilise sur un PC tout fonctionne il n'y a aucun problème, mais lorsque je l'utilise sur un autre pc, certaines fonction m'affichent une erreur de compilation. et la c'est le drame , je ne peut vous laissez le fichier en exemple car il y a beaucoup de données confidentielles ( bon c'est pas top secret mais tout de même).
J'ai pu tout de même remarquer que les codes qui ne fonctionne pas sont notamment des codes private_sub, qui se trouvenet dans des userform (mais ca a mon humnle avis ca ma l'air d'une conclusion bien stupide) Ci joint l'exemple d'un code qui foire c'est d'ailleurs généralements ceux-la mais la ou je reste perplexe c'est uniquement sur un autre pc.
J'ai d'abords cherhcer mille solutions bien evidemment mais pas une seule once de solution a mon probleme .
Private Sub CommandButton6_Click()
Dim L As Long 'Déclaration de variable "L" pour connaitre la Ligne Numéro
' Ici c'est le report de la saisie dans la feuille
With Sheets("Directs")
' Ici je repère la dernière ligne vide pour la Collections des données
L = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 13 To 44
If Controls("TextBox" & i) <> "" Then .Cells(L, i).Value = Val(Controls("TextBox" & i).Value)
Next
.Range("A" & L).Value = TextBox44.Value
.Range("B" & L).Value = TextBox33.Value
.Range("C" & L).Value = TextBox34.Value
.Range("D" & L).Value = TextBox24.Value
.Range("E" & L).Value = TextBox25.Value
.Range("F" & L).Value = TextBox23.Value
.Range("G" & L).Value = TextBox30.Value
L = .Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 2
If Controls("ComboBox" & i) <> "" Then .Cells(L, i).Value = Val(Controls("ComboBox" & i).Value)
Next
.Range("H" & L).Value = ComboBox2.Value
End With
End Sub
J'ai bien évidemment un petit problème et j'en appel a votre aide , d'avance merci à ceux qui s'attarderons dessus.
Voila j'ai un fichier excel .XLSM, dans lequel se trouve un bon nombre de macro et code VBA, lorsque je l'utilise sur un PC tout fonctionne il n'y a aucun problème, mais lorsque je l'utilise sur un autre pc, certaines fonction m'affichent une erreur de compilation. et la c'est le drame , je ne peut vous laissez le fichier en exemple car il y a beaucoup de données confidentielles ( bon c'est pas top secret mais tout de même).
J'ai pu tout de même remarquer que les codes qui ne fonctionne pas sont notamment des codes private_sub, qui se trouvenet dans des userform (mais ca a mon humnle avis ca ma l'air d'une conclusion bien stupide) Ci joint l'exemple d'un code qui foire c'est d'ailleurs généralements ceux-la mais la ou je reste perplexe c'est uniquement sur un autre pc.
J'ai d'abords cherhcer mille solutions bien evidemment mais pas une seule once de solution a mon probleme .
Private Sub CommandButton6_Click()
Dim L As Long 'Déclaration de variable "L" pour connaitre la Ligne Numéro
' Ici c'est le report de la saisie dans la feuille
With Sheets("Directs")
' Ici je repère la dernière ligne vide pour la Collections des données
L = .Range("A" & Rows.Count).End(xlUp).Row + 1
For i = 13 To 44
If Controls("TextBox" & i) <> "" Then .Cells(L, i).Value = Val(Controls("TextBox" & i).Value)
Next
.Range("A" & L).Value = TextBox44.Value
.Range("B" & L).Value = TextBox33.Value
.Range("C" & L).Value = TextBox34.Value
.Range("D" & L).Value = TextBox24.Value
.Range("E" & L).Value = TextBox25.Value
.Range("F" & L).Value = TextBox23.Value
.Range("G" & L).Value = TextBox30.Value
L = .Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To 2
If Controls("ComboBox" & i) <> "" Then .Cells(L, i).Value = Val(Controls("ComboBox" & i).Value)
Next
.Range("H" & L).Value = ComboBox2.Value
End With
End Sub
