dernière cellule vide d'une plage une ligne

M

michel_m

XLDnaute Accro

• 12 Mars 2006

• #2

Bonjour Guy

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

A+
Michel_M

 

Vote positif 0 Vote négatif

G

guy

Guest

• 12 Mars 2006

• #3

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

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 12 Mars 2006

• #4

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

 

Vote positif 0 Vote négatif

M

michel_m

XLDnaute Accro

• 12 Mars 2006

• #5

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

 

Vote positif 0 Vote négatif

G

guy

Guest

• 12 Mars 2006

• #6

Merci beaucoup,

c'est parfait

Guy

 

Vote positif 0 Vote négatif