Bonjour,

Je suis novice en openoffice, notamment pour les macros, je souhaite utiliser un fichier actuellement au format Excel 2003 contenant une macro de mise en forme sur le même fichier converti en open office.

Pourriez vous me filer un coup de main pour la transformation de cette macro ?

Merci d'avance

aev21

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
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
Sub mise_en_forme_fichier()
 
 
' Déprotection de la feuille Bilan
    ActiveSheet.Unprotect
'"Traitement des Plecopteres"
MsgBox "Mise en forme du fichier (onglet bilan)"
'Déclaration de la variable
Dim i As Integer
'Début de la boucle
For i = 10 To 476
'Condition pour la valeur vide
If Range("S" & i).Value = "" Then
 
'Sélection de la ligne
    Rows(i & ":" & i).Select
'Mise de la hauteur à 0 pour la ligne sélectionnée
    Selection.RowHeight = 0
 
'Action si la cellule est remplie
    Else
 
'Sélection de la ligne
    Rows(i & ":" & i).Select
'Mise de la hauteur à 0 pour la ligne sélectionnée
    Selection.RowHeight = 12
 
End If
 
Next i
'Fin de la boucle
 
 
'Reprotection de la feuille bilan
 
    ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
 
  Exit Sub