XL 2019 Erreur avec With et copy/paste

uzu1302 · 28 Mars 2022

Bonjour à tous
Encore besoin de votre aide.
Voici mon code:

VB:

Sub test()
Dim x As Long
For x = 1 To 250 Step 3
With Worksheets("Feuil1").Cells(x, "B" & x)
    .Copy
End With
Next x
Ce que j'essaie de faire :
Couper La date qui se trouve en B et la coller en A+1
Ensuite supprimer la ligne précédente

Je remercie vivement pour votre aide.
Patrick

TooFatBoy · 28 Mars 2022

Essaye ça, après avoir adapté le 1 de "LigneEnCours = 1" à la bonne valeur :

VB:

Sub Test()
'
Dim LigneEnCours As Integer

    LigneEnCours = 1

    While Range("B" & LigneEnCours).Value <> ""
        Range("A" & LigneEnCours + 1).Value = Range("B" & LigneEnCours).Value
        ActiveSheet.Rows(LigneEnCours).Delete Shift:=xlUp
        LigneEnCours = LigneEnCours + 1
    Wend

End Sub

TooFatBoy · 28 Mars 2022

Bonjour,

Il est où le "Paste" ???

uzu1302 · 28 Mars 2022

Marcel32 à dit:
Bonjour,

Il est où le "Paste" ???

Le problème c'est que je sais pas comment et où le mettre !!

Bernard_XLD · 28 Mars 2022

bonjour uzu1302, le forum

pas trop compris ce que vous voulez faire exactement, ensuite vous parlez de supprimer une ligne alors que vous travaillez sur des colonnes ????
voici quelques codes :
le premier copie les valeurs de b en a puis efface b
le deuxième copie les cellules de b en a puis efface b
le troisième coupe b et l'insère en a

Cordialement, @+

VB:

Sub test1()
With Worksheets("Feuil1")
    .Range("A1:A250").Value2 = .Range("B1:B250").Value2
    .Range("B1:B250").ClearContents
End With
End Sub
Sub test2()
With Worksheets("Feuil1")
    .Range("B1:B250").Copy
    .Range("A1:A250").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    .Range("B1:B250").ClearContents
End With
End Sub
Sub test3()
With Worksheets("Feuil1")
    .Range("B1:B250").Cut
    .Range("A1:A250").Insert Shift:=xlToRight
End With
End Sub

TooFatBoy · 28 Mars 2022

uzu1302 à dit:
Le problème c'est que je sais pas comment et où le mettre !!

Ben voilà, tu as un exemple donné par notre gentil modo.

Bernard_XLD · 28 Mars 2022

Bonjour Marcel32

je ne t'avais point vu sinon je t'aurai salué ! Ah ce rafraichissement !!!

Cordialement, @+

uzu1302 · 28 Mars 2022

Merci Bernard et Marcel32,
C'est un peu ça, mais j'explique:
Je cherche à mettre la cellule de Date en (B) en (A+1) et supprimer ensuite la ligne (1) et ainsi de suite !
Le code est presque bon !

Marcel32 à dit:
Ben voilà, tu as un exemple donné par notre gentil modo.

TooFatBoy · 28 Mars 2022

Tu as vraiment 250 copies à faire ?

Tu veux copier, par exemple, de B2 en A3, puis de B3 en A4, etc. ???

Pourquoi un "Step 3" ?

TooFatBoy · 28 Mars 2022

Essaye ça, après avoir adapté le 1 de "LigneEnCours = 1" à la bonne valeur :

VB:

Sub Test()
'
Dim LigneEnCours As Integer

    LigneEnCours = 1

    While Range("B" & LigneEnCours).Value <> ""
        Range("A" & LigneEnCours + 1).Value = Range("B" & LigneEnCours).Value
        ActiveSheet.Rows(LigneEnCours).Delete Shift:=xlUp
        LigneEnCours = LigneEnCours + 1
    Wend

End Sub

uzu1302 · 28 Mars 2022

Marcel32 à dit:

Essaye ça, après avoir adapté le 1 de "LigneEnCours = 1" à la bonne valeur :

VB:

Sub Test()
'
Dim LigneEnCours As Integer

    LigneEnCours = 1

    While Range("B" & LigneEnCours).Value <> ""
        Range("A" & LigneEnCours + 1).Value = Range("B" & LigneEnCours).Value
        ActiveSheet.Rows(LigneEnCours).Delete Shift:=xlUp
        LigneEnCours = LigneEnCours + 1
    Wend

End Sub

Grand merci Marcel32 c'est bien ce que je voulais !!

XL 2019 Erreur avec With et copy/paste

uzu1302

XLDnaute Nouveau

Pièces jointes

TooFatBoy

TooFatBoy

XLDnaute Barbatruc

uzu1302

XLDnaute Nouveau

Bernard_XLD

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

Bernard_XLD

XLDnaute Barbatruc

uzu1302

XLDnaute Nouveau

Pièces jointes

TooFatBoy

XLDnaute Barbatruc

TooFatBoy

XLDnaute Barbatruc

uzu1302

XLDnaute Nouveau

Discussions similaires