Transcription dans l'ordre

[roby]

Bonjour le Forum

Dans le fichier joint, j'aimerai faire correspondre les valeurs des TextBox
(exemple: GSMCS011111) sur la feuille, suivant les choix sélectionnés et
si possible en gardant le même format 000 000 qui correspond aux 6 derniers chiffres, mais lorsque je valide un astérisque s'affiche sur la feuille me disant si je veux convertir en nombre. ( l'extraction des 6 chiffres se fait suivant la formule Right(TextBoxn;6) ).
Peut-on trouver une solution?

Deux tableaux supplémentaires sont représentés pour les résultats désirés.


Dans l'attente, je vous souhaite un bon après midi.


Roby

 

[Guest]

Re : Transcription dans l'ordre

Bonjour,

Voir du côté des fonctions de conversion, CInt, Cdbl, Val etc....

Exemple:

Cellule =Cdbl(Textbox1.Text)

Mettre les cellules au format désiré dans l'interface utilisateur ou

Cellule.NumberFormat ="000 000"

A+

 

[roby]

Re : Transcription dans l'ordre

Re Hasco, le Forum

j'ai modifié avec CDBL et je n'ai plus d'astérisque. Mais j'ai toujours le problème de la transcription des valeurs sur la feuille.
La boucle ne doit pas correspondre à mon souhait.

Roby

 

[roby]

Re : Transcription dans l'ordre

Re le forum

Personne peut m'aider sur mon problème posé

bonne fin de journée.

 

[roby]

Re : Transcription dans l'ordre

Bonsoir le forum

ci-dessous le code qui me pose un problème:


Private Sub OK_Click()
'Bouton Valider
Dim n, NbTxt As Integer
If OptionButton1 = True Then 'Choix 1
NbTxt = (TextBox1.Value * 2) + 2
For n = 3 To NbTxt
ActiveCell.Offset(n - 3, 0) = Right(Me.Controls("TextBox" & n).Value, 6)
ActiveCell.Offset(n - 3, 1) = Right(Me.Controls("TextBox" & n + 1).Value, 6)
Next
Else 'Choix 2
NbTxt = (TextBox1.Value * 3) + 2
For n = 3 To NbTxt
ActiveCell.Offset(n - 3, 0) = Me.Controls("TextBox" & n).Value
ActiveCell.Offset(n - 3, 1) = Me.Controls("TextBox" & n + 1).Value
ActiveCell.Offset(n - 3, 2) = Me.Controls("TextBox" & n + 2).Value
Next
End If
Unload Me
End Sub


Les données sont décalées et je ne trouve pas la bonne formule pour ne faire apparaitre par ligne les saisies effectuées.
Merci par avance de votre patience.