Discussion :

[tchock_nenette]

Bonjour,

J'essaie de trouver une technique pour inserer une ligne en meme temps dans plusieurs feuilles.

J'ai une feuille avec ma base salarié et les autres avec les mois de l'année. A chaque fois que je veux ajouter un nouveau salarié il faut que je rajoute la ligne dans toutes les autres feuilles. je cherche donc un moyen de le faire en automatique.

Pour mes feuilles concernant les mois, j'ai fait un lien sur les 3 premières colonnes à ma base salariés, ainsi quand je modifie une donnée sur ma feuille base, elle s'applique sur chaque autre feuille.

Seulement cela ne fonctionne pas quand j'insere une ligne....

Avez vous une technique? a savoir que je ne maitrise toujours pas les macros....

merci à vous

Cordialement,

Tchock

[78chris]

Bonjour

Il suffit de sélectionner tous les onglets concernés :

• si suite continue : clic sur nom du 1er onglet de la suite, puis maintien touche Shift et clic sur nom dernier onglet de la suite
• si suite non continue, clic sur nom du 1er onglet, puis maintien touche CTRL, et clic sur chaque onglet concerné

On se retrouve en groupe de travail
Ensuite insérer la ligne, saisir les éléments de la ligne communs à tous les onglets
Ne pas oublier ensuite de sortir du mode groupe de travail en cliquant sur un onglet ne faisant pas partie du groupe

[Paritec]

Bonjour Tchock nenette le forum
a+
papou

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub ajouterligne()
    Dim sh As Worksheet, i&, nom$
    nom = "Paolo FRINGER"
    i = 12 'numéro de la ligne à insérer
    For Each sh In Worksheets
        If sh.Name <> "Base de Données" Then 'sauf si la feuille s'appelle base de données
            sh.Rows(i).Insert shift:=xlDown: .Cells(i, 1) = nom
        End If
    Next sh
End Sub

[tchock_nenette]

pour 78chris, j'avais deja essayé mais je n'ai pas la possibilité d'insérer de lignes lorsque je suis en groupe de travail l'option n'est pas en surbrillance.

Pour Paritec: le code m'affiche une erreur 1004 et me met en surbrillance la ligne : sh.Rows(i).Insert shift:=xlDown

je ne sais pas si j'ai mis le code au bon endroit, j'ai crée un module et j'ai copié votre code.

merci de votre aide très rapide

[Paritec]

Re Tchock le forum
Même réponse que sur l'autre forum, tu donnes rien comme explications alors je pond un code au hasard et un code au hasard il fonctionne mais il faut l'adapter et manifestement tu ne sais pas le faire alors un petit fichiers les explications qui vont bien dedans et je te fais cela par retour
a+
papou

[Philippe Tulliez]

Bonjour,

pour 78chris, j'avais deja essayé mais je n'ai pas la possibilité d'insérer de lignes lorsque je suis en groupe de travail l'option n'est pas en surbrillance.
Pour Paritec: le code m'affiche une erreur 1004 et me met en surbrillance la ligne : sh.Rows(i).Insert shift:=xlDown
je ne sais pas si j'ai mis le code au bon endroit, j'ai crée un module et j'ai copié votre code.
merci de votre aide très rapide

Par acquit de conscience, j'ai vérifié mais dans la version 2010, il n'y a aucun problème d'insertion de ligne dans le mode [groupe de travail].
[EDIT]
Je viens de vérifier sur la version 2003 et je confirme que cela fonctionne également,

[78chris]

Bonjour

Feuilles remplies jusqu'en bas... comme indiqué sur l'autre forum...

[Paritec]

Bonjour Chris tchock le forum
tu veux dire que les feuilles sont remplies sur 65536 lignes et qu'il n'y a pas une seule ligne de vide??
C'est le fichier de 75 MO ??( moi quand j'ai vu ce que tu as mis 75 MO j'ai pas chargé)
A vous relire
a+
papou

[78chris]

Bonjour

Eh oui Papou : toutes les lignes de tous les mois sont utilisées.

Sur XLD j'avais émis cette hypothèse avant même que le fichier de 75MO soit mis en ligne...

Si tchock lisait bien les posts tous le monde, y compris elle, gagnerait du temps...

[tchock_nenette]

malgré la suppression de l'ensemble des lignes inutilisées l'utilisation du groupe de travail pour insérer une ligne ne fonctionne toujours pas.

J'essaie avec le code de paritec

merci encore.

Tchock

[kiki29]

Salut, la procédure signalée par 78Chris fonctionne parfaitement même sous Excel 97. Je commence à avoir des doutes sur tes manips.

[Paritec]

Bonjour kiki Chris le forum
oui mais Kiki si une des feuilles est protégée cela ne marche plus et comme tchock apparemment ne sais pas trop manipuler excel !!!
Enfin c'est une supposition!!
a+
Papou

[kiki29]

Salut, dans ce cas la fenêtre du message d'erreur généré est suffisamment explicite et cette gente damoiselle point n'en parle.

[tchock_nenette]

Bonjour,

Effectivement Kiki je n'ai aucun message explicite du genre, ni meme aucun autre message d'ailleurs....

J'ai essayé la macro de Paritec qui fonctionne ( ) la ligne est bien insérée cependant la mise en page ne correspond pas à la mienne et les formules de la ligne du dessus ne se dupliquent pas.

j'ai bien supprimé l'ensemble des lignes puisque ma barre déroulante est à présent longue et que lorsque je la mobilise je ne descend pas plus bas que la ligne 130 à moins que je ne clique sur la flèche, au quel cas je vais bien plus loin (je ne sais pas si c'est très clair ...)
Je peux vous joindre mon fichier qui ne fait plus que 5 mo grace à Chris
le voila : http://cjoint.com/?3EbieV0H7Qn

et je confirme les propos de Paritec : je suis loin d'être une douée d'excel. mais j'y travaille, enfin j'essaie !
Merci encore de votre aide

Tchock

[78chris]

Bonjour

C'est effectivement curieux : je pense que cela vient d'un effet de bord des cellules fusionnées.

Si je déplace Base Salariés ailleurs (à la fin par exemple) et que je prends soin de sélectionner une cellule à droite du tableau (colonne I par exemple) de cet onglet, puis que je sélectionne les 12 mois + Base Salariés l'insertion fonctionne.

Il ne faut pas être positionné sur l'onglet Base Salariés pour que cela marche sur le groupe de travail.

J'ai remarqué que sans rien faire la cellule fusionnée à tendance à se resélectionner toute seule quand on clique sur l'onglet.

[Paritec]

Bonjour Chris Kiki tchock le forum
moi je viens de charger le fichier et de faire le test et pas de soucis avec l'insertion même sur la feuille base salarié !!!
Par contre la ligne s'ajoute mais les formules ne se recopient pas et je pense que c'est normal? enfin moi et les formules!!!!
Bref ce que je peux te faire c'est une macro qui en plus recopierait les formules des feuilles si cela peut t'aider? a te relire
a+
papou

[Paritec]

Re Bonjour Tchock le forum
bon alors voilà je pense avoir réglé le problème, j'ai ajouté un userform avec le nom et prénom à ajouter et tu cliques cela ajoute bien à toutes tes feuilles
mais le problème est dans tes formules en fait, bref testes et redis moi
tu ouvres le fichier feuille base Salarié et là tu as un bouton ajouter un nom tu remplis nom prénom et tu fais ajouter
a te relire
a+
papou

[tchock_nenette]

mon problème est résolu.

Merci à tous pour vos suggestions