XL 2019 Erreur avec With et copy/paste

[uzu1302]

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

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]

Bonjour,

Il est où le "Paste" ???

 

[uzu1302]

Bonjour,

Il est où le "Paste" ???

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

 

[Bernard_XLD]

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, @+

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]

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]

Bonjour Marcel32

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

Cordialement, @+

 

[uzu1302]

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 !

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

 

[TooFatBoy]

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]

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

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]

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

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 !!