Soucis avec un code pour ajouter des lignes
Résolu
Bonjour,
J'ai ce code pour ajouter des lignes
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
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. |
3 réponses
-
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)-
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
-
-
ModérateurBonjour,
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 -
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-
-
Modérateur@jordane45Le 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 -
@jordane45Bonsoir 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
-
