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
Partager