Bonjour le forum.
Ça faisait un petit moment que j'étais pas venu vous embêter
J'ai un gros souci de sélection de dernière ligne mais je comprend pas pourquoi
Voici mon code, rien de bien violent, mais mon "DerniereLigne = Range("A65536").End(xlUp).Row" me remonte a chaque fois un étonnant 257 alors que ma case A2 est vide ( j'ai utilisé cette fonction un peu partout sans jamais avoir de problème... )
J'ai aussi un problème de selection d'une case ( peu importe laquelle ), je comprend pas pourquoi, ça doit être lié
Avez-vous une idée ?
Ça faisait un petit moment que j'étais pas venu vous embêter
J'ai un gros souci de sélection de dernière ligne mais je comprend pas pourquoi
Voici mon code, rien de bien violent, mais mon "DerniereLigne = Range("A65536").End(xlUp).Row" me remonte a chaque fois un étonnant 257 alors que ma case A2 est vide ( j'ai utilisé cette fonction un peu partout sans jamais avoir de problème... )
Code:
Private Sub CommandButton18_Click()
Dim Badge As String
Dim DateDebut As Date, DateFin As Date
Dim DerniereLigne As Integer
Dim Flag As Boolean
Dim TestPM As Variant
DateDebut = Range("B29").Value
DateFin = Now()
Badge = Range("A257").Value
Range("C257").Value = DateFin
'sauvegarde des donnees
Sheets("SuiviPM").Select
ActiveSheet.Range("A1").Select
Flag = True
For Each TestPM In Range("A2:A" & Range("A65536").End(xlUp).Row) 'test si pm deja presente
If TestPM.Value = PmEnCours Then
DerniereLigne = TestPM.Row
Flag = False
End If
Next
If Flag Then DerniereLigne = Range("A65536").End(xlUp).Row
Range("A" & DerniereLigne).Value = PmEnCours
Range("B" & DerniereLigne).Value = TypePm
Range("C" & DerniereLigne).Value = Badge
Range("D" & DerniereLigne).Value = DateDebut
Range("E" & DerniereLigne).Value = DateFin
Range("F" & DerniereLigne).Value = DateDiff(n, DateDebut, DateFin)
Range("G" & DerniereLigne).Value = UsureMeule
Range("H" & DerniereLigne).Value = BladeHeight
End Sub
J'ai aussi un problème de selection d'une case ( peu importe laquelle ), je comprend pas pourquoi, ça doit être lié
Avez-vous une idée ?