Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

ajouter ligne

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion news
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

news

XLDnaute Impliqué
Bonsoir,

je voudrais ajouter 25 lignes après la dernière ligne,

If Range("L100") <> 0 Then
Rows("2:2").Select
Selection.Copy
ActiveCell.SpecialCells(xlLastCell).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste

Range("A2").Select

mais cela ne fonctionne pas, qu'à la prochaine ligne est ajouté 25 lignes
au format de ligne ("2:2"),

comment résoudre,
merci d'avance des réponses,
 
Trier par date Trier par votes
Re : ajouter ligne

Salut news et le forum

If Range("L100") <> 0 Then
Rows("2:2").Select
Selection.Copy
rows(ActiveCell.SpecialCells(xlLastCell).row & ":" & _
ActiveCell.SpecialCells(xlLastCell).row + 25).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
un truc dans ce goût là
A+
 
Vote positif 0 Vote négatif
Re : ajouter ligne

Bonjour Gorfael et à tous du forum,

merci pour réponse,
j'ai remis tes expressions,
mais la ligne 125 est tj. écrasé ( j'e l'ai remarqué comme j'ai ajouté un montant dans Range(K125)),
d'après l'expression:
PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

devrait quand même que ajouter des lignes avec format,

dans la feuille que j'utilise est déjà un format de lignes jusqu'à la ligne 125,
dès que dans la ligne 100, Range(L100) <> 0, then
ajoute de lignes à partir de la 126e ligne,
l'expression que j'utilise est:

Application.Goto Reference:="ajoutes_lignes"
Selection.Copy
Range("E8").Select
Sheets("GL").Select
' ActiveCell.SpecialCells(xlLastCell).Select

Rows(ActiveCell.SpecialCells(xlLastCell).Row & ":" & _
ActiveCell.SpecialCells(xlLastCell).Row).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
aurait besoin que l'ajout de lignes commence à la 126e ligne,

merci d'avance de réponses,

bonne journée,
 
Vote positif 0 Vote négatif
Re : ajouter ligne

Bonjour à tous du forum,
j'ai ajouté l'expression suivante et cela fonctionne:

Dim Ligne As Long
Ligne = ActiveCell.SpecialCells(xlLastCell).Row
Rows(Ligne + 1)

Application.Goto Reference:="ajoutes_lignes"
Selection.Copy

Dim Ligne As Long
Ligne = ActiveCell.SpecialCells(xlLastCell).Row
Rows(Ligne + 1).PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Paste
Range("A2").Select
bonne journée encore,
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Résolu(e)
Microsoft 365 Collage valeur Erreur d'exécution 1004
Réponses
7
Affichages
217
Magic_Doctor
C
  • Résolu(e)
XL 2021 MsgBox : Je ne sais pas faire...
Réponses
10
Affichages
185
Constantin
C
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
197
sylvanu
J
  • Résolu(e)
Microsoft 365 Première cellule vide ou égal zéros dans une plage définie
Réponses
11
Affichages
456
juju91
J
F
Fdaga
Réponses
2
Affichages
135
dysorthographie
  • Résolu(e)
XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre
Réponses
9
Affichages
343
Phil69970
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
N
  • Résolu(e)
Microsoft 365 Macro entre 2 classeurs
2
Réponses
19
Affichages
761
Nounours4173
N
F
Fdaga
Réponses
0
Affichages
191
Fdaga
F
  • Question Question
XL 2016 copier valeur actuel
2
Réponses
18
Affichages
597
sylvanu
  • Résolu(e)
XL 2016 macro fichier fermé
Réponses
1
Affichages
191
eastwick
M
  • Question Question
XL 2021 VBA Excel Erreur 2023
Réponses
2
Affichages
399
MICHIS
M
C
  • Question Question
Microsoft 365 Enregistrer via VBA sans ouvrir fichier
Réponses
9
Affichages
538
cdric78
C
X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
525
xavieralvaro
X
H
  • Résolu(e)
XL 2016 Copier cellule dans un autre onglets
2
Réponses
16
Affichages
1 K
Phil69970
  • Résolu(e)
XL 2021 Exécuter une macro sur plusieurs feuilles
Réponses
9
Affichages
695
micie1509
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
M
  • Question Question
Microsoft 365 deux macros succesives et un bouton
2
Réponses
17
Affichages
1 K
MICHAEL
M
R
  • Résolu(e)
XL 2019 creer une macro pour copier des info d un onglet a un autre dans le meme classeur
Réponses
4
Affichages
802
robpellan52
R
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…