triangle vert sur chiffre

[akmer]

--------------------------------------------------------------------------------

Bonjour,
J'effectue de la saisie dans une userforme et quand je valide sa enregistre tous dans une autre feuille.
Cependant les cases comportant des chiffres ont en haut à gauche un triangle vert, et si par exemple je souhaite faire la somme de ces casses le totale est de 0 alors que ce n'est pas sa.
La seule solution est de cliquer sur le petit point d'exclamation et convertir ces cases en textes pour que je puisse faire la somme.
N'hésiterai il pas un moyen de faire disparaitre ces triangles verts??peut être faut il que je configure les cases qui permetten la saisie dans la userform??!!!
J'ai trouvé comment faire disparaitre les triangles verts ( outils;option; verification des erreurs), ceci enléve bien les triangle verts mais ne fait pas la somme (il apparait toujours 0).
Je ne sais pas si je suis claire car c'est pa evident à expliquer.
Merci d'avance pour votre aide.
Cdt

ps: je joint le fichier: dans la feuille suivi il a la case somme en jaune et vous verrez que la somme ne se fait pas.
La saisie ce fait à l'aide du bouton "saisie" sur la feuille "accueil"
lien: http://cjoint.com/?izotqIT0as

 

[PascalXLD]

Re : triangle vert sur chiffre

Bonjour

Si tu zippes ton fichier il passe sur le forum ce qui sera plus utile que de le mettre sur cjoint où dans quelques semaines il disparaitra

Merci d'avance

 

[PascalXLD]

Re : triangle vert sur chiffre

Re

Il faut que tu entres tes valeurs ainsi

Cells(i, 9) = CDbl(TextBox6)
Cells(i, 10) = CDbl(TextBox7)
Cells(i, 11) = CDbl(ComboBox10)

Bien sûr à faire pour tous tes textbox etc contenant des valeurs chiffrées

Car dans un textbox il s'agit de string

 

[Creepy]

Re : triangle vert sur chiffre

Bonjour le Forum, Pascal, Akmer,

Ou encore il faut que tu mettes : Cells(i, 6) = TextBox4.Text

Et Excel prend bien du text.

Au passage j'ai modifié ta procédure CommandButton2_Click pour la faire plus propre. regarde le code ci-dessous.

Sub CommandButton2_Click()
Dim Boucle As Integer
For Boucle = 1 To 18 Step 1
    Select Case Boucle
    Case 1 To 14
        Me.Controls("Combobox" & Boucle).Text = ""
        Me.Controls("Textbox" & Boucle).Text = ""
    Case Else
        Me.Controls("Textbox" & Boucle).Text = ""
    End Select
Next Boucle
UserForm1.Hide
End Sub

@+

Creepy

 

[akmer]

Re : triangle vert sur chiffre

Merci beaucoup, le problème venez bien de là
Je ne peux pas joindre de fichier zip car ce logiciel est bloqué à mon boulo, dsl encore
Bonne journée et merci encore