Discussion :

[Sebphyto]

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
Seb

[joe.levrai]

Bonjour,

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

[Sebphyto]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Seb

[joe.levrai]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Sebphyto]

Salut joe,

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

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

Seb

[joe.levrai]

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

amuse toi bien avec tes textbox

[Sebphyto]

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 :

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.

ou alors j'ai loupé quelque chose ?

Et non tu n'as rien raté

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

D'ailleurs j'en tire mon chapeau

Mille merci,

Seb

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