Dupliquer automatiquement une valeur en insérant une ligne en dessous

[norbsa]

Bonjour,

je dois insérer une ou plusieurs lignes dans un tableau

Je souhaite que la valeur de la colonne A de la ligne au dessus de laquelle j'insère la ou les lignes se répète automatiquement

je ne sais pas comment faire ...

Merci pour votre aide

 

[ccpapy]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

bonjour un petit exemple joint à adapter à tes besoins
à+

 

[jeanpierre]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

Bonjour norbsa et Bienvenue, le forum,

Une solution donnée par Willfrid, il y a quelques mois (début avril)

Sub recopieformules()
Dim gwcel As Range, mem As Variant
ActiveCell.EntireRow.Insert shift:=xlDown
Rows(ActiveCell.Row - 1 & ":" & ActiveCell.Row).FillDown
mem = ""
For Each gwcel In ActiveCell.EntireRow
If IsEmpty(gwcel.FormulaLocal) = False Then mem = gwcel.FormulaLocal
gwcel.Value = ""
If IsEmpty(mem) = False Then gwcel.FormulaLocal = mem
Next
End Sub

A mettre dans un module. Alt F11

Affichage/Fenêtre de propriété et là tu doubles-clic sur ton classeur

Insertion Module et tu colles ce code dans la fenêtre de droite.

Ensuite, tu peux mettre un bouton sur ta feuille pour lancer la macro, chaque fois que c'est nécessaire.

Tu nous dis.

Bon AM.

Jean-Pierre

 

[norbsa]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

Merci CCPAPY mais ça ne marche pas ....

 

[jeanpierre]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

Re, salut ccpapy, re tous,

Il serait bon que tu précises ton besoin.

Parti en Recherche, j'ai zappé la colonne A et le code indiqué travaille sur toute la ligne... ZOP, ZOP............

Ceci dit, je viens de regarder le fichier de ccpapy, il répond à ta question, me semble-t'il.

A te lire, donc, pour plus.

Jean-Pierre

Edit : Je viens de vérifier, il ne travaille que sur la ligne 2 de mémoire..., donc, moins bon.
Je vais voir en Recherche.

 

[ccpapy]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

Merci CCPAPY mais ça ne marche pas ....

re, 😱 je n'aurai pas compris ce que tu demandes ?
qu'est-ce qui ne fonctionne pas??
à+

 

[norbsa]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

... à quoi sert ton bouton "ajouter ligne" ? c'est le bouton de la macro ?

dans ton fichier si je fais ajouter une ligne avec le clic droit, la ligne s'ajoute mais la valeur ne se duplique pas, ma ligne est vide

 

[jeanpierre]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

Re,

Pour lancer la macro : Outils/Macro et lancer RecopieFormules, après avoir selectionné la ligne au dessous de laquelle on souhaite recopier...

Mais on peut mettre un bouton, une image, ce que l'on veut... Clic droit sur le bord de cet objet et Affecter une macro et, là, choisir RecopieFormules, mais comme rectifié plus haut, cela s'applique à la ligne entière et non à une seule cellule....

Edit : A bien te relire (dernier message), je pense que tu t'adresses à ccpapy, Précises, là aussi, sinon on ne sait plus lequel qu'est l'autre...

 

[ccpapy]

Re : Dupliquer automatiquement une valeur en insérant une ligne en dessous

... à quoi sert ton bouton "ajouter ligne" ? c'est le bouton de la macro ?

dans ton fichier si je fais ajouter une ligne avec le clic droit, la ligne s'ajoute mais la valeur ne se duplique pas, ma ligne est vide

ben oui🙂 le code à adapter à ta ligne (si bien sur tu inseres toujours au même niveau...)
allez tu peux cliquer dessus, courage🙂
sinon, si la ligne que tu inseres n'est pas toujours au même niveau peut-être en passant par un activecell