Soucis avec un code pour ajouter des lignes

Résolu/Fermé

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - Modifié par jordane45 le 25/11/2015 à 18:33
jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 - 27 nov. 2015 à 18:14

Bonjour,
J'ai ce code pour ajouter des lignes

Sub AjoutLigne()
    Application.ScreenUpdating = False
    DerLig = [B10000].End(xlUp).Row
    Range(Cells(DerLig, 1), Cells(DerLig, 14)).Copy
    Range(Cells(DerLig + 1, 1), Cells(DerLig + 1, 14)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

Le problème est qu'il m'ajoute la ligne,mais une ligne déjà rempli texte et chiffres au lieu de m'ajouter une ligne vierge.
Pour l'instant mon tableau comporte 10 lignes dont les 4 premières figées.
Tableau allant de A à K avec des formules et des MFC avec en colonne B une liste déroulante.
Pouvez-vous svp me dire ou cela coince.
Cordialement

EDIT : Ajout des balises de code (la coloration syntaxique).
Explications disponibles ici :ICI

Merci d'y penser dans tes prochains messages.

A voir également:

Soucis avec un code pour ajouter des lignes
Ajouter un compte gmail - Guide
Code asci - Guide
Code puk bloqué - Guide
Code telephone oublié - Guide
Ajouter signature word - Guide

3 réponses

Réponse 1 / 3

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
27 nov. 2015 à 09:58

Bonjour a vous deux,

desole pour l'incruste

jc80
Dans votre code de depart, 14--->colonne N, donc jordane45 a pris votre code sans y penser, puisque dans votre texte vous parliez de colonne K. Donc remplacez 14 par 11 (colonne K)

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
27 nov. 2015 à 18:14

Bonsoir f894009

Merci pour ta réponse ,mon fichier fonctionne super bien.
Comme j'ai déjà du le préciser je fais ce que je peux avec le VBA.
Je vais chercher des codes sur le web.Malheureusement ils ne correspondent pas toujours
à ce dont j'ai besoin.
Merci encore à toi et à jordane 45
Je passe en résolu
Cordialement

Réponse 2 / 3

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
Modifié par jordane45 le 25/11/2015 à 18:35

Bonjour,

Le problème est qu'il m'ajoute la ligne,mais une ligne déjà rempli texte et chiffres au lieu de m'ajouter une ligne vierge.

En même temps.... tu lui demande de faire un copier coller d'une ligne existante... donc quand il la "colle" ... ben.. c'est la réplique de celle que tu as copié... logique !

Cordialement,
Jordane

Réponse 3 / 3

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422
25 nov. 2015 à 18:46

Bonsoir

Merci pour ta réponse

Ce que je souhaite ,j'ai 10 lignes actuellement c'est quand la 9° est remplie de données,qu'il me recopie la 10° qui ne comporte que formules et MFC.
Crdlt

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650
Modifié par jordane45 le 25/11/2015 à 18:54

Donc... +1 à la ligne à copier

Range(Cells(DerLig+1, 1), Cells(DerLig+1, 14)).Copy

jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024 4 650 > jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024
25 nov. 2015 à 18:55

Le code complet

Sub AjoutLigne()
    Application.ScreenUpdating = False
    DerLig = [B10000].End(xlUp).Row
    Range(Cells(DerLig + 1, 1), Cells(DerLig + 1, 14)).Copy
    Range(Cells(DerLig + 2, 1), Cells(DerLig + 2, 14)).Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub

jc80 Messages postés 4149 Date d'inscription mardi 5 février 2013 Statut Membre Dernière intervention 25 février 2019 1 422 > jordane45 Messages postés 38145 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 25 avril 2024
26 nov. 2015 à 17:46

Bonsoir jordane 45
Merci pour ton code qui fonctionne à merveille.
Malheureusement j'ai un autre souci ,mon tableau va de la colonne A à K et a coté
de M à U, un autre tableau qui représente ma base de données de mon tableau principal
AàK.
Donc quand j'ajoute une ligne la ligne s'ajoute également dans le 2° tableau,alors je ne t'explique pas le bazard qu'il peut y avoir dans ma base de données.
Est-il possible de ajouter une ligne seulement de A à K.
Cordialement

Discussions similaires

Code de renvoi d'appel : Ooredo, Mobilis...

Codes bateaux et avion GTA vice city Stories

Afficher toutes les lignes masquées excel

Discussions similaires

Newsletters