Récuperer valeur TextBox

Papou-net

XLDnaute Barbatruc

• 8 Avril 2013

• #2

Re : Récuperer valeur TextBox

Bonjour tyruso,

Voici la copie de ton fichier modifié.

Cordialement.

 

Pièces jointes

• Copie de QUIK 052013.xlsm

  39.3 KB · Affichages: 58

Vote positif 0 Vote négatif

T

tyruso

Guest

• 8 Avril 2013

• #3

Re : Récuperer valeur TextBox

Merci Beaucoup,

C'est exactement le fonctionnement que je voulais.

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 8 Avril 2013

• #4

Re : Récuperer valeur TextBox

PAr contre, j'aurais une question. Le tableau fonctionne jusqu'a la ligne 21. Comment faire pour augmenter le nombre de ligne ?

Merci encore

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 8 Avril 2013

• #5

Re : Récuperer valeur TextBox

Encore un ptit détail, comment faire pour que la valeur qui s'affiche dans l'onglet TRI soit un nombre pour pouvoir faire des calculs dessus ? Actuellement c'est un nombre stocké sous forme de texte...

Merci

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Avril 2013

• #6

Re : Récuperer valeur TextBox

RE :

Il faut modifier l'indice maxi dans les boucles suivantes :

Code:

Sub MaJForm()
With UserForm1
  Col = .ComboBox1.ListIndex + 2
  If Col = 1 Then Col = 2
  For i = 1 To 20
    .Controls("REF" & i) = Feuil2.Range("A" & i + 1)
    .Controls("NBR" & i) = Feuil2.Cells(i + 1, Col)
  Next
End With
End Sub

Sub MajTabl()
With UserForm1
    For i = 1 To 20
      Feuil2.Cells(i + 1, Col) = .Controls("NBR" & i)
    Next
End With
End Sub

Tu remplaces 20 par le nombre de tes contrôles REF et NBR.

Cordialement.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Avril 2013

• #7

Re : Récuperer valeur TextBox

tyruso à dit:

Encore un ptit détail, comment faire pour que la valeur qui s'affiche dans l'onglet TRI soit un nombre pour pouvoir faire des calculs dessus ? Actuellement c'est un nombre stocké sous forme de texte...

Merci

Cliquez pour agrandir...

RE :

Le contenu des TextBox est toujours renvoyé sous la forme d'une chaîne (String), on ne peut le changer.

C'est à la récupération que tu dois les convertir.

Exemple, si les données doivent être du type entier :

Code:

Sub MajTabl()
With UserForm1
    For i = 1 To 20
      Feuil2.Cells(i + 1, Col) = CInt(.Controls("NBR" & i))
    Next
End With
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 8 Avril 2013

• #8

Re : Récuperer valeur TextBox

Je te remercie pour ton aide.
Je viens de faire les modifs et j'ai une erreur "incompatibilité de type" à la validation.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Avril 2013

• #9

Re : Récuperer valeur TextBox

RE

Exact, si le TextBox est vide ça provoque une erreur.

Voici donc comment procéder :

Code:

Sub MajTabl()
With UserForm1
    For i = 1 To 20
      If Not .Controls("NBR" & i) = "" Then Feuil2.Cells(i + 1, Col) = CInt(.Controls("NBR" & i))
    Next
End With
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 8 Avril 2013

• #10

Re : Récuperer valeur TextBox

Impeccable.

Merci beaucoup

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 9 Avril 2013

• #11

Re : Récuperer valeur TextBox

Bonjour,

J'ai un soucis avec mon tableau. Cela fonctionné hier et ce matin impossible d'inscrire des valeurs dans les lignes 3 à 60.

Pourriez vous m'aider.

Merci

 

Pièces jointes

• EXCEL QUIK.xlsm

  112.8 KB · Affichages: 65

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Avril 2013

• #12

Re : Récuperer valeur TextBox

Bonjour tyruso,

N'aurais-tu pas modifié ton code entre-temps ?

Le problème vient de la ligne que j'ai mise en commentaire.En effet, dès le premier passage de la boucle tu affectes à i la valeur 61 d'où la sortie prématurée :

Code:

Sub MajTabl()
With UserForm1
    For i = 1 To 60
      If Not .Controls("NBR" & i) = "" Then Feuil2.Cells(i + 1, Col) = CInt(.Controls("NBR" & i))
'     i = 61
       Feuil2.Cells(i + 1, Col) = .Controls("NBR" & i)
          Next
End With
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

T

tyruso

Guest

• 9 Avril 2013

• #13

Re : Récuperer valeur TextBox

Exact, je l'ai mis apres le next et maintenant c'est OK

Désolé encore et merci de ton aide précieuse

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 9 Avril 2013

• #14

Re : Récuperer valeur TextBox

tyruso à dit:

Exact, je l'ai mis apres le next et maintenant c'est OK

Désolé encore et merci de ton aide précieuse

Cliquez pour agrandir...

RE :

Tu n'as pas besoin de mettre cette ligne car, en fin de boucle, i est égal à 61. C'est d'ailleurs cette valeur qui stoppe le balayage.

Cordialement.

 

Vote positif 0 Vote négatif