Microsoft 365 Convertir macro en script (faire marcher macro sur sharepoint)

crazy

XLDnaute Nouveau
Bonjour tout le monde,

Je ne parviens pas à trouver de solution sur les internet, mais je sais qu'avec vous tout est possible...

Sur un fichier Excel j'ai un code pour une macro. le soucis est que je dois mettre ce fichier sur sharepoint, et là vous comprenez mon problème ; les macro ne fonctionnent plus.

Savez-vous comment convertir une macro en script? (il y a un google add on : macro convertor accessible que pour les compte entreprise; mais je n'ai pas de compte gsuite entreprise).

Si quelqu'un parmi vous sais faire la traduction de code je suis aussi preneur....

Merci d'avance

Voici le code

VB:
Option Explicit
Option Compare Text 'Pour les noms de gestionnaire en B3

Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Dim Derlig&, Ws As Worksheet, GestProjet$
If Not Application.Intersect(Target, Range("b3")) Is Nothing Then
    With Worksheets("Recap")
        GestProjet = .[B3]
        Derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
        .Range("B7:E" & Derlig) = ""
        For Each Ws In Worksheets
            Ws.Visible = True
            If Ws.Name <> "Recap" Then
                
                If Ws.[b1] = GestProjet Then
                    Derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
                    .Range("B" & Derlig) = Ws.Name
                    .Range("d" & Derlig) = Ws.[G1]
                    .Range("e" & Derlig) = Ws.[b1]
                Else
                    If GestProjet = "" Then
                       Derlig = .Range("B" & Rows.Count).End(xlUp).Row + 1
                        .Range("B" & Derlig) = Ws.Name
                        .Range("d" & Derlig) = Ws.[G1]
                        .Range("e" & Derlig) = Ws.[b1]
            
                              Else
                        Ws.Visible = xlVeryHidden
                    End If
                End If
            End If
        Next
    End With
End If
End Sub
 

Discussions similaires