Ajout d'une ligne

[yblotiere]

Bonjour
je souhaiterait lorsque je clique sur la dernière ligne de mon tableau que cela m'insère une ligne de la colonne A jusqu'à I avec un copie des formule et format, et couleur
mais cela dépasse mes compétence
je ne sais pas comment faire sachant qu'il s'agit d'un fichier qui me sert pour saisir des prise de carburant et qu'il y à dans le fichier original plusieurs feuille une par véhicules
pouvez vous me donner un coup de main
je vous joint un extrait de mon fichier
j'espère avoir été assez clair dans mes explication
merci

yannick

 

[Papou-net]

Re : Ajout d'une ligne

Bonjour yblotiere,

Vois si la copie de ton fichier ci-jointe te convient.

Cordialement.

 

[fhoest]

Re : Ajout d'une ligne

Bonjour,
je ne sais pas si tu sais ou pas utiliser le vba:
mais voici un code a coller dans la feuille concernée dans vb. ALT+F11.(pour ouvrir l'éditeur vb)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
drligne = Range("a65000").End(xlUp).Row
If Target.Row = drligne + 1 Then
Range("a" & drligne & ":i" & drligne).Copy
Range("a" & drligne + 1).PasteSpecial (xlPasteAll)
Range("a" & drligne + 1 & ":e" & drligne + 1).Value = ""
Application.SendKeys "{ESC}"
End If
End Sub

Attention je viens de regarder le fichier de papou-net il insère les lignes ce qui est mieux que moi car je n'avais pas vu qu'il y avait une ligne de totaux !!

edit: salut PAPOU-NET 😱
A+

 

[yblotiere]

Re : Ajout d'une ligne

merci à tous les deux
mais lorsque je me positionne cela ajoute bien une ligne j'ai deux petit soucis

1 l'ajout de ligne ne copie pas mais formule (prix ht prix du litre distance parcouru et conso)

2 lorsque je complète cette dernière ligne et que je passe d'une cellule à l'autre il me rajoute une ligne a chaque fois ne serait-il pas possible de le faire uniquement sur un double clic par exemple?

merci pour votre rapidité et pour les solution apporté

yannick

 

[fhoest]

Re : Ajout d'une ligne

je pense qu'il faut mixer nos deux code si tu sais le faire
il faut doubleclicker sur la derniere ligne vierge du tableau.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
drligne = Range("a65000").End(xlUp).Row
If Target.Row = drligne + 1 Then
Range("a" & drligne + 1 & ":i" & drligne + 1).Insert
Range("a" & drligne & ":i" & drligne).Copy
Range("a" & drligne + 1).PasteSpecial (xlPasteAll)
Range("a" & drligne + 1 & ":e" & drligne + 1).Value = ""
Application.SendKeys "{ESC}"
End If
End Sub

A+

 

[Papou-net]

Re : Ajout d'une ligne

RE :

Voici une double solution :

- un double-clic sur une des cellules A à I de la dernière ligne du tableau ajoute une nouvelle ligne. La formule prend bien en compte cette nouvelle ligne (comme dans ma version précédente).

- Un bouton de commande créé une nouvelle ligne à chaque appui ( le bouton se décale au fur et à mesure). Par contre, cette solution permet de créer plusieurs lignes à la suite, sans être obligé de renseigner la 1ère cellule. Est-ce un avantage, c'est à toi de juger ?

Espérant avoir répondu.

Cordialement.

PS : bonjour fhoest

 

[yblotiere]

Re : Ajout d'une ligne

Merci Papou-net et fhoest

maintenant je n'ai plus qu'a choisir la solution que me convient le mieux et essayer
de la reproduire sur les autres feuilles

encore merci
c'est très sympa pour le coup de main
top forum

yannick

 

[Papou-net]

Re : Ajout d'une ligne

RE yblotiere,

Mon fichier précédent comporte bien des erreurs.

J'ai eu du mal, mais je les ai rectifiées. Voici donc la bonne version.

Cordialement.