Discussion :

[NEC14]

Bonjour,

Dans une feuille Excel (L20388) j'ai un tableau comportant 28 lignes. Lorsque je clique sur un numéro se trouvant en colonne A alors une autre feuille s'ouvre (FL20388) et m'affiche un autre tableau.
Par exemple je clique sur le n°1 de L20388 alors le tableau n°1 de FL20388 s'affiche, je clique sur 2, tableau 2, etc...
Il y a donc 28 tableaux affichables chacun ayant 30 lignes.

Ce que je cherche à faire, c'est que lorsque les 30 lignes sont remplies, il puisse y avoir un message qui s'affiche lors du double-clic dans le tableau de la feuille L20388.

Est-ce réalisable et comment ?

Merci par avance pour l'aide que vous pourrez m'apporter

[Daniel.C]

Bonjour René,

S'il s'agit de tableau au sens Excel 2007 avec le tableau initial commençant en ligne 2, le nom des tableaux de la seconde feuille étant "Tableau n" :

Code :

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

1
2
3
4
5
6
7
8
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Cancel = True
    If Target.Row - 1 = 1 Then
        If Sheets("FL20388").ListObjects("Tableau " & Target.Row - 1).ListRows.Count = 30 Then
            MsgBox "Message"
        End If
    End If
End Sub

[NEC14]

Bonjour Daniel,

Le code ne fait pas ce que je recherche. J'ai du mal m'expliquer.
Dans une feuille de calcul (F20388 par exemple), l'utilisateur a la possibilité d'ouvrir 28 autres tableaux se trouvant dans une autre et même feuille (FL20388).
Si l'utilisateur clique sur le n°1 alors le tableau 1 s'affiche (lignes A1 à A41) les autres lignes étant cachées.
Si l'utilisateur clique sur le n°2 alors le tableau 2 s'affiche (lignes A42 à A82) les autres lignes étant cachées; ainsi de suite jusqu'au 28ème tableau (lignes A1108 à A1147).

Le but est de limiter la saisie dans chacun des tableaux à 29 lignes (pas 30 comme je l'ai dis).

Donc si la cellule A36 est saisie (dernière cellule du 1er tableau) alors message informant de passer à un autre tableau.
Donc si le cellule A77 est saisie (dernière cellule du 2ème tableau) alors message informant de passer à un autre tableau.

Ainsi de suite....

Désolé pour le premier message qui n'était pas très clair.

Bien cordialement
René

[Daniel.C]

Bonjour,

Le plus simple serait de mettre un classeur exemple, ne serait-ce que pour faire la distinction entre plage et tableau. Aussi, est-ce que tu sélectionnes une cellule tu tableau affiché ?

[NEC14]

Si la cellule A8 (1ère cellule où la saisie est possible dans le tableau 1) est saisie alors on passe à la cellule A9, et ainsi de suite jusqu'à la cellule A36 (dernière cellule où la saisie est possible dans le tableau 1)

Je vais essayer de mettre un fichier exemple, il faut que je modifie mon fichier original car il est très gros.


Voici le fichier en pièce jointe (limité à 10 tableaux)

[Marc-L]

Bonjour, bonjour !

Pour limiter la saisie dans une feuille de calculs, ne pas oublier sa propriété ScrollArea !

__________________________________________________________________________________________

Merci de cliquer sur pour chaque message ayant aidé puis sur pour clore cette discussion …

[Daniel.C]

Si la cellule A8 (1ère cellule où la saisie est possible dans le tableau 1) est saisie alors on passe à la cellule A9, et ainsi de suite jusqu'à la cellule A36 (dernière cellule où la saisie est possible dans le tableau 1)

Ca n'a pas l'air de" correspondre à ton classeur :
- 1ère cellule : B12
- dernière cellule : B39
(la colonne A est déjà remplie.)

[NEC14]

Il faut double-cliquer sur la cellule A12 de la feuille L836.

Donc en cliquant sur cette cellule, une autre feuille s'ouvre avec le n° du tableau choisi (il y 28 tableaux dans la feuille FL836).

[Daniel.C]

Bonjour,

Peut-être en modifiant cette partie du code :

Code :

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

1
2
3
4
5
6
7
8
9
        FNew.Rows("1:1185").Hidden = True
            FNew.Range(FNew.Cells((Target.Value - 1) * 41 + 2, 3), FNew.Cells((Target.Value - 1) * 41 + 1 + 38, 3)).EntireRow.Hidden = False
                FNew.Cells((Target.Value - 1) * 41 + 2, 3).Select
                If FNew.Cells((Target.Value - 1) * 41 + 2, 1).Offset(34).Value <> "" Then
                    MsgBox "tableau plein"
                    Exit Sub
                End If
                Application.Goto FNew.Cells((Target.Value - 1) * 41 + 2, 3), True
Fin:

[NEC14]

Bonjour Daniel,

C'est génial, ça fonctionne bien. Encore mille mercis pour ta précieuse aide.
Bien cordialement
René