Prochaine cellule non vide

[Nenesandco]

Bonjour à tous,


Voici la base de ma question :

D1 --> Non Vide
E1 --> Vide
F1 --> Vide
G1 --> Vide
H1 --> Vide
I1 --> Vide
J1 --> Non Vide
K1 --> Vide

J'ai une cellule de référence D1.

Ma question : Y a-t-il une formule qui me permette de connaître l'adresse de la prochaine cellule non vide, ici J1, à partir d'une cellule de référence, D1 ?

J'ai retourné le problème dans tous les sens mais ne trouve pas de solution. Peut-être n'est ce pas réalisable.

Merci d'avance pour vos réponses éclairées,

 

[Pierrot93]

Re : Prochaine cellule non vide

Bonjour,

essaye peut être ceci, en attendant les formulistes :

MsgBox Rows(1).Find("*", Range("D1"), xlValues, , 2, 1, 0).Address

bonne journée
@+

 

[R@chid]

Re : Prochaine cellule non vide

Bonjour @ tous,
Salut Pierrot93,
Si j'ai bien compris...

=ADRESSE(1;MIN(SI(E1:O1<>"";COLONNE(E:O)));4)

@ valider par Ctrl+Maj+Entree
@ + +

 

[Nenesandco]

Re : Prochaine cellule non vide

Merci pour vos réponses.

@Pierrot93, le code semble ne pas marcher. Ou alors je m'y prends mal.
@Rachid, dans l'idée la formule est pas trop mal si ce n'est qu'elle renvoie l'adresse de la première cellule de la plage sélectionnée et non, l'adresse de la première cellule non vide.

Je vous joins à ce poste un exemple, peut-être cela peut-il vous aider.

Dans mon exemple, je souhaiterais qu'une formule ou un code, peu importe, puisse me dire : dans la plage A3:G3, la première cellule non vide est E3.

Merci d'avance,

 

[R@chid]

Re : Prochaine cellule non vide

Bonjour @ tous,
Peut-être que ma formule répond bien à ta demande...
essayer,

=ADRESSE(3;MIN(SI(A3:G3<>"";COLONNE(A:G))))

@ valider par Ctrl+Maj+Entree
@ + +

 

[Pierrot93]

Re : Prochaine cellule non vide

Re,
bonjour Rachid

en l'état de ton fichier, il eut fallut modifier le code comme suit :

MsgBox Rows(3).Find("*", Range("G3"), xlValues, , 2, 1, 0).Address