dernière cellule vide d'une plage une ligne

[guy]

Bonjour à tous,

Je butte sur un problème

Dans le code vba associé à un USF, je dois rechercher sur la ligne sélectionnée : la dernière cellule vide en partant vers la droite :


Dim M As Long 'Dimensionne et déclare la variable M

M = ActiveCell.Row


Range('S' & M).End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = CDate(TextBox6.Value)


Cela fonctionne très bien mais je voudrais que la plage de recherche se fasse UNIQUEMENT jusqu' la cellule W de même ligne (Range('W' & M).

En vous remerciant

Guy

 

[michel_m]

Bonjour Guy

essaies
Range('W' & M).End(xlToLeft).Offset(0, 1) = CDate(TextBox6.Value)

A+
Michel_M

 

[guy]

Merci Michel,

En fait j'ai desoin que la recherche se fasse uniquement sur une plage bien précise (de S à W)sans la dépasser car les champs plus à droite ou à gauche de cette plage sont affectés à autre chose et peuvent être soit vides ou remplis.

La date à écrire peut s'écrire en S, T, U, V, W.

C'est la colone S qui est remplie en premier (vide au départ) puis s'il y a déjà une date en S, c'est en T que l'on écrit la nouvelle date...jusque en W.

Pour W si la cellule à déjà une date ont récrit toujours dessus.

En vous remerciant.

guy

 

[pierrejean]

bonjour guy

une solution (sachant que w est la colonne 23)

Dim M As Long 'Dimensionne et déclare la variable M

M = ActiveCell.Row

If M < 23 Then
Range('S' & M).End(xlToRight).Offset(0, 1).Select
ActiveCell.Value = CDate(TextBox6.Value)
Else
Range('S' & M).End(xlToRight).Offset(0, 0).Select
ActiveCell.Value = CDate(TextBox6.Value)
End If

 

[michel_m]

Re,
c'est pas du tout le m^me pb

essaies

Dim col As Byte
'....
col = Rows(M).Find('', Range('R' & M), , , xlByColumns).Column
If col > 23 Then
col = 23
End If
Cells(M, col) = CDate(TextBox6.Value)

en espérant que...

Bon aprèm, serai de retour après France-Angleterre

Michel_M

 

[guy]

Merci beaucoup,

c'est parfait

Guy