XL 2016 macro excel

[Jean29]

bonjour,
J'ai une macro comme ceci:
Sub macro1()
Set range1 = Range("B3")
range1.Copy
Range("C3").Select
ActiveCell.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Range("B3").ClearContents

End Sub
Lorsque que je reviens dans la cellule B3 je veux aller dans la cellule suivante D3, E3 et ainsi de suite

 

[mapomme]

Bonsoir @Jean29 et bienvenue sur XLD,

Si j'ai bien compris, essayez ce code :

Sub BenC()
Dim der As Long
   Application.ScreenUpdating = False
   With ActiveSheet
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "b").End(xlUp).Row
      If der < 3 Then Exit Sub
      .Range("c3:c" & der) = .Range("b3:b" & der).Value
      .Range("b3:b" & der).ClearContents
   End With
End Sub

 

[Jean29]

Bonsoir @Jean29 et bienvenue sur XLD,

Si j'ai bien compris, essayez ce code :

Sub BenC()
Dim der As Long
   Application.ScreenUpdating = False
   With ActiveSheet
      If .FilterMode Then .ShowAllData
      der = .Cells(Rows.Count, "b").End(xlUp).Row
      If der < 3 Then Exit Sub
      .Range("c3:c" & der) = .Range("b3:b" & der).Value
      .Range("b3:b" & der).ClearContents
   End With
End Sub

Merci, cela fonctionne mais une fois revenu en B3, lors d'une prochaine saisie, il faut incrémenter la cellule suivante D3, ainsi de suite cellule E, etc

 

[Jean29]

Merci, cela fonctionne mais une fois revenu en B3, lors d'une prochaine saisie, il faut incrémenter la cellule suivante D3, ainsi de suite cellule E, etc