creations de lignes automatique

[biomed]

bonjour a toutes et a tous
je me lance dans un nouveau projet et deja un probleme.
dans mafeuille, jaimerais que lorsque je comment a renseiger une partie d'un petit tableau, automatiquement celui-ci se recree vierge a la suite en s'intercalant entre le tableau rempli et le tableau de resultat
donc exemple: je commence a remplir la ligne 13 et automatiquement le tableau compris entre 13 et 17 se recopie a partir de la 19 et ce ainsi de suite
j'espere que je suis assez clair dans ma requete
je vous met en piece jointe une ebauche de ce que je voudrai realier
merci d'avance

 

[Gorfael]

Re : creations de lignes automatique

encore moi
j'ai maintenant un soucis avec un bouton retour qui se trouve sur mes feuilles
quand je clique dessus, la feuille qui etait cachee avant la visualisation ne se referme pas
portant voici le code que je lui ai affecte:

Private Sub CommandButton1_Click()
Worksheets("Type").Visible = False
Worksheets("SERVICE INCENDIE").Select
End Sub
povez vous voir de quoi il en resulte
merci

Salut
celle-là, elle est facile

Private Sub CommandButton1_Click()
Worksheets("SERVICE INCENDIE").Select
Worksheets("Type").Visible = False
End Sub
devrait mieux fonctionner
A+

 

[biomed]

Re : creations de lignes automatique

bonjour et merci pour ta reponse
mais le pb ne vient pas vraiment de la, je crois
j'ai remarque que lorsque je cree une nouvelle feuille via le bouton de creation, le code du bouton retour ne change pas donc la coomande de masquage ne fonctionne plus
y a t il un moyen pour que le code de masquage prenne le nom de l'onglet lors de la creation?
merci

 

[Gorfael]

Re : creations de lignes automatique

bonjour et merci pour ta reponse
mais le pb ne vient pas vraiment de la, je crois
j'ai remarque que lorsque je cree une nouvelle feuille via le bouton de creation, le code du bouton retour ne change pas donc la coomande de masquage ne fonctionne plus
y a t il un moyen pour que le code de masquage prenne le nom de l'onglet lors de la creation?
merci

Re...
Dans ta feuille Type, modifie le code bouton

Private Sub CommandButton1_Click()
Worksheets("SERVICE INCENDIE").Select
Me.Visible = xlSheetHidden
End Sub

Me fait référence à l'objet "parent", ici la feuille sur laquelle se trouve le bouton, sans tenir compte du nom
A+