Discussion :

[marcelisa2]

Bonjour,

je souhaite prendre en compte dans une cellule (J2) la formule suivante dépendante dans la cellule précédente (I2) via du code vba:

=decaler(ref_domaine_niveau2,EQUIV(I2;domain_niv1;0)-2,0,NB.SI(domain_niv1;I2))


voici la partie du code :

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
 
Range("J2").Select
 
    regle = "=offset(ref_domaine_niveau2,EQUIV(I2;domain_niv1;0)-2,0,NB.SI(domain_niv1;I2))"
 
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=regle
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
....

je tombe en erreur 1004.
Pouvez-vous m'aider sur les corrections à apporter à la formule ?
en vous remerciant par avance

[fring]

Bonjour,

Quel est le message complet de l'erreur ?
Sur quelle ligne de code pointe l'erreur ?

[gFZT82]

Bonjour,

Essaie avec

Code :

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

    regle = "=OFFSET(ref_domaine_niveau2,MATCH(I2,domain_niv1,0)-2,0,COUNTIF(domain_niv1,I2))"

Cordialement.

[marcelisa2]

Bonjour,
merci à fring et gFZT82 pour leur réponse.
La formule marche finalement dans la mesure où j'initialise la cellule I2 lors du 1er passage dans ma boucle, sinon elle continue à planter à nouveau en code 1004.

En fait, mon programme complet initialise toutes les cellules de la colonne J avec cette formule, sachant que j'ai plusieurs lignes d'enregistrement.

Je ne comprends pas pourquoi il m'est nécessaire d'initialiser la cellule I2 de la 1ère ligne d'enregistrement pour que la boucle fonctionne bien ensuite.

Avez-vous des idées?
Merci

[marcelisa2]

Bonjour,

j'ai finalement initialiser avec un blanc la cellule I2 et tout est rentré dans l'ordre avec la formule de gFZT82

Merci