Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Copie ligne

Copie ligne

11 réponses
Avatar
Christian
Bonjour =E0 tous
Comment puis-je indiquer par macro la situation suivante.
Actuellement, je s=E9lectionne une ligne, la copie et la=20
r=E9ins=E8re au m=EAme endroit(bouton droit de la=20
souris "Ins=E9rer et coller une ligne").
J'ai bien essay=E9 avec l'=E9diteur de macro; mais je ne sais=20
comment modifier le num=E9ro de la ligne indiqu=E9 pour une=20
ligne de num=E9ro quelconque.
Merci d'avance pour vos suggestions =E9ventuelles.
Christian
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
AV
Sub zzz()
x = 5
With Rows(x & ":" & x)
.Copy
.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
End Sub

AV
Avatar
poy-poy
Bonjour christian,

Je ne suis pas sûr de ce que tu veux faire donc ceci est un exemple à
adapter ou je copie la ligne 10. Je t'ai mis 2 méthodes différentes pour
selectionner la ligne complète.

sub copypaste()

dim k as integer

k = 10

rows(k & ":" & k).copy
cells(k,1).entirerow.insert shift:=xldown

end sub

A plus
Benjamin

Bonjour à tous
Comment puis-je indiquer par macro la situation suivante.
Actuellement, je sélectionne une ligne, la copie et la
réinsère au même endroit(bouton droit de la
souris "Insérer et coller une ligne").
J'ai bien essayé avec l'éditeur de macro; mais je ne sais
comment modifier le numéro de la ligne indiqué pour une
ligne de numéro quelconque.
Merci d'avance pour vos suggestions éventuelles.
Christian



Avatar
Christian
Merci Alain
-----Message d'origine-----
Sub zzz()
x = 5
With Rows(x & ":" & x)
.Copy
.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
End Sub

AV


.



Avatar
Christian
Alain
Je viens de l'essayer, mais j'ai un petit soucis.
Comment indiquer qu'il s'agit d'une ligne quelconque (au
départ, je ne connais pas son numéro, c'est en fonction de
critère que le choix se fait).
Merci
Cordialement
Christian
-----Message d'origine-----
Sub zzz()
x = 5
With Rows(x & ":" & x)
.Copy
.Insert Shift:=xlDown
End With
Application.CutCopyMode = False
End Sub

AV


.



Avatar
Christian
Merci Benjamin
Cela fonctionne très bien du moment que je lui communique
le numéro de la ligne.
Mais comment faire pour indiquer dans la macro un numéro
de ligne quelconque. Le choix de la ligne étant déterminé
par une série de critères.
Merci d'avance
Cordialement
Christian
-----Message d'origine-----
Bonjour christian,

Je ne suis pas sûr de ce que tu veux faire donc ceci est
un exemple Ã

adapter ou je copie la ligne 10. Je t'ai mis 2 méthodes
différentes pour

selectionner la ligne complète.

sub copypaste()

dim k as integer

k = 10

rows(k & ":" & k).copy
cells(k,1).entirerow.insert shift:=xldown

end sub

A plus
Benjamin

Bonjour à tous
Comment puis-je indiquer par macro la situation
suivante.


Actuellement, je sélectionne une ligne, la copie et la
réinsère au même endroit(bouton droit de la
souris "Insérer et coller une ligne").
J'ai bien essayé avec l'éditeur de macro; mais je ne
sais


comment modifier le numéro de la ligne indiqué pour
une


ligne de numéro quelconque.
Merci d'avance pour vos suggestions éventuelles.
Christian

.





Avatar
AV
...s'agit d'une ligne quelconque


S'il s'agit de la ligne de la cellule active :
x¬tivecell.row

AV

Avatar
poy-poy
Bonjour Christian,

il faudrait que tu soit un peu plus précis sur les critères que tu veux
appliquer.
Au hasard, voici 2 critères :

sub pastecopy()

dim k as integer

k = range("A1")
'Ici k prends la valeur de cellule A1 de la feuille active

if range("a1")<20 then
k 
elseif range("b1") = "toto" then
k = 15
else: k
end if
'Ici si la cellule A1 est inférieur à 20 alors k = 10, sinon si B1= toto
alors k  et sinon k .
'Attention, si ta cellule a1 ne contient pas un nombre ou B1 un texte cel
peut planter, rajoute alors un on error resume next avant le si

......suite
end sub

Cordialement
Benjamin




Merci Benjamin
Cela fonctionne très bien du moment que je lui communique
le numéro de la ligne.
Mais comment faire pour indiquer dans la macro un numéro
de ligne quelconque. Le choix de la ligne étant déterminé
par une série de critères.
Merci d'avance
Cordialement
Christian
-----Message d'origine-----
Bonjour christian,

Je ne suis pas sûr de ce que tu veux faire donc ceci est
un exemple Ã

adapter ou je copie la ligne 10. Je t'ai mis 2 méthodes
différentes pour

selectionner la ligne complète.

sub copypaste()

dim k as integer

k = 10

rows(k & ":" & k).copy
cells(k,1).entirerow.insert shift:=xldown

end sub

A plus
Benjamin

Bonjour à tous
Comment puis-je indiquer par macro la situation
suivante.


Actuellement, je sélectionne une ligne, la copie et la
réinsère au même endroit(bouton droit de la
souris "Insérer et coller une ligne").
J'ai bien essayé avec l'éditeur de macro; mais je ne
sais


comment modifier le numéro de la ligne indiqué pour
une


ligne de numéro quelconque.
Merci d'avance pour vos suggestions éventuelles.
Christian

.








Avatar
Beabou
Et comme ça ????

Sub Ligne()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub

Beabou
Avatar
Christian
Merci Beabou
Cela fonctionne à merveille.
Christian
-----Message d'origine-----
Et comme ça ????

Sub Ligne()
ActiveCell.EntireRow.Select
Selection.Copy
Selection.Insert Shift:=xlDown
End Sub

Beabou
.



Avatar
Christian
Rebonjour Benjamin
Merci de m'avoir à nouveau répondu.
Les critères ne doivent pas apparaîtrent dans la macro.
Il suffit que je puisse sélectionner librement une ligne,
la copier, et l'insérer au même endroit.
Cordialement
Christian

-----Message d'origine-----
Bonjour Christian,

il faudrait que tu soit un peu plus précis sur les
critères que tu veux

appliquer.
Au hasard, voici 2 critères :

sub pastecopy()

dim k as integer

k = range("A1")
'Ici k prends la valeur de cellule A1 de la feuille active

if range("a1")<20 then
k 
elseif range("b1") = "toto" then
k = 15
else: k
end if
'Ici si la cellule A1 est inférieur à 20 alors k = 10,
sinon si B1= toto

alors k  et sinon k .
'Attention, si ta cellule a1 ne contient pas un nombre ou
B1 un texte cel

peut planter, rajoute alors un on error resume
next avant le si


.......suite
end sub

Cordialement
Benjamin




Merci Benjamin
Cela fonctionne très bien du moment que je lui
communique


le numéro de la ligne.
Mais comment faire pour indiquer dans la macro un
numéro


de ligne quelconque. Le choix de la ligne étant
déterminé


par une série de critères.
Merci d'avance
Cordialement
Christian
-----Message d'origine-----
Bonjour christian,

Je ne suis pas sÃf»r de ce que tu veux faire donc
ceci est



un exemple Ãf
adapter ou je copie la ligne 10. Je t'ai mis 2
mÃf©thodes



diffÃf©rentes pour
selectionner la ligne complÃf¨te.

sub copypaste()

dim k as integer

k = 10

rows(k & ":" & k).copy
cells(k,1).entirerow.insert shift:=xldown

end sub

A plus
Benjamin

Bonjour Ãf tous
Comment puis-je indiquer par macro la situation
suivante.


Actuellement, je sÃf©lectionne une ligne, la copie
et la




rÃf©insÃf¨re au mÃfªme endroit(bouton droit de la
souris "InsÃf©rer et coller une ligne").
J'ai bien essayÃf© avec l'Ãf©diteur de macro; mais
je ne




sais
comment modifier le numÃf©ro de la ligne indiquÃf©
pour




une
ligne de numÃf©ro quelconque.
Merci d'avance pour vos suggestions Ãf©ventuelles.
Christian

.




.







1 2