Profil de luca62 - CodeS SourceS

comment passer à la case de saisie suivante avec la touche tabulation? Résolu

bonjour! ça faisait longtemps que je vous avez pas embêté avec mes histoires de prog... j'ai une interface avec des cases de saisie. J'aimerais qu'avec la touche de tabulation, le user passe à la case de saisie suivante, c'est-à-dire dans l'ordre des cases. Moi pour l'instant, avec la touche tab, ça passe d'une case à l'autre dans l... Lire la suite

C'est la propriété SetFocus. Donc à l'endroit ou tu veux qu'il selectionne la case, bien tu introduis le setfocus. Il a l'avantage que si il y a déjà quelque chose qu'inscrit dans la case, il selectionnera tout le texte et tu pourras donc réécrire dessus. Exemple : txtResultat(Index).SetFocus Voilà. Bien à toi. Luca62

Tri dans une list box Résolu

Voilà le décor : J'ai 42 nombres (à trois chiffres) à trié par ordre croissant. Ces 42 nombres sont définis par l'intermédiaire que 42 cases (lblBoules) et à chaque case est lié une boules (donc un nombre de 1 à 42 [X$(i)]) Donc exemple de phrase que j'obtient dans la liste box : 341 fois 42, 354 fois 4, ect ... Le texte s'affiche ... Lire la suite

Merci merci à vous. Cela fonctionne comme je le voulais maintenant.... Bonne journée à vous. Luca62.

Merci, c'est un paramère des listes box que je ne connaissais pas. Mais y at-il moyen de classe du plus grand au plus petit au lieu du plus petit au plus grand ? Merci. Luca62.

tri Résolu

j'ai une suite (6 nombres) de nombre à trier, voilà comment j'ai fait : public i, j dim k as integer For i = 0 To 4 For j = i + 1 To 5 If txtResultat(i).Text > txtResultat(j).Text Then k = txtResultat(i).Text txtResultat(i).Text =... Lire la suite

Merci beaucoup. Ca fonctionne. Luca62.

Charger un fichier .txt Résolu

Après réflection, je pense qu'il est plus simple de le faire avec un fichier texte. Cependant avant, j'avais les différentes données en les unes au dessous des autres : 1 2 3 mon code était : stFichier = (App.Path & "\Essai.txt") Open stFichier For Input As #1 num_fiche = 0 Do While ... Lire la suite

lol, je sais, c'est pas facile avec un élève comme moi .... je viens de comprendre. Mais je comprenais pas pourquoi il attribuais les 20 champs à une seul case et qu'en fesant défiler cette case, il défilais les 20 champs les uns après les autres. ENFIN, un super grand merci pour m'avoir débloqué !!!!! Bon, une bonne fin de soirée e...

ok, ça fonctionne bien, j'ai remplacer les , pour des . et les ; par les , il m'indique bien tout ce qu'il y a entre deux ,XXX, Mais dans une ligne comment différencier les 20 valeurs ? car j'ai fait txtDate = tabligne(num_fiche).c01 et forcement j'ai toute la ligne dans la case txtDate, enfin pas toute la ligne les 20 valeurs, donc à c...

J'ai copier deux lignes comme celle la dans le fichier texte... Voilà ce qu'il m'affiche dans la case texte cette fois ... ;"6";"17";"30";"31";"35";"37";"15";"281535";"460171";"0";"0";"0";"0";"18";"5418";"1701";"28 et quand je fais défiler avec les flèches il m'indique autre chose mais jamais ce qu'il y a entre deux "" ?? Merci.

/auteurdetail.aspx?ID=410800 oui, ça fonctionne il lance bien le programme... Qu'est ce que cela signifie ?? Je lui ai demander dans une case texte le tabligne(num_fiche).c01 il m'indique bien quelque chose de la première ligne, mais pas la première partie de chiffre avant le ; La première ligne du fichier texte est : 4/02/1978;6;...

oui, ça fonctionne il lance bien le programme... Qu'est ce que cela signifie ?? Luca62.

je viens de vérifié ce que j'ai mis au dessus, même avec seulement 4 lignes, il me met ce message d'erreur (Input past end of file) ?? Ca veut pas dire qu'il n'arrive pas au bout ? Je sais pas, j'ai un peu du mal avec les messages d'erreurs .... Merci d'avance. Luca62

Ha, ok .... Donc j'ai commencé à zéro, et mis le redis, il commence bien à lire le fichier mais il s'arrete à la num_fiche 396 et j'ai le message d'erreur suivant : Input past end of file ?? Alors que dans le fichier texte, tout est normal, j'ai vérifier, y a bien les 20 champs séparés par un ; donc ok. Ca peut être dû à quoi ? Merc...

Dis, encore un petit problème, pourquoi il me met un subscipt out of range à cette ligne : Input #1, tabligne(num_fiche).c01, tabligne(num_fiche).c02, tabligne(num_fiche).c03, tabligne(num_fiche).c04, tabligne(num_fiche).c05, tabligne(num_fiche).c06, tabligne(num_fiche).c07, tabligne(i).c08, tabligne(i).c09, tabligne(num_fiche).c10, t...

j'ai mis le Private Type MesColonnes dans le form_load et j'ai le message d'erreur suivant : invalide inside procedure ? Qu'est ce que je dois faire ? Merci. Luca62

En fait j'ai 21 valeurs qui sont toutes séparée par une tabulation. Mais elle provienne d'un tableau en excelle, alors y a t'il un moyen de passer excelle en .txt et en remplaçant le ";", car si j'ai bien compris, ça facilite l'opération ? Car les 21 valeurs correspondent à 21 cases textes, et donc, il faut que je place les différentes v...

Chargement d'un fichier texte

Donc j'ai un fichier texte contenant plusieurs centaines de lignes, chaque ligne contient 20 données séparée par un ";". Exemple d'une ligne : 4/02/1978;6;17;30;31;35;37;15;281535;460171,2;0;0;0;0;18;5418;1701;28,51;35206;1,24 Voici le code lors de l'ouverture du ficher => form_load : Private Sub form_load() Private Type Mes... Lire la suite

Comment ca fonctionne cette procédure car je ne l'ai ja mais employée, à la place du Input #1, Tabligne, je met met 3 lignes ? La déclaration je laisse la même ou dim tableau() as objet et redim tableau(-1), c'est assez ? Et comment de reclasse mes 20 données après dans les cases textes ? Merci. Luca62.

Ecrire une base de donnée sur excell etr la chargée ? Résolu

Bonjour à tous, Dans un ancien programme, j'avais une base de donnée en .DAT, et j'aimerais la remplacer par un fichier excell. J'ai déja fait le transfer, donc toutes mes données sont déjà sur le fichier excell, et donc ma question, est comme (si c'est possible) on fait pour charger depuis VB un fichier excell, comment on fait pour n... Lire la suite

Votes

Classement des boules de lotto pour statisque _ problème lors de l'affichage ? Résolu

Voilà, j'ai une base de données contenant des numéros de lotto, et j'aimerai savoir combien de fois chaque boule est sortie... Voici le code que j'ai écris, le problème est que lors de l'affichage, j'ai des zéro partout du au RAZ, mais aucun classement. Voici le code : stFichier = (App.Path & "\Lotto.dat") Open stFi... Lire la suite

J'ai résolut le problème en rouge au dessus (bête bête ....) Mais j'ai toujours celui du Re du Redim ? avec le message d'erreur suivant : invalid outside procedure ??? Voilà, je ne sais pas d'ou ça peux venir ? est ce que ça ne veux pas dire qu'il ne sais pas passer aux différentes formes ?? Merci. Luca62.

Voilà, quand je met le re, j'ai le message d'erreur suivant à l'ouverture de la feuille : invalid outside procedure J'ai eu également un petit problème en fesant quelque modications cette après midi. Pour toujours le même code : For i = num_fiche_stat To tot_fiches_stat For j = 6 To 12 k1 = Tabl...

Ha ok, j'y suis arrivé !! Tu avais bien entendu raison, c'est bien un problème de déclaration je suppose.... Donc, j'ai déclaré dans le module : Public Tabl1() et dans la forme : Dim Tabl1(5000, 13) Car j'en avais oublié un (pas 12, 13) .... puis j'ai ouvert le fichier en totalité donc de 1 à 13 .... Voilà, j'avance petit à pet...