Récup multi Textbox

Version imprimable

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

06/06/2015, 09h02
Sebphyto

re

Salut Joe,

En gros, a chaque nouvelle saisie, il saute 1 ligne.

Explication par exemple:

Aujourd'hui, je sélectionne un optbut, je saisie mais 80 textbox, je clique sur valider.....De là il remplit la date, et les 80 textbox dans ma feuille.
Demain, je sélectionne un optbut, je saisie mais 80 textbox, je clique sur valider.....De là il saute 1 ligne dans ma feuille, puis il remplit la date, et les 80 textbox dans ma feuille. etc, etc....pour tous les jours.

Cela afin d'améliorer la visibilité dans ma feuille, sinon cela devient vite imbuvable....

Bon WE :P
Seb
06/06/2015, 23h36
joe.levrai

Bonjour,

si tu remplaces 8 par 9 à la ligne 20 de ma dernière proposition, ça devrait être ça ?

Salut Joe

Citation:

si tu remplaces 8 par 9 à la ligne 20 de ma dernière proposition, ça devrait être ça ?

Et bien non, car dans ce cas il saute 8 lignes

Par contre voici ce que j'ai fait

A la ligne 20 j'ai remplacé le +8 par +2 seulement et là il saute bien une ligne entre chaque saisie.

Code:

1
2
3
4
5
6
7
8
9
10
' si la date n'est pas celle de textbox_date
            If .Cells(DepartLig, 1) <> CDate(Me.TextBox_Date.Text) Then
 
                ' on se décale d'1 lignes par rapport à la ligne 14 du code
                DepartLig = DepartLig +2 '+ 8
 
                ' on écrit la date
                .Cells(DepartLig, 1) = CDate(Me.TextBox_Date.Text)
 
            End If

Ligne 14 du code:

Code:

1
2
   'dernière ligne remplie en colonne 5
            DepartLig = .Cells(.Rows.Count, 5).End(xlUp).Row

Seb

Bonjour,

j'ai du mal à comprendre pourquoi ma proposition ne répond pas à ta demande
et encore plus, pourquoi le fait de mettre +2 fonctionne

je suis parti uniquement des tes explications et de ta copie écran :

- il y a une date sur la colonne X
- à côté de cette date, on écrit sur 8 lignes et 10 colonnes
- la date suivante doit être espacée d'une ligne par rapport à la plage précédente

ce qui donne deux cas que j'ai géré dans la procédure (puisqu'après questionnement, tu ne savais pas dire si la date serait déjà écrite avant d'écrire la plage ou non)

1) Si la date est déjà écrite : on a juste à écrire la plage en commençant sur cette ligne
2) Si la date n'est pas écrite (ce qui veut dire que la dernière date est différente de ton textbox_date) : on doit ajouter 8 lignes pour sauter la plage précédente, et on ajoute une ligne pour avoir une séparation entre les deux plages. Ce qui donne bien 9 lignes de décalage ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 'dernière ligne remplie en colonne 1 DepartLig = .Cells(.Rows.Count, 5).End(xlUp).Row ' si la date n'est pas celle de textbox_date If .Cells(DepartLig, 5) <> CDate(Me.TextBox_Date.Text) Then ' on se décale de 9 lignes DepartLig = DepartLig + 9 ' on écrit la date .Cells(DepartLig, 5) = CDate(Me.TextBox_Date.Text) End If
ou alors j'ai louppé quelque chose ?
En relisant attentivement toutes tes précisions, je constate également qu'on passe de la colonne 14 à la colonne 1, puis la colonne 5 ... pour la colonne qui contient les dates

ça devient confus tout ça, n'oublie pas que je travaille en aveugle, sans aucun fichier sous les yeux
dans la code ci-dessus, j'ai remis pour postulat la colonne 5 comme étant la colonne contenant la date

07/06/2015, 17h36
Sebphyto

Salut joe,

Désolé, c vrai que j ai adapté ce code a mon fichier définitif, d où se décalage. :lol:

Je ne peux pas te fournir le code entier ici, trop longue
Je reviens vers toi en mp si tu le veux bien

Seb
07/06/2015, 17h43
joe.levrai

Tant que tu as ta réponse et qu'elle fonctionne, c'est le principal

amuse toi bien avec tes textbox :mrgreen:
07/06/2015, 21h20
Sebphyto

Re Joe

Je tenais à te dire que tout ce que tu as fais correspond exactement à ma demande, et je t'en remercie beaucoup.

Et comme je te l'ai dis, il fallait que j'adapte ton code au mien, donc évidemment que de poster le code de mon fichier adapté à ton code, et ton code que tu m'as gentiment concocté ne correspond plus à ma demande du départ, et je m'en excuse....

D'où ton incompréhension :

Citation:

j'ai du mal à comprendre pourquoi ma proposition ne répond pas à ta demande
et encore plus, pourquoi le fait de mettre +2 fonctionne

je suis parti uniquement des tes explications et de ta copie écran :

- il y a une date sur la colonne X
- à côté de cette date, on écrit sur 8 lignes et 10 colonnes
- la date suivante doit être espacée d'une ligne par rapport à la plage précédente

Après le faite d'adapter un code, n'est pas simple car il y a toujours quelque chose qui va pas, ce qui est toujours le cas maintenant, mais le code de mon fichier est tellement long et complexe que je peux pas le poster ici, d'autant plus qu'il est perso et qu'il servira par la suite à créer un log, donc tu vois ce que cela sous-entend.

Citation:

ou alors j'ai loupé quelque chose ?

Et non tu n'as rien raté

Citation:

n'oublie pas que je travaille en aveugle, sans aucun fichier sous les yeux

D'ailleurs j'en tire mon chapeau 8-)

Mille merci,

Seb

Ps: j'aurais peut-être d'autres demandes à ce sujet...:oops:

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