Utilisation grille excel

Bonsoir Philippe,
Teste en mettant le code ci-dessous dans un module standard et en mettant un
bouton issu de la barre d'outils "Formulaire" (ou autre) sur ta feuille et
appelant la macro "AfficherForm". C'est le plus simple, sinon, il te faut
construire un formulaire avec tout le code qui va avec (filtrage, ajout,
suppression, etc...). Ta feuille ne doit contenir que ta base de données
pour éviter les éventuelles erreurs :

Sub AfficherForm()
Dim LaPlage As Range

Set LaPlage = Plage(ActiveSheet)
LaPlage.Select
ActiveSheet.ShowDataForm
Set LaPlage = Nothing
End Sub

Function Plage(Fe As Worksheet) As Range
With Fe
Set Plage = .Range(.Cells(1, 1), _
.Cells( _
.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
End Function

Hervé.

"philippe" <phdupin@wanadoo.fr> a écrit dans le message de news:
eI21S97OGHA.3896@TK2MSFTNGP15.phx.gbl...

Bonjour

je voudrais utiliser le principe de la grille d'excel mais je voudrais
avoir simplement un bouton sur ma feuille excel qui me présente toujours
la meme grille de saisie sans avoir à recommencer le processus pour avoir
une grille.
Merci de votre aide
Cordialement

Hervé bonsoir
Merci déja pour cette réponse mais si j'applique cela j'ai toute la feuille
qui se retrouve sous forme de grille alors que je ne voudrais qu'à partir de
la ligne 3 et je ne suis pas un spécialiste mais dans le principe c'est OK
Merci de ton aide
Philippe

"Hervé" <hmsilvePasDePub@wanadoo.fr> a écrit dans le message de news:
OmagDj9OGHA.1312@TK2MSFTNGP09.phx.gbl...

Bonsoir Philippe,
Teste en mettant le code ci-dessous dans un module standard et en mettant
un bouton issu de la barre d'outils "Formulaire" (ou autre) sur ta feuille
et appelant la macro "AfficherForm". C'est le plus simple, sinon, il te
faut construire un formulaire avec tout le code qui va avec (filtrage,
ajout, suppression, etc...). Ta feuille ne doit contenir que ta base de
données pour éviter les éventuelles erreurs :

Sub AfficherForm()
Dim LaPlage As Range

Set LaPlage = Plage(ActiveSheet)
LaPlage.Select
ActiveSheet.ShowDataForm
Set LaPlage = Nothing
End Sub

Function Plage(Fe As Worksheet) As Range
With Fe
Set Plage = .Range(.Cells(1, 1), _
.Cells( _
.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
End Function

Hervé.

"philippe" <phdupin@wanadoo.fr> a écrit dans le message de news:
eI21S97OGHA.3896@TK2MSFTNGP15.phx.gbl...

Bonjour

je voudrais utiliser le principe de la grille d'excel mais je voudrais
avoir simplement un bouton sur ma feuille excel qui me présente toujours
la meme grille de saisie sans avoir à recommencer le processus pour avoir
une grille.
Merci de votre aide
Cordialement

Bonjour

Pourquoi ne pas tout simplement créer un fichier XLA qui répond à ce que tu
veut

Rex


"philippe" <phdupin@wanadoo.fr> wrote in message
news:eI21S97OGHA.3896@TK2MSFTNGP15.phx.gbl...

Bonjour

je voudrais utiliser le principe de la grille d'excel mais je voudrais
avoir

simplement un bouton sur ma feuille excel qui me présente toujours la meme
grille de saisie sans avoir à recommencer le processus pour avoir une
grille.
Merci de votre aide
Cordialement

Bonsoir Philippe,
Remplace la fonction "Plage" du précédant post par la nouvelle ci-dessous,
les valeurs alors affichées le seront à partir de la 3ème ligne :
Function Plage(Fe As Worksheet) As Range
With Fe
Set Plage = .Range(.Cells(3, 1), _
.Cells( _
.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
End Function

Hervé.

"philippe" <phdupin@wanadoo.fr> a écrit dans le message de news:
uMYYu3APGHA.2268@TK2MSFTNGP09.phx.gbl...

Hervé bonsoir
Merci déja pour cette réponse mais si j'applique cela j'ai toute la
feuille qui se retrouve sous forme de grille alors que je ne voudrais qu'à
partir de la ligne 3 et je ne suis pas un spécialiste mais dans le
principe c'est OK
Merci de ton aide
Philippe

"Hervé" <hmsilvePasDePub@wanadoo.fr> a écrit dans le message de news:
OmagDj9OGHA.1312@TK2MSFTNGP09.phx.gbl...

Bonsoir Philippe,
Teste en mettant le code ci-dessous dans un module standard et en mettant
un bouton issu de la barre d'outils "Formulaire" (ou autre) sur ta
feuille et appelant la macro "AfficherForm". C'est le plus simple, sinon,
il te faut construire un formulaire avec tout le code qui va avec
(filtrage, ajout, suppression, etc...). Ta feuille ne doit contenir que
ta base de données pour éviter les éventuelles erreurs :

Sub AfficherForm()
Dim LaPlage As Range

Set LaPlage = Plage(ActiveSheet)
LaPlage.Select
ActiveSheet.ShowDataForm
Set LaPlage = Nothing
End Sub

Function Plage(Fe As Worksheet) As Range
With Fe
Set Plage = .Range(.Cells(1, 1), _
.Cells( _
.Cells.Find("*", .[A1], -4123, , _
1, 2).Row, _
.Cells.Find("*", .[A1], -4123, , _
2, 2).Column))
End With
End Function

Hervé.

"philippe" <phdupin@wanadoo.fr> a écrit dans le message de news:
eI21S97OGHA.3896@TK2MSFTNGP15.phx.gbl...

Bonjour

je voudrais utiliser le principe de la grille d'excel mais je voudrais
avoir simplement un bouton sur ma feuille excel qui me présente toujours
la meme grille de saisie sans avoir à recommencer le processus pour
avoir une grille.
Merci de votre aide
Cordialement