incrémentation en vba

[VBA_première_fois]

bonsoir
le code ci dessous permet de : si je sélectionne une ligne dans Sheet1 et je clique sur mon bouton , il me supprime la ligne sélectionnée et la colle dans sheet3

Private Sub CommandButton1_Click()
  Selection.Cut
    Sheets("Sheet3").Select
    Sheets("Sheet3").Rows(n).Select
    
    ActiveSheet.Paste
    Sheets("Sheet1").Select
     Application.CutCopyMode = False
        
End Sub

j'ai besoin qu'il passe à la ligne suivante à chaque fois qu''il me copie la ligne dans sheet3 , pour éviter d'écraser mes données
plus facilement
d'abord il copie sur la ligne 2

puis il copie sur la ligne 3 .....
donc qui peut me dire comment faire une incrémentation de cette ligne

Sheets("Sheet3").Rows(n).Select

NB: je sais que mon code est nul 😎

 

[Pierrot93]

Re : incrémentation en vba

Bonjour à tous,

pas tout suivi, mais à priori normal qu'il commence à la ligne 4, puisque tu as 3 + L qui vaut à minima 1... :

L = L + 1
.Copy Worksheets("donnees_supprimees").Cells([COLOR="Red"][B]3 + L[/B][/COLOR], 1)
ActiveSheet.Rows(Selection.Row).Delete

@+

 

[YANN-56]

Re : incrémentation en vba

Bonsoir p'tit jeune 🙂 , Philippe, et Pierrot aux conseils judicieux.

Je n'ai pas aimé lire cela: 🙁

Private Sub Button_supprimer_Click()

Si tu rebaptises les boutons ou autres contrôles dans ton projet,
on ne va plus s'y retrouver. (C'est amusant de le voir, mais inutile)

Cela ne sert à rien, et surtout empêche par la suite d'en extirper leur n° pour autres procédures.
Exp CommandButton1, ou CommandButton19, dont on peut avoir besoin par la suite
de se servir du "1" ou "19" pour provoquer un évènement!

S'il s'agit seulement d'ajouter dans la feuille3 le contenu d'une ligne quelconque de la feuille1, il n'y a effectivement pas lieu de supprimer la ligne sélectionnée de la feuille1

Je vais manger un morceau, et modifier mon code.

A te lire, si tu soupçonnes que je n'ai pas tout compris...

Amicalement

Yann

 

[VBA_première_fois]

Re : incrémentation en vba

je me suis mal exprimé peut etre ???
bon YANN-56 si tu prends l'exemple que m'avait mis "premiers.xls" .
déplace les 2 premieres lignes par exemple .
enregistre le classeur et ferme le .

si tu le rét-ouvres et tu effectue les m^me opération , tu vas voir qu'il ecrase les ligne que j'ai déjà déplacées avant de la fermer
mais moi j'ai envie de garder toutes ses ligne deplacées , pour toujours

🙂

 

[YANN-56]

Re : incrémentation en vba

Bonjour à toi et à tous,

J'ai vu que tu n'as pas modifié mon code pour la copie
de toute la ligne choisie...! Je l'ai donc fait à ta place! 🙁

Ceci devrait aller un peu mieux dans le sens de ce que tu cherches à faire:

Private Sub CommandButton1_Click()
ActiveCell.EntireRow.Copy _
Worksheets("Feuil2").Cells(Worksheets("Feuil2").Range("A65536").End(xlUp).Row + 1, 1)
ActiveSheet.Rows(Selection.Row).Delete
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Caption = "DEPLACER LIGNE " & Selection.Row
End Sub

A toi de jouer maintenant. 🙂

Amicalement

Yann

Exemple modifié joint