Tableau Plage Cellules non vides

Bonjour le Forum

J'ai une feuille dans laquelle se trouve un tableau

J'ai une plage qui va de Cells(I,3) à Cells(I,39) qui contient les dates du mois.

Parfois le 1 du mois commence en Cells(I,3) et parfois en Cells(I,9)

et le dernier jours du mois peut être en Cells(I,27) comme être en Cells(I,39) suivant le nombre de jours dans le mois et la cellule où se situe le premier jour

Bref dans ma plage qui va de Cells(I,3) à Cells(I,39) j'ai des cellules vides (parfois) au début et/ou à la fin.

Je souhaite trouver la colonne où se trouve la première cellule non vide et la colonne où se situe la derniere cellule non vide de ma plage.

Y a t il un code efficace autre qu'un for Col= 3 to 39....

Merci pour votre aide

Séb

Bonjour,

Il nous faut un fichier pour proposer une solution efficace. Merci de le joindre à ton message.

Désolé, je pensais que l'explication suffisait

Voici le fichier

Je n'ai pas précisé que c'est en VBA puisque j'ai besoin des résultats demandés pour faire fonctionner d'autres procédures

merci encore

séb

Re

serait-ce:

Msgbox "colonne début" & Cells(I,3).End(xlToRight).Column

Msgbox "colonne fin" & Cells(I,39).End(xlToLeft).Column

?? ou ??

Attention bien que visuellement vides, les cellule ou il n'y a pas de nombres (dates) contiennent une valeur

Après 6 heures de recherches:

Sub Test()

Dim Col1 As Byte, Col2 As Byte

Dim Ws As Worksheet

Set Ws = Sheets("Feuil1")

Col1 = Ws.Range(Cells(I, 3), Cells(I, 39)).Find(What:="1", LookIn:=xlValues).Column

MsgBox Col1

Col2 = Ws.Range(Cells(I,Col1), Cells(I, 39)).Find(What:="", LookIn:=xlValues).Column - 1

MsgBox Col2

End Sub