Cellules dans textbox

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour le forum,

Après recherche, sans rien trouvé de concret, j'ai essayé d'adapter ce code, afin de pouvoir, une fois l'analyse lancée, voir le résultat dans plusieurs textbox, visiblement cela fonctionne qu'à moitié, en ne sachant pas franchement pourquoi....

Pourriez-vous apporter vos lumières?
Code:

1 2 3 4 5 6 7 8 9 10 TextBox31.Value = Sheets("Analyses").Range("B42").Value TextBox32.Value = Sheets("Analyses").Range("B41").Value TextBox33.Value = Sheets("Analyses").Range("B40").Value TextBox34.Value = Sheets("Analyses").Range("B39").Value TextBox35.Value = Sheets("Analyses").Range("B38").Value TextBox36.Value = Sheets("Analyses").Range("B37").Value TextBox37.Value = Sheets("Analyses").Range("B36").Value TextBox38.Value = Sheets("Analyses").Range("B35").Value TextBox39.Value = Sheets("Analyses").Range("B34").Value TextBox40.Value = Sheets("Analyses").Range("B33").Value
Bonne journée à tous

27/01/2015, 10h05
yoyo3d

bon, je ne suis pas un génie en VBA, mais visiblement cela devrait fonctionner. en tout cas, si ça marche pour une ligne ça doit marcher pour toutes les autres, est tu certains que le code en amont est correcte?
27/01/2015, 10h19
Sebphyto

Re le forum, et bonjour Yoyo3d

Merci de t'intéresser au sujet...

Comme de faite cela devrait fonctionner, mais le souci est qu'il n'inscrit pas tous les résultats dans chaque textbox (10 au total), en sachant que les 10 ne seront pas rempli à chaque fois car cela dépend des données entrées.

Normalement il devrait mettre les résultats du plus grand nombre au plus petit en commençant par le 1er textbox...hors il n'en n'ai rien....c pour cela que je viens vers vous, car n'étant pas un génie en VBA, pour l'instant, je bloque....

Je peux fournir le fichier si vous voulez?

Bonne journée

D'accord avec yoyo,

essayes ce code testé
Code:

1 2 3 4 5 6 Dim x As Integer, y As Integer y = 42 For x = 31 To 40 Me.Controls("TextBox" & x) = Sheets("Analyses").Range("B" & y).Value y = y - 1 Next x
et si ça "ne marche qu'à moitié", revois déjà le nom de tes textbox

27/01/2015, 10h25
Sebphyto

Bonjour Dom,

Et merci de ton aide,

Visiblement il fait de même, je reviendrai vers vous pour vous dire quoi...car je pars au boulot...:?

Bonne journée

Bonjour,

En présence des nombreux détails fournis, on va supposer qu'il s'agit de textbox dans un USF, des activeX sur une feuille auraient au moins un . devant s'ils étaient dans une structure With - End With ;)

En 1er lieu, il s'agit de vérifier, comme l'indique casefayere, que tu pointes bien là où tu penses, une erreur commune de départ consistant à créer des séries d’objets par copier coller et de se retrouver avec des doublons en piles, celui qu'on adresse étant caché par celui du dessus, mais étant existant le code tourne :D etc..

Mets ce code dans l'évènement initialize de ton USF et ouvre ton USF, tu auras la liste des noms de tes textBox en colonne A de la feuille active et les valeurs en B que tu pourras comparer à ton USF.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Private Sub UserForm_Initialize() Dim Ctrl As Control Dim I As Byte I = 1 For Each Ctrl In Me.Controls If TypeOf Ctrl Is MSForms.TextBox Then Ctrl.Value = "Debug-" & I Cells(I, 1) = Ctrl.Name Cells(I, 2) = Ctrl.Value End If I = I + 1 Next Ctrl End Sub
cordialement,

Didier

27/01/2015, 16h06
Sebphyto

Bonjour A tous et Didier,

Après test, j'ai cru avoir trouver la solution, car il y avais un décalage de cellule.
Mais après plusieurs tests, il savère que selon le nombre de cellule que je remplis dans Mon usf, puis après clic sur "analyse, le nombre de cellule se trouve décalé ce qui ne correspond plus....

Bref le mieux, si je peux me permettre est de vous fournir le fichier afin de vous rendre compte.

Bonne journée

Pièce jointe 167372

1 - j'ai testé, au hasard, ton fichier qui est vide en mettant des chiffres dans les cases "chevaux favoris" à "entraineurs favoris"
2 - j'ai lancé l'analyse après validation
3 - je me retrouve avec des chiffres de B23 à B32
en résumé, je réitère ma proposition en changeant la valeur de y, pour avoir les chiffres en synthèse, même si je ne comprends pas la démarche
Code:

1 2 3 4 5 y = 32 For x = 31 To 40 Me.Controls("TextBox" & x) = Sheets("Analyses").Range("B" & y).Value y = y - 1 Next x
qui remplace
Code:

1 2 3 4 5 6 7 8 9 10 11 TextBox31.Value = Sheets("Analyses").Range("B42").Value TextBox32.Value = Sheets("Analyses").Range("B41").Value TextBox33.Value = Sheets("Analyses").Range("B40").Value TextBox34.Value = Sheets("Analyses").Range("B39").Value TextBox35.Value = Sheets("Analyses").Range("B38").Value TextBox36.Value = Sheets("Analyses").Range("B37").Value TextBox37.Value = Sheets("Analyses").Range("B36").Value TextBox38.Value = Sheets("Analyses").Range("B35").Value TextBox39.Value = Sheets("Analyses").Range("B34").Value TextBox40.Value = Sheets("Analyses").Range("B33").Value
et là, j'ai bien ma synthèse renseignée

Edit : j'espère que si tu arrives à résoudre ton problème, j'aurai droit à une part des gains :mouarf:

27/01/2015, 18h58
Sebphyto

Salut A tous
Re DOm,

Ton code fonctionne parfaitement, sauf que lorsque je ne rentre pas tous les chiffres dans les cases "chevaux favoris" à "entraineurs favoris", ce qui arrive régulièrement, exemple j'en saisi 5 à la première ligne, puis 10 à la seconde et 8 à la dernière...Et bien les textbox ne se remplient pas correctement, je pense que le problème vient du fait que

y=32
x=31 to 40

Hors comme toutes les cellules ne sont pas complètes, il renvoit dans les textbox des cellules vides....

A+

Ps: donc pas de partage de gain pour l'instant.....Lollll;)

je ne regarde ton code que par étape car je fais autre chose (l'apéro), commences peut-être par changer cette procédure du bouton "Valider" en
Code:

1 2 3 4 5 6 7 8 9 Private Sub Valider_Click() Dim L As Integer Dim C As Integer For i = 1 To 30 Range("A1").Offset(L, C).Value = Val(Me.Controls("TextBox" & i)) C = C + 1 If C = 11 Then L = L + 1: C = 0 Next i End Sub

27/01/2015, 20h25
Sebphyto

Re Dom,

Moi aussi j'y suis à l'apéro...Alors tchin....

Bon je viens de modifier le bouton valider....Désolé mais je ne comprends ce que cela apporte, si t'as une explication je suis preneur...:?

Sinon, voilà en image je serai peut-être plus clair:

Pièce jointe 167404

A+
27/01/2015, 20h30
casefayere

oui, je t'ai dit par étape, là je suis avec des amis et je ne veux pas faire de conneries,

le problème se trouve ailleurs dans tes code, il faut donc que j'analyse, patience ! (et longueur de temps font plus que..."La Fontaine)
27/01/2015, 21h24
Sebphyto

Re dom,

Aucun souci prend ton temps, je suis pas pressé, [B]"Paris et Rome ne ce sont pas construit en 1 jour"[/B

Bonne soirée :aie:

peux-tu essayer ce code à la fin de la procédure du bouton "Lancer analyse"

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
.....
Cells(22, 2).Resize(UBound(TabAff, 1), UBound(TabAff, 2)) = TabAff
'ici, en remplacement
y = 32
For x = 31 To 40
  With Sheets("Analyses")
    If .Range("B" & y).Value >= 1 Then
      Me.Controls("TextBox" & x) = .Range("B" & y).Value
      y = y - 1
    End If
  End With
Next x
End Sub

27/01/2015, 23h21
Sebphyto

Re,

Après test voici ce que cela me donne:

Pièce jointe 167413

Bonne nuit
27/01/2015, 23h48
casefayere

1 pièce(s) jointe(s)

Je suis étonné car j'ai testé
Pièce jointe 167416
Pièce jointe 167417
Pièce jointe 167418
et le fichier
28/01/2015, 10h09
Sebphyto

Salut le forum

Et salut Dom,

Je viens de tester le fichier et de regarder tes saisies d'écran, et quand tu regardes les images, il y des truc qui ne fonctionne pas...

Ex:
Sur la 2ème image:

En K il ne devrait rien avoir, le "rangement" dans le tableau est décalé

Sur l'image 3:

Quand tu calcules de "tête", c'est pas bon
Le 1 est présent 3x

Le 8, 2x donc ne devrait pas ce trouver devant le 1 dans les textbox

il devrait également ranger tous les numéros, à la suite en ordre croissant du plus présent au moins....

il ne prend en compte qu'à partir de la cellule 32, hors en 33 et 34, il y a des num

Pièce jointe 167437

Bonne journée
28/01/2015, 10h26
casefayere

Bonjour,
je ne suis pas dispo aujourd'hui, donc

Citation:

Sur la 2ème image:

En K il ne devrait rien avoir, le "rangement" dans le tableau est décalé

tu devrais pouvoir adapter

Citation:

Sur l'image 3:

Quand tu calcules de "tête", c'est pas bon
Le 1 est présent 3x

Le 8, 2x donc ne devrait pas ce trouver devant le 1 dans les textbox

il devrait également ranger tous les numéros, à la suite en ordre croissant du plus présent au moins....

il ne prend en compte qu'à partir de la cellule 32, hors en 33 et 34, il y a des num

à mon avis c'est le reste de tes codes qu'il faut revoir (pour les calculs, c'est à toi de voir)je ne sais pas comment tu fais tes synthèses, essaies le programme pas à pas et tu devrais arriver à corriger

Bon courage, je répète, je ne suis plus dispo aujourd'hui
28/01/2015, 11h18
Sebphyto
Re Dom,

Pour info, j'ai trouvé pourquoi, il remplissait la colonne K...donc ça c bon

Mais pour l'autre souci, j'ai trouvé d'où cela venait, je vais regarder
Code:

1 2 3 4 5 6 7 8 9 y = 32 For x = 31 To 40 With Sheets("Analyses") If .Range("B" & y).Value >= 1 Then Me.Controls("TextBox" & x) = .Range("B" & y).Value y = y - 1 End If End With Next x
C'est y=32

Si tous les chiffres sont saisie, le 32 n'est plus valable, et également lorsqu'ils ne sont pas tous saisie, le y=32 peut varié en fonction du nombre de textbox renseignés

A+
29/01/2015, 23h36
Sebphyto

Bonsoir à tous,

Salut dom,

J'étais sur une bonne lancée en aillant trouvé une solution, mais pour le reste, c'est chaud...:oops:

Car si tous les textbox ne sont pas rempli, les textbox de synthèse ne se remplissent pas correctement!!!!!

Bonne soirée à tous

Bonsoir à tous,

Bon encore une journée de passée, à chercher, mais en vain....

Le truc qui se pose, c'est que lorsque tous les textbox de prono ne sont pas rempli, le textbox de synthèse ne se remplit pas correctement....

JE suis preneur d'une solution....:roll:

A+

Voir 40 message(s) de cette discussion en une page