Discussion :

[phebus471321]

Bonjour à tous,

Je reviens vers vous pour sollicité une nouvelle fois votre aide.

J'utilise un tableau Excel 2013, renseigné par plusieurs personnes à partir duquel j'effectue un suivi des demandes d'avis.
Le tableau se présente de la manière suivante :

Etablissement ADRESSE NUMERO Date 1 Date 2 DATE REPONSE AVIS Mission Acteur Temps insert
A W T17-011 12/01/2017 10/02/2017 26/01/2017 AF
B X T17-012 16/01/2017 14/02/2017 26/01/2017 AF
C Y T17-013 02/02/2017 03/03/2017
D Z T17-014 02/02/2017 03/03/2017

Les colonnes Mission et Acteur sont des listes déroulantes.
Les cellules temps se remplissent automatiquement en fonction des valeurs des cellules Mission et acteurs de la même ligne.

Si cela est possible, je souhaiterai qu'a chaque ligne renseignée figure un bouton dans la colonne insert.
Sa fonction serait (en cliquant dessus) d'insérer si besoin, une ligne en dessous, pour ajouter une nouvelle mission à un nom d'établissement avec une recopie de mes listes déroulantes et de mes formules.

Malheureusement, je ne maîtrise pas du tout les macros.
Par avance je vous remercie pour votre aide et reste à votre disposition pour tout éclaircissement.

Cordialement.
Phebus

[Menhir]

Si cela est possible, je souhaiterai qu'a chaque ligne renseignée figure un bouton dans la colonne insert.
Sa fonction serait (en cliquant dessus) d'insérer si besoin, une ligne en dessous, pour ajouter une nouvelle mission à un nom d'établissement avec une recopie de mes listes déroulantes et de mes formules.

Il serait beaucoup plus simple qu'il n'y ait qu'un seul bouton et qu'il recopie la ligne courant dans la ligne du dessous.

Code :

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

Rows(ActiveCell.Row).Insert(xlShiftDown, Rows(ActiveCell.Row))

Perso, dans ma barre d'outil à accès rapide, j'ai un bouton vers la macro :

Code :

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

1
2
3
4
5
6
Sub Y_Copier_Inserer()
' Copie une ligne et l'insère au même endroit
    Selection.Copy
    Selection.Insert Shift:=xlDown
    Application.CutCopyMode = False
End Sub

Qui permet de dupliquer une ligne.
Etonnamant, malgré le xlDown, ça marche aussi pour les colonnes.

[phebus471321]

bonjour,

Je vous remercie pour votre aide.

J'espère avoir bien insérer votre code car le résultat n'ai pas celui attendu; mais je n'y connais rien en VBA.
En effet, le code m'insère une cellule et non une ligne en allant cliquer sur le bouton macro barres d'accès rapide.

Par ailleurs, l'intérêt pour moi de mettre un bouton sur chaque ligne réside dans le fait qu'il y a plusieurs utilisateurs de ce fichier et que ce fonctionnement sera plus aisé que d'aller cliquer le bouton macro dans la barre d'outil à accès rapide, et là je ne sais pas comment faire.

Par avance merci pour tout.

[Menhir]

J'espère avoir bien insérer votre code car le résultat n'ai pas celui attendu; mais je n'y connais rien en VBA.
En effet, le code m'insère une cellule et non une ligne en allant cliquer sur le bouton macro barres d'accès rapide.

Lequel des codes as-tu utilisé ?
Pour ton application, c'est le premier qui est le plus adapté.

Le second est plus polyvalent, permettant de copier/insérer ligne, colonne ou simple cellule.
Si tu veux le faire fonctionner la même façon que le précédent, il faut sélectionner une ligne complète avant de le lancer.

Par ailleurs, l'intérêt pour moi de mettre un bouton sur chaque ligne réside dans le fait qu'il y a plusieurs utilisateurs de ce fichier et que ce fonctionnement sera plus aisé que d'aller cliquer le bouton macro dans la barre d'outil à accès rapide, et là je ne sais pas comment faire.

Rien ne t'empêche de mettre un bouton unique dans la feuille plutôt que dans la barre d'outils.

Je peux juste te garantir que si tu persistes à vouloir mettre un bouton par ligne, ça sera très compliqué à faire.

[parmi]

Bonjour,

De mon côté, j'opterais pour un menu contextuel (click droit) qui permettrait d'insérer la ligne là où on clique...

[phebus471321]

Re-bonjour,

j'ai créer un bouton dans ma feuille et utilisé le deuxième code.
Voir le fichier joint, cela sera plus parlant.

J'ai modifier votre code car il me recopiait l'ensemble des données de ma ligne.
Le problème est qu'il m'insère un ligne (qui est bien vierge), mais au dessus de celle qui est sélectionnée.

Serait-il possible :
- en sélectionnant une cellule par exemple J7, d'avoir une ligne vierge qui s'insère en dessous.
Sinon, que modifier dans votre code pour avoir une ligne vierge qui s'insert en dessous, et non au dessus de la sélection.
Pourriez-vous modifier votre code dans ce sens

Merci pour votre aide
phebus471321

[Menhir]

J'ai modifier votre code car il me recopiait l'ensemble des données de ma ligne.

Dans ta demande, tu as écris que tu voulais "insérer une ligne".
Si tu veux l'insertion d'une fraction de ligne (quelques cellules), il faudra être plus précis quelles colonnes sont concernées par la copie.

Le problème est qu'il m'insère un ligne (qui est bien vierge), mais au dessus de celle qui est sélectionnée.

Dans la mesure où l'original et la copie sont strictement identiques, je ne vois pas ce qui poserait problème que ce soit l'une ou l'autre qui soit au dessus ou au dessous.

Si ça pose un problème, il va falloir expliquer en quoi.

- en sélectionnant une cellule par exemple J7, d'avoir une ligne vierge qui s'insère en dessous.

Prendre le premier des deux codes : il récupère le n° de ligne pour faire la copie.