Discussion :

[ancel17]

Bonjour,

Après de nombreuses recherches j'ai adopté ce code pour me faire une liste déroulante dans la cellule C1 avec pour élément de liste les valeurs des cellules "C" & 44 * (i + 1) – 43 :

Code vb :

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
Dim Annee As String, strVal As String
Dim Fl As Object, ShCl As Object, cVal As Object
 
Set Fl = ShCl.getByName("Rapport")
strVal = Left(Annee, Len(Annee) – 3)
For i = 0 To maxMois - minMois +1 'De 0 à 3 dans l'exemple
    If i > 0 Then
        strVal = strVal & ";" & Fl.getCellRangeByName("C" & 44 * (i + 1) – 43).String
    End If
Next i
MsgBox(strVal) 'Renvoi 2014;2014 - Mars;2014 - Février;2014 - Janvier
cVal = Fl.getCellRangeByName("C1").getPropertyValue("Validation")
With cVal
    .IgnoreBlankCells = False
    .setPropertyValue("ErrorAlertStyle" , com.sun.star.sheet.ValidationAlertStyle.STOP)
    .setPropertyValue("Type", com.sun.star.sheet.ValidationType.LIST)
    .setPropertyValue("Operator", com.sun.star.sheet.ConditionOperator.EQUAL)
    .setPropertyValue("ShowErrorMessage", true)
    .setPropertyValue("ErrorTitle", "Erreur de saisie")
    .setPropertyValue("ErrorMessage", "Saisir uniquement une valeur de la liste")
    .setPropertyValue("ShowList", com.sun.star.sheet.TableValidationVisibility.SORTEDASCENDING)
    .setFormula1(strVal) 'Testé avec "" & strVal & "" sans plus de résultat
    .setPropertyValue("formula2","0")
End With
Fl.getCellRangeByName("C1").setPropertyValue("Validation",cVal)

Problème : la liste déroulante est créée avec pour seule valeur : Err 509...

Quelqu'un voit-il l'erreur ?

Merci !

[zoom61]

Salut,

• Première erreur avec oBasic, il ne faut pas faire de calcul dans une commande :

Code vb :

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

strVal = strVal & ";" & Fl.getCellRangeByName("C" & 44 * (i + 1) – 43).String

devra plutôt s'écrire :

Code vb :

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

1
2
nb = 44 * (i + 1) – 43
strVal = strVal & ";" & Fl.getCellRangeByName("C" & nb).String

• Seconde erreur, pour une liste, il faut pas mettre ";" mais un saut de ligne chr(10).

@+.

[ancel17]

Bonsoir zoom61,

J'avais testé avec Chr(13) à la place de ";" mais je n'obtenais que la première valeur, soit "2014"…
Il en est de même avec Chr(10) et les modifications suggérées.

Je joins un fichier fort simplifié (confidentialité oblige) : le clic sur le bouton de l'onglet "Tableau" lance la macro "liste" sensée créer ma liste de validité dans l'onglet "Rapport".
Dans la réalité, j'ai un fichier qui me sert d'interface et créé un nouveau fichier et y importe toutes les données, y fait tous les calculs et mises en forme...

Merci de ton aide !

Sans nom 1.ods
-----------------------------------------------------------------------------------------
Problème résolu !

Code vb :

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
Sub liste
dim cl as object, shcl as object, fl as object, cVal as object
dim nb as integer
dim i as byte
dim strVal As String
 
cl = thiscomponent
shcl = cl.sheets 
Fl = ShCl.getByName("Rapport")
strVal = """2014""" '"""" & Left(Annee, Len(Annee) – 3) & """" si première valeur variable
For i = 0 To 3 'De 0 à maxMois - minMois +1 en réalité
    If i > 0 Then
       nb = 44*(i+1)-43
       ' strVal = strVal & Chr(10) & Fl.getCellRangeByName("C" & nb).String
       strVal = strVal & "";"" & """" & Fl.getCellRangeByName("C" & nb).String & """"
    End If
Next i
 
cVal = Fl.getCellRangeByName("C1").getPropertyValue("Validation")
With cVal
    .IgnoreBlankCells = False
    .setPropertyValue("ErrorAlertStyle" , com.sun.star.sheet.ValidationAlertStyle.STOP)
    .setPropertyValue("Type", com.sun.star.sheet.ValidationType.LIST)
    .setPropertyValue("Operator", com.sun.star.sheet.ConditionOperator.EQUAL)
    .setPropertyValue("ShowErrorMessage", true)
    .setPropertyValue("ErrorTitle", "Erreur de saisie")
    .setPropertyValue("ErrorMessage", "Saisir uniquement une valeur de la liste")
    'Ligne suivante désactivée pour ne pas me retrouver dans mon cas avec une liste ou février est avant janvier et mars...
    '.setPropertyValue("ShowList", com.sun.star.sheet.TableValidationVisibility.SORTEDASCENDING)
    .setFormula1(strVal)
    .setPropertyValue("formula2","0")
End With
Fl.getCellRangeByName("C1").setPropertyValue("Validation",cVal)
 
End Sub