date de saisie d'une cellule

[nimbus le truand]

Bonjour les gens du forum ;

Est-il possible d’avoir pour une ligne donnée (ligne 10 par exemple), la date et l’emplacement (soit la colonne) de la dernière cellule modifiée (valeur enregistrée à la ligne 10 après la dernière cellule non vide) ?

Merci d’avance

Nimbus

P.S : mon tableau est très grand (32 colonnes et presque 17000 lignes), alors je pense qu’une macro serai plus rapide… mais je peux me tromper !!

 

[nimbus le truand]

En fait, j’ai réussi après une bonne recherche !

Je vais laisser le code (qui me semble non fini) et si vous pouvez me donner des améliorations ou des gestions d’erreur, je suis preneur.

Je l’ai inséré dans le classeur qui doit être surveillé, par exemple ‘planning’

Merci

Nimbus

Dim colonneAlpha As String
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Dim celluleLigne, celluleColonne
Dim VRange As Range

celluleLigne = Target.Row
celluleColonne = Target.Column

ColonneNum2Alpha (celluleColonne)

Set VRange = Range("InputRange") ‘InputRange vaut $A$3:$AF$65536

If Not Intersect(Target, VRange) Is Nothing Then _
Cells(celluleLigne, 33).Value = Now(): _
Cells(celluleLigne, 34).Value = colonneAlpha

End Sub

Function ColonneNum2Alpha(colonneNum)
Select Case colonneNum
Case 0: colonneAlpha = "": Exit Function
Case 1 To 9
Select Case colonneNum
Case 1 To 4
Select Case colonneNum
Case 1: colonneAlpha = "A"
Case 2: colonneAlpha = "B"
Case 3: colonneAlpha = "C"
Case 4: colonneAlpha = "D"
End Select
Case 5 To 9
Select Case colonneNum
Case 5: colonneAlpha = "E"
Case 6: colonneAlpha = "F"
Case 7: colonneAlpha = "G"
Case 8: colonneAlpha = "H"
Case 9: colonneAlpha = "I"
End Select
End Select
Case 10 To 19
Select Case colonneNum
Case 10 To 14
Select Case colonneNum
Case 10: colonneAlpha = "J"
Case 11: colonneAlpha = "K"
Case 12: colonneAlpha = "L"
Case 13: colonneAlpha = "M"
Case 14: colonneAlpha = "N"
End Select
Case 15 To 19
Select Case colonneNum
Case 15: colonneAlpha = "O"
Case 16: colonneAlpha = "P"
Case 17: colonneAlpha = "Q"
Case 18: colonneAlpha = "R"
Case 19: colonneAlpha = "S"
End Select
End Select
Case 20 To 29
Select Case colonneNum
Case 20 To 24
Select Case colonneNum
Case 20: colonneAlpha = "T"
Case 21: colonneAlpha = "U"
Case 22: colonneAlpha = "V"
Case 23: colonneAlpha = "W"
Case 24: colonneAlpha = "X"
End Select
Case 25 To 29
Select Case colonneNum
Case 25: colonneAlpha = "Y"
Case 26: colonneAlpha = "Z"
Case 27: colonneAlpha = "AA"
Case 28: colonneAlpha = "AB"
Case 29: colonneAlpha = "AC"
End Select
End Select
Case 30 To 32
Select Case colonneNum
Case 30 To 32
Select Case colonneNum
Case 30: colonneAlpha = "AD"
Case 31: colonneAlpha = "AE"
Case 32: colonneAlpha = "AF"
End Select
End Select
End Select
End Function