probl DECALER() & IF Then

[donpopo]

Bonjour à tous & toutes,

J'ai deux petits problèmes que je n'arrive pas à résoudre d'une manière simple.

J'ai créé plusieurs noms de plage comportant la fonction DECALER afin de les utiliser dans des formules INDEX. Cela fonctionne bien à partir du moment où toutes mes cellules de la plage sont remplies. Or, j'ai dans certaines colonnes des cellules vides au milieu. Ma fonction DECALER ne fonctionne pas correctement alors.

Que dois-je faire?

2eme probl: dans vba, je dois veiller à ce que certaines cellules soient remplies par ZERO si des données n'y ont pas été encodées. J'ai 12 cellules dans le cas.

Pour le moment, je fais:
If "cellule 1="" then "cellule"1" = 0
endif
If "cellule2" . . . . etc. 12 fois. 😀

N'y a t'il pas une manière plus simple de procéder pour mettre ZERO dans toutes les cellules concernées si vides?

Merci d'avance,

Donpopo

 

[ROGER2327]

Re : probl DECALER() & IF Then

Bonjour donpopo

Deuxième problème :
Les cellules à traiter étant sélectionnées, essayez le code :

[COLOR="DarkSlateGray"]Selection.SpecialCells(xlCellTypeBlanks).Value = 0[/COLOR]

ROGER2327

 

[donpopo]

Re : probl DECALER() & IF Then

Merci, Roger2327,

çà m'aide bien!

Donpopo

 

[Tibo]

Re : probl DECALER() & IF Then

Bonjour,

Pour la fonction DECALER, un essai avec :

Insertion - Nom - Définir :

Nom : zone

Fait référence à :

=DECALER($A$1;0;0;MAX(($A$1:$A$200<>"")*LIGNE($1:$200)))

Plage de cellules à adapter

Essaye et dis-nous

@+