Le sujet initial ayant été clos apres 1 mois

[taz067]

Hello,
voila le code que @Jacquinot_WILL-FREAD m’avait créé dans ce sujet

N° de table a reporter dans un autre onglet

Hello, j’ai un fichier que je remplis pour le placement de réservation d’un loto et les tables et réservation son sur deux onglets distinct. Je me demandai s’il était possible, via une macro, qu’à partir du moment où j’indique dans l’onglet Table le Nom et le nombre de places réservé, les numéros de table se trouvant dans la cellule sous les cellules fusionnées [Capture d'écran 2024-02-05 112920] Que la ligne dans mon onglet réservation, le N° de la table se mettent a jour dans la bonne co…

Sub sauvegarde()
Dim numero As String
Selection.Name = "sauve"
numero = Application.InputBox("Cliquez sur le numero de la table")
Application.ScreenUpdating = False
Sheets("Avent 2024").Select
Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select
Selection = Now()
Selection.Offset(0, 1) = Range("sauve").Item(1, 1)
Selection.Offset(0, 3) = Range("sauve").Item(1, 2)
Selection.Offset(0, 5) = CInt(numero)
Sheets("Table Avent 2024").Select
Application.ScreenUpdating = True
End Sub

Maintenant après avoir vidé mon tableau, le code me rajoute les nouvelles entrées en bas du tableau à partir de B130, au lieu de commencer à les mettre en B2
ce n’est que lorsque je mets des données en B2 que la suite se mettra bien en B3 et ainsi de suite
quel est le ou les paramètres a modifié, pour que ça me prenne en compte aussi la ligne B2 directement ?
Et s’il était possible de me mettre en commentaire les différentes fonctions et leur « utilité »
merci d’avance

[Jacquinot_WILL-FREAD]

Bonjour Taz,
je vais essayer de modifier les lignes, le problème vient de :

@taz067

Range("B1").Select
Selection.End(xlDown).Offset(1, 0).Select

Un instant (une petite mise à jour):

Sub sauvegarde()
Dim numero As String
Dim cellule As Range
Selection.Name = "sauve"
numero = Application.InputBox("Cliquez sur le numero de la table")
Application.ScreenUpdating = False
Sheets("Reservation Printemps 2024").Select
Range("B2:B130").Name = "cellule_a_verifier"
'Atteindre la dernière cellule remplis.
For Each cellule In Range("cellule_a_verifier")
If cellule.Value = "" Then
cellule.Select
End If
'.........................
Selection = Now()
Selection.Offset(0, 1) = Range("sauve").Item(1, 1)
Selection.Offset(0, 3) = Range("sauve").Item(1, 2)
Selection.Offset(0, 5) = CInt(numero)
Sheets("Table Printemps 2024").Select
Application.ScreenUpdating = True
Exit Sub
Next
End Sub

[taz067]

Petite question toute bête, mais ce Selection.End(xlDown).Offset(1, 0).Select n’est il pas justement là pour commencer en haut et se caler sur la première ligne vide ?

Avec le nouveau code, je suppose que lorsque, situation très improbable, j’ai à augmenter la taille du tableau, il faudra que je modifie juste la plage pour descendre plus bas que B130

Tu me diras quand je peux récup le code !

[Jacquinot_WILL-FREAD]

@taz067

Selection.End(xlDown).Offset(1, 0).Select n’est il pas justement là pour commencer en haut

Oui et non,
Selection.End(xlDown) est comme le raccourcis CTRL + BAS ( touche directionnelle)
Offset(1, 0).Select se déplace une cellule plus bas.
Si la cellule B2 n’est pas remplis ?, CTRL + BAS (depuis B1) ira directement à la dernière cellule vide (plus bas).

@taz067

il faudra que je modifie juste la plage pour descendre plus bas que B130

malheureusement oui, sauf si on n’avait rien, plus bas

[taz067]

Ça fonctionne, mais comme dit, il est tres improbable que je descende plus que B130
Il faudra juste que je pense a modifier le nom de la feuille le jour ou je change de manifestation.

Le loto de printemps etant passé, et en attendant le loto de l’Avent, en decembre il faut que j’adapte encore les differentes formules dans mes tableaux

[Jacquinot_WILL-FREAD]

Alors, il faut peut être prévoir des marges

[taz067]

En fait la marge va jusqu’a 130, la pour le loto de printemps j’avais remplis le tableau jusqu’a B96 et on etait full avec 622 personnes dans la salle

[Jacquinot_WILL-FREAD]

Ah c’est bien, cela fait plus de rendement