Discussion :

[K-limero]

Bonjour a tous,
Devant reproduire en VBA une action sur plusieurs cellules, j'ai effectué par enregistrement de macros (sub macro3 ci dessous) le déroulé de l'action souhaitée qui fonctionne parfaitement...
Par contre quand je la relance, elle plante avec une erreur sur la formule saisie : run time error 1004 application defined or object defined error...
Pour info il s'agit d'une validation de cellule avec formule intégré (qui fonctionne parfaitement en direct!)
De memoire j'ai déja eu des pbs avec les formules, car j'utilise une version américaine de Excel 2003, avec pack français, ce qui fait que j'utilise d'habitude FormulaLocal et non Formula seul, mais je ne sais pas comment proceder dans ce cas de validation.
Un grand merci pour votre aide !

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
Sub Macro3()
    Range("G5").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=SI(D5<>"""";DECALER(Liste_SOCIETES;EQUIV(D3&""*"";Liste_SOCIETES;0)-1;;SOMMEPROD((STXT(Liste_SOCIETES;1;NBCAR(D5))=TEXTE(D5;""0""))*1));Liste_SOCIETES)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub

Pour info : cette formule dans un cas de validation permet l'affichage que de la partie d'une liste longue correspondante a la saisie du début du champ, très pratique !

[Daniel.C]

Bonjour,

Il faut traduire la formule en anglais :

Code :

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

=IF(D5<>"""",OFFSET(Liste_SOCIETES,MATCH(D3&""*"",Liste_SOCIETES,0)-1,,SUMPRODUCT((MID(Liste_SOCIETES,1,LEN(D5))=TEXT(D5,""0""))*1)),Liste_SOCIETES)

sauf erreur.

[K-limero]

Bien vu mais déjà essayé et bien sur cela ne fonctionne pas...
je pense qu'il faut arriver a prendre l'equivalent de FormulaLocal au lieu de Formula1, mais comment??
Pour info la ligne de commande en français fonctionne si par exemple j'ecris :
cells(1,1).formulaLocal = "=SI(D5<>"""";DECALER(Liste_SOCIETES;EQUIV(D3&""*"";Liste_SOCIETES;0)-1;;SOMMEPROD((STXT(Liste_SOCIETES;1;NBCAR(D5))=TEXTE(D5;""0""))*1));Liste_SOCIETES)"
cela ne fait pas d'erreur dans la cellule, mais quand j'utilise "Selection.Validation.add", cela n'accepte pas ce FormulaLocal...
Merci de votre aide

[Daniel.C]

J'ai essayé avec une formule plus simple. Ca fonctionne. On ne peut peut pas utiliser de "formulalocal". Je ne sais pas pourquoi la formule transposée ne fonctionne pas. Est-ce que tu pourrais mettre un classeur exemple - sans données confidentielles - en pièce jointe ?

[K-limero]

Merci de ton aide Daniel.
Voila le fichier joint. J'ai créé la macro en enregistrant la mise en validation de la cellule C6.
Je dois par VBA, remettre la validation, une fois la cellule utilisée en service si les utilisateurs modifie la validation, (que je ne peux bloquer pour raison internes!), mais lorsque je relance la macro c'est la le probléme...
Encore merci !

[Daniel.C]

Je ne sais pas trop où j'avais fait une erreur. Voici la macro :

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
Sub Macro2()
    Range("C6").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:= _
        "=IF(C6<>"""",OFFSET(Liste_SOCIETES,MATCH(C6&""*"",Liste_SOCIETES,0)-1,,SUMPRODUCT((MID(Liste_SOCIETES,1,LEN(C6))=TEXT(C6,""0""))*1)),Liste_SOCIETES)"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = False
    End With
End Sub