Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

incrémentation en vba

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion VBA_première_fois
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
V

VBA_première_fois

Guest
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
HTML: 
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
HTML: 
Sheets("Sheet3").Rows(n).Select
NB: je sais que mon code est nul 😎
 
Trier par date Trier par votes
Re : incrémentation en vba

Private Sub CommandButton1_Click()
Selection.Cut
Sheets("Sheet3").Select
Sheets("Sheet3").Rows(n).Select

ActiveSheet.Paste
Sheets("Sheet1").Activecell.offset(1,0).Select
Application.CutCopyMode = False

End Sub

Regarde avec cela si ça te convient
 
Vote positif 0 Vote négatif
Re : incrémentation en vba

salut philppe27

ton code ne marche pas
j'ai essayer celui la , tu peux me dire si il y a erreur
HTML: 
Private Sub CommandButton1_Click()

  Selection.Cut
    Sheets("Sheet3").Select
    For n = 1 To 3666
    Sheets("Sheet3").Rows(n).Select
    
    ActiveSheet.Paste
    Sheets("Sheet1").Select
     Application.CutCopyMode = False

  n = 1 + n
  Next
  
 
   
    
End Sub
 
Vote positif 0 Vote négatif
Re : incrémentation en vba

Excuse moi j'ai lu trop vite et ce n'était pas bon
Sinon ce que tu as fait me semble pas mal
Le seul inconvénient est que tu fait 3666 boucles et tu t'arrêtes mais cela correspond peut-être à ton besoin
 
Vote positif 0 Vote négatif
Re : incrémentation en vba

Bonsoir à vous et à ceux qui passeront par ici

Dans le code de lafeuille:

Code: 
Public L As Integer

Private Sub CommandButton1_Click()
L = L + 1
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 4)).Copy Worksheets("Feuil2").Cells(3 + L, 1)
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 4)).EntireRow.Delete
End Sub

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

Ci-joint un exemple:

Amicalement

Yann
 

Pièces jointes

Vote positif 0 Vote négatif
Re : incrémentation en vba

bonjour YANN-56 c'est parfait

par contre il me copie juste les 4 premiere colonne , j'ai essayé de le modifier mais j'ai pas pu , je veux qu'il me copie jusqu'à la derniere row non nulle, ( car le classeur sur lequel je trvaille contient bcp de données)

sinon pour ceux qui souhaitent m'aider voici le code YANN-56
HTML: 
Public L As Integer

Private Sub CommandButton1_Click()
L = L + 1
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 4)).Copy Worksheets("Feuil2").Cells(3 + L, 1)
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 4)).EntireRow.Delete
End Sub

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

a+
 
Vote positif 0 Vote négatif
Re : incrémentation en vba

Bonjour à ceux qui passeront par ici.

Dis donc jeune premier, 😕
"C'est pour offrir? Je vous fais un paquet cadeau?" 🙂🙂🙂

Si tu veux apprendre, il serait bien que tu cherches un peu par toi-même...
D'autant que c'est un peu l'ABC" en matière de VBA....... Après on verra!

"Donne un poisson à un homme; il se nourrira ce jour.
Apprends lui à pêcher; il se nourrira toute sa vie"

Au passage, remplace:

Code: 
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 4)).EntireRow.Delete

Par:

Code: 
ActiveSheet.Rows(Selection.Row).Delete
C'est plus propre.

Amicalement

Yann
 
Vote positif 0 Vote négatif
Re : incrémentation en vba

bonjour tout le monde
YANN-56 ton code
HTML: 
Private Sub Button_supprimer_Click()
L = L + 1
ActiveSheet.Range(ActiveSheet.Cells(Selection.Row, 1), ActiveSheet.Cells(Selection.Row, 60)).Copy Worksheets("donnees_supprimees").Cells(3 + L, 1)
ActiveSheet.Rows(Selection.Row).Delete
End Sub

je l'utilise je l'ai integré dans mon appli tout se passe bien
sauf que si je ferme mon classeur et je le ré ouvre , il m'ecrase les données precedentes ; c à dire dire qu'il commence toujours à partir de la ligne 4 .
mais moi j'ai besoin de garder ces données pour toujours
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

X
  • Question Question
XL 2021 Transformation de données sur une ligne en plusieurs lignes
Réponses
9
Affichages
524
xavieralvaro
X
C
  • Question Question
XL 2021 Exporter des données vers une autre feuille...
Réponses
7
Affichages
196
sylvanu
  • Question Question
Microsoft 365 Excel VBA: manipuler des fichiers partagés via Teams / Sharepoint
Réponses
2
Affichages
125
Eric 888
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
430
patricktoulon
C
  • Résolu(e)
XL 2021 Mise en forme MsgBox
2 3
Réponses
43
Affichages
1 K
Constantin
C
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
646
AtTheOne
  • Question Question
Autres fenêtre "Publication"
Réponses
10
Affichages
791
ph.vanne
G
  • Question Question
XL 2019 Sélectionner un fichier pour mettre à jour une base de données
Réponses
3
Affichages
430
sylvanu
C
  • Résolu(e)
XL 2021 Macro pour mise en page
Réponses
11
Affichages
889
candido57
C
  • Question Question
Microsoft 365 selectionner cellule via un combobox
Réponses
3
Affichages
332
job75
  • Question Question
Microsoft 365 VBA ADODB doublons
Réponses
1
Affichages
323
dysorthographie
M
  • Résolu(e)
Microsoft 365 Pouvez-vous traduire le code VBA SVP ?
Réponses
8
Affichages
432
MOLY_
M
P
  • Question Question
XL 2021 Ajout/adaptation de code VBA sur feuille qui en contient déjà
Réponses
3
Affichages
426
Pierreavecunp
P
D
  • Résolu(e)
Microsoft 365 VBA Déplacement de la cellule active dans une ligne sélectionnée
Réponses
11
Affichages
530
danielco
D
  • Résolu(e)
XL 2021 Problème avec "coller" en dehors d'Excel
2
Réponses
20
Affichages
770
Magic_Doctor
S
  • Résolu(e)
Microsoft 365 VBA Match: comment éviter l'erreur?
2
Réponses
29
Affichages
1 K
Dranreb
N
  • Résolu(e)
Microsoft 365 Macro copier/coller entre deux tableaux structurés
3 4 5
Réponses
66
Affichages
3 K
job75
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
487
eric72
E
  • Résolu(e)
XL 2021 Bug dans code vba
Réponses
8
Affichages
816
thunder23
  • Résolu(e)
XL 2016 En VBA, Automatiser la réponse en fonction de l'état d'une cellule.
Réponses
7
Affichages
871
piga25
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…