Ajout de ligne

Bonjour,

je cherche à ajouter automatiquement (avec ou sans bouton) une ligne de A9 à S9 lorsque je saisie la première case de la dernière ligne en B8 qui conserverait les formules (et la couleur dans les colonnes A et S) existantes . N'y connaissant absolument rien en code et macros, j'ai essayé en vain avec des macros de différents sites mais rien n'y fait.

Je suppose que cela n'est possible qu'avec une macro ???

Je joints le tableau concerné ce sera certainement beaucoup plus parlant.

En vous remerciant, cordialement.

Bonjour

Il faudrait modifier votre fichier en mettant sur une feuille séparée les données en dessous et à droite de votre tableau

Possible cela ?

Cordialement

Bonjour,

je pense que vous voulez me proposer l'ajout de ligne directement à partir de TAB ?

Re

Non du tout. A moins que j'ai mal compris, le but de votre demande est que si vous complétez B8 on crée automatiquement une ligne vide en ligne 9 et ainsi de suite. Si B9 on crée une ligne vide en ligne 10,....

Avant de faire cela je vous suggère de déplacer vos autres tableaux plus bas et à droite sur un autre feuille.

cordialement

Bonjour Dan, vous pensez à une macro ?

Re

Oui bien sur

Faites votre fichier en déplaçant vos tableaux sur une feuille séparée.

Pour ce qui concerne, la colonne B pas de souci mais pour la colonne C vous avez une formule dans la liste déroulante qu'il faut adapter

Cordialement

RE en grattant j'ai trouvé une macro mais elle m'insère des lignes sur les entêtes de tableau. Si ça peux vous faire gagner du temps.

Merci encore !!!

Re

Votre fichier en retour

Sélectionnez une cellule au hasard (exemple B9) puis cliquer sur le bouton ajouter

Si vous sélectionnez une cellule en ligne 6 ou supérieure à la dernière ligne +1 (exemple B10 ou B6), l'ajout ne sera pas effectué

Si ok et terminé merci de clôturer le fil en cliquant sur le V vert à coté du bouton EDITER

Cordialement

Bonjour

Salut Dan

Un essai sur une autre façon de faire

Cordialement

Edit Amadéus: Le fichier posant problème a été supprimé. Voir le suivant

MERCI beaucoup pour le fichier monsieur DAN.

Amadeus il y a un bug avec votre fichier au téléchargement et à l'ouverture.

Encore merci et bonne soirée à vous !

Amadeus voici le message que j'ai à l'ouverture :

Excel a terminé la validation et la réparation de niveau fichier. Certaines parties du classeur peuvent avoir été réparées ou abandonnées.

Partie réparée: partie /xl/worksheets/sheet1.xml avec erreur XML. Erreur de chargement. Ligne 2, colonne 0.

Bonjour

Amadeus il y a un bug avec votre fichier au téléchargement et à l'ouverture.

Oui, j'ai vu et je suis intrigué.

Peux-tu essayer ce nouveau fichier et me dire le résultat?

En ce qui me concerne, tout est OK

Je supprime le fichier précédent

Cordialement

Bonjour Amadéus et merci pour l'envoi mais il y des bugs et ça me plante excel ?

En pièces joints capture des messages d'erreur.

Merci quand même.

Bonjour

Quelque chose de différent entre Excel 2013 (Ma version) et ton Excel 2016?

Curieux tout de même. Je viens de re-télécharger le fichier mis en ligne et de l'utiliser sans aucun problème.

Quelqu'un d'autre voudrait-il donner son opinion sur ce fichier?

Cordialement

Oui en effet, je vais tenter une réinstallation pour voir si ça peut venir de ça !

Merci Amadéus, je réinstalle et je te tiens au courant.

Re

Plutot que de réinstaller, essayez comme ceci pour voir :

Sub Ajoute_Ligne()
Dim Lign
Lign = Range("B6").End(xlDown).Row
If ActiveCell.Row = Lign Then
ActiveCell.EntireRow.Copy
Application.EnableEvents = False
Rows(Lign + 1).Insert Shift:=xlDown
Range("B" & Lign + 1).ClearContents
End If
Range("C" & Lign).Select
Application.EnableEvents = True
End Sub

Cordialement

Bonjour DAN,

merci pour votre retour. Le changement m'envoie directement dans la cellule C1048576.

J'ai réinstallé Excel mais pas de changement ?

Cordialement.

Bon ben pas de changement

Je vais rester sur plus basique qui fonctionne.

Merci à tous !!!

Re

Désolé pour le retour tardif mais j'étais absent

merci pour votre retour. Le changement m'envoie directement dans la cellule C1048576

Vous avez quoi dans votre colonne B après B6 ?

Cordialement

Bonjour Dan,

j'ai une liste déroulante avec des noms de ville.

Cordialement.

Re

On peut revoir le fichier actuel qui reproduit l'erreur (pas une copie mais le fichier de travail)

Cordialement