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.


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
Fiche test.xlsm