XL 2016 macro excel

Jean29 · 22 Octobre 2023

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 · 22 Octobre 2023

Bonsoir @Jean29 et bienvenue sur XLD,

Si j'ai bien compris, essayez ce code :

VB:

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 · 23 Octobre 2023

mapomme à dit:

Bonsoir @Jean29 et bienvenue sur XLD,

Si j'ai bien compris, essayez ce code :

VB:

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 · 23 Octobre 2023

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

XL 2016 macro excel

Jean29

XLDnaute Nouveau

mapomme

XLDnaute Barbatruc

Jean29

XLDnaute Nouveau

Jean29

XLDnaute Nouveau

Pièces jointes

Discussions similaires