[Résolu par job75] Copier des lignes du bas vers le haut mais une à une

[Lone-wolf]

Bonsoir le Forum,


avec la macro suivante j'arrive à copier des lignes du haut vers le bas (une à une).

Sub Haut_Bas()
Dim lig As Integer, col As Long

With Feuil1
lig = .Range("A65536").End(xlUp).Row + 1
For col = 1 To 2
.Cells(lig, col) = Feuil2.Cells(lig, col)
Next col
End With
End Sub

J'aimerais maintenant les copier du bas vers le haut ligne par ligne, ce que je n'arrive pas à faire. Merci pour votre aide.


Amicalement Lone-wolf

 

[job75]

Re : Copier des lignes du bas vers le haut par incrémentation

Bonsoir Lone-wolf,

Aucune "incrémentation" dans ce code qui simplement copie les valeurs d'une ligne

A+

 

[Lone-wolf]

Re : Copier des lignes du bas vers le haut par incrémentation

Bonsoir job,

merci pour la remarque, tu as raison. Je vais corriger le tir


Amicalement Lone-wolf

 

[CPk]

Re : Copier des lignes du bas vers le haut par incrémentation

Bonjour, sûrement comme ceci :

Sub Haut_Bas()
Dim lig AsInteger, col AsLong

With Feuil1
For col = 1 To 2
for lig = .Range("A65536").End(xlUp).Row to 2 step -1
.Cells(lig, col) = Feuil2.Cells(lig, col)
Next lig
Next col
EndWith
EndSub

 

[Lone-wolf]

Re : Copier des lignes du bas vers le haut mais une à une

Bonsoir CPk,

non, malheureusement ce n'est pas ça. En tout cas, merci pour être intervenu.


Amicalement Lone-wolf

 

[CPk]

Re : Copier des lignes du bas vers le haut mais une à une

for lig = .Range("A65536").End(xlUp).Row to 2 step -1

--> cela signifie de la dernière ligne non vide à la ligne 2 en remontant. Donc du bas vers le haut.

J'aimerais maintenant les copier du bas vers le haut ligne par ligne, ce que je n'arrive pas à faire. Merci pour votre aide.

Bonsoir CPk,

non, malheureusement ce n'est pas ça. En tout cas, merci pour être intervenu.

???

 

[job75]

Re : Copier des lignes du bas vers le haut mais une à une

Bonjour Lone-wolf, CPk,

Je pense Lone-wolf que tu parles d'incrémentation parce que chaque fois qu'on exécute ta macro une ligne est copiée vers le bas.

Alors la même chose en remontant vers le haut :

Sub Bas_Haut()
Dim lig As Long, col As Integer
With Feuil1
  For lig = Feuil2.Range("A65536").End(xlUp).Row To 1 Step -1
    If .Cells(lig, 1) = "" Then
      For col = 1 To 2
        .Cells(lig, col) = Feuil2.Cells(lig, col)
      Next col
      Exit Sub
    End If
  Next lig
End With
End Sub

Fichier joint.

Bonne journée.

 

[Lone-wolf]

Re : Copier des lignes du bas vers le haut mais une à une

Bonjour job,

et bien tu vois que mon premier intitulé était correct. . Est-ce que on peut avoir les deux macro avec un seul bouton? Si ce n'est pas possible, ce n'est pas grave.

Amicalement, Lone-wolf (Dodo pour les intimes )

 

[job75]

Re : Copier des lignes du bas vers le haut mais une à une

Re,

D'accord pour un seul bouton, et avec Find je trouve que c'est plus amusant :

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range, col As Integer
With Feuil1
  test = .DrawingObjects("Bouton 1").Text = "Haut_Bas"
  .DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
  Set c = .[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row) _
    .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
  If c Is Nothing Then Exit Sub
  For col = 1 To 2
    c(1, col) = Feuil2.Cells(c.Row, col)
  Next col
End With
End Sub

Fichier (2).

A+

 

[job75]

Re : Copier des lignes du bas vers le haut mais une à une

Bonjour le forum,

Lone-wolf tu dors ??? Alors pour te réveiller :

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range
With Feuil1
  test = .DrawingObjects("Bouton 1").Text = "Haut_Bas"
  .DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
  With .[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row)
    Set c = .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
    If c Is Nothing Then .Offset(1).EntireRow = "": Set c = .Cells(IIf(test, 2, .Count))
    Feuil2.Rows(c.Row).Copy c
  End With
End With
End Sub

Bonne journée.

 

[Lone-wolf]

Re : Copier des lignes du bas vers le haut mais une à une

Bonjour job,

je me suis peut-être mal exprimé. Avec le même bouton, les lignes doivent être insérée de 2 à 23, quand 23ème cellule est remplie, éffacer, puis remonter de 23 à 2; et non une fois en haut-une fois en bas comme le montre l'exemple.


A+

 

[job75]

Re : Copier des lignes du bas vers le haut mais une à une

Re,

Sub Haut_Bas_Haut()
Dim test As Boolean, c As Range
test = Feuil1.DrawingObjects("Bouton 1").Text = "Haut_Bas"
With Feuil1.[A1].Resize(Feuil2.Cells(Rows.Count, 1).End(xlUp).Row)
  Set c = .Find("", , xlValues, , xlByColumns, IIf(test, xlNext, xlPrevious))
  If c Is Nothing Then
    .Parent.DrawingObjects("Bouton 1").Text = IIf(test, "Bas_Haut", "Haut_Bas")
    .Offset(1).EntireRow = ""
    Exit Sub
  End If
  Feuil2.Rows(c.Row).Copy c
End With
End Sub

Fichier (4).

A+

 

[Lone-wolf]

Re : Copier des lignes du bas vers le haut mais une à une

Bonsoir job,

Merci pour ta patience et ton implication concernant la macro.


Amicalement Lone-wolf