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,