Aide conversion macro Excel en script google sheet
Bonjour!
j'ai développé une petite macro pour aider mon mari.
Je ne suis par informaticienne et vous le remarquerez vite dans ma macro
Y aurait il une bonne ame qui pourrait me traduire le vba suivant en script google sheet?
Un grand merci!!
Sub inscripton()
Dim name, prof As String
Dim i, j, n, m, p, s As Integer
ActiveSheet.Unprotect "test"
name = UCase(Cells(4, 2))
prof = Cells(3, 2)
n = 0
For p = 2 To 66
If Cells(7, p) <> "" Then
n = n + 1
Else
GoTo 10
End If
Next
10 For m = 2 To n + 1
If prof = Cells(7, m) Then
For i = 8 To 24
If Cells(i, m) = "" Then
If Cells(i, 2) = name Or Cells(i, 3) = name Or Cells(i, 4) = name Or Cells(i, 5) = name Or Cells(i, 6) = name Or Cells(i, 7) = name Or Cells(i, 8) = name Or Cells(i, 9) = name Or Cells(i, 10) = name Or _
Cells(i, 11) = name Or Cells(i, 12) = name Or Cells(i, 13) = name Or Cells(i, 14) = name Or Cells(i, 15) = name Or Cells(i, 16) = name Or Cells(i, 17) = name Or Cells(i, 18) = name Or Cells(i, 19) = name Or Cells(i, 20) = name Or _
Cells(i, 21) = name Or Cells(i, 22) = name Or Cells(i, 23) = name Or Cells(i, 24) = name Or Cells(i, 25) = name Or Cells(i, 26) = name Or Cells(i, 27) = name Or Cells(i, 28) = name Or Cells(i, 29) = name Or Cells(i, 30) = name Then
Cells(i + 1, m) = name
Else
Cells(i, m) = name
End If
GoTo 100
End If
Next
End If
Next
100 ActiveSheet.Protect "test", True, True, True
End Sub