Bonjour,
Je viens vers vous, car je rencontre un problème. J'ai un fichier excel avec des macros et des bouton de commande me permettant de couper/coller des ligne d'une feuille à une autre en fonction d'une valeur mise dans une colonne spécifique.
Devant obligatoirement utilisé EXCEL en ligne pour pouvoir le partagée, je voulais créer des script me permettant de commander mes actions (couper/coller) .
J'utilise clavier+ qui me permet de commander des script par raccourci clavier.
Je vous partage les macros que j'ai créé pour savoir si quelqu'un aurait une idée pour transformer ces dernières en vbs.
Merci d'avance
Sabseb33
Voilà la première macro avec la valeur "clôture" dans la colonne 10 qui me permet de couper et de coller les données présentes dans 9 cellules et de les copier dans une autre feuille.
Fiche test.xlsm
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19 Option Compare Text Sub coupecopie1() test Feuil3 End Sub Sub coupecopie2() test Feuil2 End Sub Sub test(Sh As Worksheet) Dim i As Long, L As Long Application.ScreenUpdating = 0 For i = 2 To Sh.Range("A999").End(xlUp).Row If Sh.Cells(i, 10) = "Clôture" Then L = Feuil1.[A9999].End(xlUp).Row + 1 Sh.Cells(i, 1).Resize(, 9).Copy Feuil5.Cells(L, 1) Sh.Rows(i).Delete i = i - 1 End If Next End Sub
Partager