Soucis avec un code pour ajouter des lignes

Résolu
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -  
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   -
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:

3 réponses

Réponse 1 / 3
f894009 Messages postés 17277 Date d'inscription   Statut Membre Dernière intervention   1 713
 
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)
2
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
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
0
Réponse 2 / 3
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
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
1
Réponse 3 / 3
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425
 
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
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752
 
Donc... +1 à la ligne à copier 
Range(Cells(DerLig+1, 1), Cells(DerLig+1, 14)).Copy
0
jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention   4 752 > jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention  
 
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
0
jc80 Messages postés 4243 Date d'inscription   Statut Membre Dernière intervention   1 425 > jordane45 Messages postés 38486 Date d'inscription   Statut Modérateur Dernière intervention  
 
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
0