Bonjour à tous (toutes)

J'ai sollicite vos compétences dans la création d'une macro/bouton qui permet de synchronier la suppression ou l'ajout d'une ligne précise et qui répète cette action sur 2 autres feuilles du même fichier (sachant que le tableau construit est le même pour les 3 feuilles).

En bref à partir de la feuille 1:
- je sélectionne la cellule A6
- à l'aide d'un bouton je supprime ou j'insère une ligne
- Cette procédure doit être calquée sur la 2e et la 3e feuille.

Je suis novice sur VBA et sur les macro donc n'hésitez pas à détailler les lignes de code.

Si vous pouviez m'aider vous m'enlèveriez une belle épine du pied.

Un grand merci

Bonsoir pechevski, bienvenue sur XLpages.com

Si j'interprète bien ta demande...

DANS UN MODULE DE CODE STANDARD (ex : Module1) :

Tu rattaches ensuite ces 2 macros à des boutons.

Cordialement,

Bonjour et merci pour ta réponse aussi rapide.

J'ai testé ton programme et malheureusement il fait une insertion/suppression de 3 lignes sur la même feuille.
Cette opération ne se traduit pas simultanément sur 1 à n feuilles de calcul.

J'ai du y bosser cette nuit et construit ce programme qui semble fonctionner.
Le seul hic est qui ne conserve pas les formules ou d'éventuelles listes déroulantes présentes dans mon tableau lors d'une Insertion. Contrairement à une opération manuelle de sélection d'une ligne complète + Inserer Ligne ou excel fait immédiatement la correspondance.

En bref après une insertion via le bouton, chaque cellule de la ligne insérée dans les 3 feuilles sont Vierges.

Sub InsertLigne()
'John_Pechevski
Dim L&
    L = Selection.Row
    If L > 2 Then
        Sheets("Satellite NR").Cells(L, 1).EntireRow.Insert
        Sheets("Satellite R").Cells(L, 1).EntireRow.Insert
        Sheets("Synthèse NR+R").Cells(L, 1).EntireRow.Insert
    End If
End Sub

Sub SupprLigne()
'John_Pechevski
Dim L&
    L = Selection.Row
    If L > 2 Then
        Sheets("Satellite NR").Cells(L, 1).EntireRow.Delete
        Sheets("Satellite R").Cells(L, 1).EntireRow.Delete
        Sheets("Synthèse NR+R").Cells(L, 1).EntireRow.Delete
    End If
End Sub

a pluche

Bonjour,

Pourquoi ne pas te mettre en groupe de travail ?

Ellimac

Je suis tout nouveau sur ce site.
Quand tu dis se mettre en groupe de travail cela signifie mettre mon fichier en PJ ?
Si c'est le cas, je n'ai pas le tps imparti pour le faire entièrement car il y a bcp de noms et de données que je ne peux pas poster librement. Donc le tps de faire les equivalences avec une nomenclature bateau necessite un peu de tps.
Mais je le ferai promis

Bonjour pechevski, ellimac, le Forum,

Tout d'abord, puisque je n'ai pas encore eu l'occasion de le faire : bienvenue à toi ellimac et merci pour ton coup de main dans ce forum, toute aide est toujours appréciée ! J'ai par ailleurs peu de temps disponible en ce moment et vos contributions me sont d'un grand secours.

pechevski, par « mettre en groupe de travail », je crois que ellimac t'invite à sélectionner simultanément tes feuilles cibles (en maintenant la touche Shift ou Ctrl et sélectionnant ensuite les dits onglets), tu verras apparaitre dans la barre de titre Excel que tu es bien en mode « Groupe de Travail ».
C'est effectivement une méthode très utile pour travailler simultanément sur plusieurs feuilles à la fois, mais malheureusement, sauf erreur de ma part, ça ne fonctionnera pas pour l'ajout ou la suppression de ligne (en tout cas, chez moi, ça n'a jamais fonctionné ainsi ).

Citation :
Je ne sais pas vraiment comment tu as tester ce bout de code... En tout cas, je pense que tu t'es un peu mélangé les pinceaux car je ne vois pas comment tu peux obtenir un tel résultat avec ça...

Citation :
J'ai beau relire ton premier post dans tous les sens, il ne me semble pas que tu parlais de formules ou listes déroulantes à reproduire... Si ta question n'est pas claire, complète et détaillée, inutile d'imaginer que la réponse le sera.

Cela dit, si tu veux une réponse adaptée à la situation, je t'invite effectivement à poster un fichier exemple en pièce jointe et plus de précisions.

Une remarque supplémentaire si tu veux bien : merci de consulter CE LIEN pour insérer du Code VBA ou une Formule de calcul dans vos posts du présent Forum.

Bien cordialement,

Hello
Ton programme fonctionne ^^ à merveille.
Par manque d'experience sur vba, j'ai modifié ta variable F en mettant le nom de ma feuille d'origine. Bref j'ai fait nimpe donc ca ne pouvait que donner du nimpe.

Le positif c'est que j'ai du me creuser à trouver une alternative, même si elle est moins technique que la tienne.

Désolé si tu as mal pris ma première réponse ce n'était pas le but.
Au moins maintenant, si d'autres personnes rencontrent un problème similaire, le sujet comporte 2 solutions qui marchent :)



a bientôt




PS: les formules à reproduire et les listes déroulantes sont dans d'autres sujets. Ca ne concernait pas ce post ^^