Discussion :

[nhan57]

Bonjour,

Il m'est demandé dans la boite ou je fais ma formation alternance de reprendre le code de macro excel pour l'adapter sur du Libre Office Basic

sachant que je n'ai jamais fait de Basic j’apprends seulement ce dernier

et je rencontre un problème a ce niveau de code

If Sheets("Compte rendu").Cells(debut_themes).Interior.ColorIndex <> xlNone Or VarType(Sheets("Compte rendu").Cells(ligne, 1).Value) <> vbDate Then
Sheets("Compte rendu").Protect Password:="excel", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Exit Sub
End If

If Sheets("Compte rendu").Rows(ligne + 1).Hidden = False Then
deploye = True
Else
deploye = False
End If

On me dit propriété ou méthode non trouvé Cells


voici mon code en entier

REM ***** BASIC *****

Sub Btn_themes_Click
Dim Sheets As Object

'Définit la feuille à Protéger
Sheets = ThisComponent.Sheets.GetByName("Compte rendu")

'Déprotection
Sheets.UnProtect("excel")
'Exemple pour Déprotection par mot de passe
'Feuille.UnProtect("MotDePasse")

'Nota1:
'La procédure ne renvoie pas de message d'erreur si le mot
'de passe spécifié est erroné.

'Nota2:
'/!\ Les mots de passes sont sensibles à la casse /!\
Dim debut_themes As Integer
Dim fin_themes As Integer
Dim ligne As Integer
Dim deploye As Boolean
Dim CelluleActive As Object

CelluleActive = ThisComponent.getCurrentSelection

ligne = CelluleActive.CellAddress.Row
debut_themes = ligne + 1
fin_themes = debut_themes




If Sheets("Compte rendu").Cells(debut_themes).Interior.ColorIndex <> xlNone Or VarType(Sheets("Compte rendu").Cells(ligne, 1).Value) <> vbDate Then
Sheets("Compte rendu").Protect Password:="excel", DrawingObjects:=True, Contents:=True, Scenarios:=True _
, AllowFormattingCells:=True
Exit Sub
End If

If Sheets("Compte rendu").Rows(ligne + 1).Hidden = False Then
deploye = True
Else
deploye = False
End If




End Sub

D'apres moi il n'arrive pas a récuperer le debut_themes de Cells car j'ai lu qu'il n'était possible que d'acceder un une cells qu'en donnant son adresse donc ("C5") ou autre ou alors par ligne colonne(1,5)
Quelqu'un aurait il une solution ou une aide

Merci d'avance!!

[Golonne]

Bonjour,

Je ne connais pas Libre Office Basic, mais un peu plus Excel VBA. En VBA Excel, il n'existe pas d'objet Cells. Cells est une propriété renvoyant une collection de cellules d'un objet Worksheet ou Range. De plus la syntaxe qui permet de renvoyer une plage nommée utilise des guillemets.

Donc la syntaxe VBA devrait être :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
If Sheets("Compte rendu").Range("debut_themes").Interior.ColorIndex <> xlNone 
etc.

J'espère que cela t'aidera.

Cordialement,

Golonne