Macro Google Sheet
N
Bonjour chers compères amateur d'Excel et de programmation.
Je travail depuis quelques jours sur des Macros dans Excel (que je maitrise à peut près correctement).
Tout content d'avoir finis, j'ai voulus aujourd'hui importer mon Excel dans un drive partagé avec des copains... Et je me suis rendu compte qu'il fallait que je refasse toutes mes macro en Javascript, Mais je n'y connais absolument rien.
Pourriez vous m'éclaircir et m'expliquer comment procéder à la traduction du code ci-dessous ? Je vous en serait vraiment reconnaissant.
Nysze
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NB As Integer
NB = 3
Do While NB <= 33
If Cells(NB, 3) = "non" And Cells(NB, 5) <> "" Then Cells(NB, 5) = ""
If Cells(NB, 3) = "non" And Cells(NB, 7) <> "" Then Cells(NB, 7) = ""
If Cells(NB, 3) = "non" And Cells(NB, 9) <> "" Then Cells(NB, 9) = ""
If Cells(NB, 3) = "non" And Cells(NB, 11) <> "" Then Cells(NB, 11) = ""
If Cells(NB, 3) = "non" And Cells(NB, 13) <> "" Then Cells(NB, 13) = ""
NB = NB + 1
Loop
NB = 3
If Cells(2, 14) <> Cells(3, 2) Then
Cells(2, 14) = Cells(3, 2)
Do While NB <= 33
Cells(NB, 5) = Cells(NB + 1, 5)
Cells(NB, 7) = Cells(NB + 1, 7)
Cells(NB, 9) = Cells(NB + 1, 9)
Cells(NB, 11) = Cells(NB + 1, 11)
Cells(NB, 13) = Cells(NB + 1, 13)
NB = NB + 1
Loop
End If
If Not Intersect(Target, Range("I1:I33")) Is Nothing Then
NB = 3
Do While NB <= 33
If Cells(NB, 9) <> "" And Cells(NB, 3) <> "non" Then
Cells(2, 2) = Cells(NB, 2)
NB = 33
Cells(2, 3) = Cells(NB, 3)
Else
Cells(2, 2) = "pas de date"
Cells(2, 3) = "non"
End If
NB = NB + 1
Loop
End If
End Sub