Bonjour,
Dans le code d'un USF,j'ai un problème pour la partie en gras :
*************************************
Private L As Long 'Dimensionne et déclare la variable L
Private Sub CommandButton1_Click()
L = ActiveCell.Row
Dim col As Byte 'déclare la variable col
'trouver la cellule vide pour écrire la nouvelle date d'échéance
'sachant que w est la colonne 23
col = Rows(L).Find('', Range('S' & L), , , xlByColumns).Column 'première cellule vide en partant de la droite de 'S' jusqu'à 'W' inclus : cela correspond à la cellule où libre ou la nouvelle date d'échéance peut-être écrite
If col > 23 Then 'sachant que w est la colonne 23 = Date d'échéance 4
col = 23
End If
If Cells(L, col - 1) = CDate(TextBox6.Value) Then
Unload Me 'vide et ferme l'userform
Application.SendKeys ('{ESC}') 'désélectionne la saisie dans la cellule
End If
Cells(L, col) = CDate(TextBox6.Value)
Unload Me 'vide et ferme l'userform
Application.SendKeys ('{ESC}') 'désélectionne la saisie dans la cellule
End Sub
'sortir de l'UserForm (sans enregistrer de modif)
**********************************
En fait je cherche à ce que la comparaison se face sur la cellule de même ligne, directement à gauche de 'col' ----> col-1 mais cela ne marche pas...?
En vous remerciant
Guy
Dans le code d'un USF,j'ai un problème pour la partie en gras :
*************************************
Private L As Long 'Dimensionne et déclare la variable L
Private Sub CommandButton1_Click()
L = ActiveCell.Row
Dim col As Byte 'déclare la variable col
'trouver la cellule vide pour écrire la nouvelle date d'échéance
'sachant que w est la colonne 23
col = Rows(L).Find('', Range('S' & L), , , xlByColumns).Column 'première cellule vide en partant de la droite de 'S' jusqu'à 'W' inclus : cela correspond à la cellule où libre ou la nouvelle date d'échéance peut-être écrite
If col > 23 Then 'sachant que w est la colonne 23 = Date d'échéance 4
col = 23
End If
If Cells(L, col - 1) = CDate(TextBox6.Value) Then
Unload Me 'vide et ferme l'userform
Application.SendKeys ('{ESC}') 'désélectionne la saisie dans la cellule
End If
Cells(L, col) = CDate(TextBox6.Value)
Unload Me 'vide et ferme l'userform
Application.SendKeys ('{ESC}') 'désélectionne la saisie dans la cellule
End Sub
'sortir de l'UserForm (sans enregistrer de modif)
**********************************
En fait je cherche à ce que la comparaison se face sur la cellule de même ligne, directement à gauche de 'col' ----> col-1 mais cela ne marche pas...?
En vous remerciant
Guy