code pour rangement

[nrdz83]

Bonjour à tous via l'userform 1 en fonction du choix dans le combobox ça m'azafiche le n° ffvl et le nb de voix (ça c'est ok ça fonctionne)et je cherche a ranger dans les colonnes de K à X qui correspondent à la combobox les données saisies dans les combobox .D'avance un grand merci et un bon dimanche, amitiés

 

[CBernardT]

Re : code pour rangement

Bonjour nrdz83,

un essai de report des valeurs.

Cordialement

Bernard

 

[nrdz83]

Re : code pour rangement

Bonjour cberbardt et merci ça marche, par contre c'est afficher sous format de texte comment je peux faire pour que ça s'affiche sous forme numérique de façon à pouvoir faire des calculs. D'avance merci, amitiés

le code:

Private Sub CommandButton1_Click()
Dim TBox As Control, i As Byte, Derlig As Integer, Col As Byte
With Sheets("Feuil1")
For Each TBox In Me.Controls
If Left(TBox.Name, 7) = "TextBox" Then
Col = CDbl(Right(TBox.Name, Len(TBox.Name) - 7)) + 8
    If Col > 10 And Col < 25 Then
    .Cells(idxLig, Col) = TBox
    End If
End If
Next TBox
End With
Unload UserForm1
End Sub

 

[jp14]

Re : code pour rangement

Bonjour


Ci joint le fichier avec la procédure demandé.
J'ai renommé les textbox.

A tester

JP

 

[nrdz83]

Re : code pour rangement

Bonjour jp14 ça fonctionne egalement ton code mais je dois t'avouer que je comprend mieux la demarche de cbernardt malgré tes infos sur le code et ça je te remercie infiniement, je cherche juste a ce que les données des textbox soit considérées comme du numérique et non des lettres. D'avance merci 😎

 

[CBernardT]

Re : code pour rangement

Re nrdz83,

Essayes en modifiant la ligne de code

.Cells(idxLig, Col) = TBox

par

.Cells(idxLig, Col) = CDbl(TBox)


Cordialement

Bernard

 

[nrdz83]

Re : code pour rangement

re cbernardt ça me met une erreur,

Private Sub Bn_valider_Click()
Dim TBox As Control, i As Byte, Derlig As Integer, Col As Byte
With Sheets("Feuil1")
For Each TBox In Me.Controls
If Left(TBox.Name, 7) = "TextBox" Then
Col = CDbl(Right(TBox.Name, Len(TBox.Name) - 7)) + 8
    If Col > 10 And Col < 25 Then
    [COLOR="Red"].Cells(idxLig, Col) = CDbl(TBox)[/COLOR]

    End If
End If
Next TBox
End With
Unload UserForm1
End Sub

merci pour ton aide amitiés

 

[CBernardT]

Re : code pour rangement

Re,

Pas d'erreur chez moi ???

Il te faut reprendre le fichier que j'ai posté, j'ai modifié les noms des Textbox afin de simplifier les reports.

A nouveau le code modifié :

Private Sub CommandButton1_Click()
Dim TBox As Control, i As Byte, Derlig As Integer, Col As Byte
With Sheets("Feuil1")
For Each TBox In Me.Controls
If Left(TBox.Name, 7) = "TextBox" Then
Col = CDbl(Right(TBox.Name, Len(TBox.Name) - 7)) + 8
If Col > 10 And Col < 25 Then
.Cells(idxLig, Col) = CDbl(TBox)
End If
End If
Next TBox
End With
Unload UserForm1
End Sub


A+

Bernard

 

[nrdz83]

Re : code pour rangement

re bonsoir bernard je suis désolé mais ça marche pas dés que je met ton code modifier regarde le classeur joint il bugg chez moi.
ça pourrait pas venir d'un composant excel qu'il faudrait ajouter ?
d'avance merci pour tes lumières , amitiés

 

[jp14]

Re : code pour rangement

Bonsoir

Bonjour jp14 ça fonctionne egalement ton code mais je dois t'avouer que je comprend mieux la demarche de cbernardt malgré tes infos sur le code et ça je te remercie infiniement, je cherche juste a ce que les données des textbox soit considérées comme du numérique et non des lettres. D'avance merci 😎

Il suffit d'écrire ".Cells(£ligne1, £coln) = Val(Me.Controls(£Ctrl.Name).Value)"

JP

 

[CBernardT]

Re : code pour rangement

Re nrdz83,

Voila le classeur modifié.

Cordialement

Bernard

 

[nrdz83]

Re : code pour rangement

re bonsoir merci bernard et jp14
bernard est ce que le classeur fonctionne chez toi car chez moi il plante toujours avec le meme code d'erreur, mais il saisie tout de même les données dans les cases. Par contre il se met en debogage, est ce que ça peut venir d'une mise à jour pour excel suis sous 2003 avec pack sp3

d'avance merci pour tes lumières

 

[CBernardT]

Re : code pour rangement

Re nrdz83,

Le classeur fonctionne parfaitement sous excel 2003. Quel est l'intitulé du débogage ?

Cordialement

Bernard

 

[jp14]

Re : code pour rangement

Bonjour nrdz83, CBernardT

Code à modifier pour éviter une erreur si le contenu du textbox n'est pas numérique

If IsNumeric(TBox) Then
.Cells(idxLig, Col) = CDbl(TBox)
End If

JP

 

[nrdz83]

Re : code pour rangement

Bonjour cbernardt et jp14 , un grand merci pour vos lumières et votre aide,
je viens de modifier le code de bernard par ta modif jp 14 et ça fonctionne impeccable.
Merci pour tout et toutes mes amitiés.🙄