Heures et date des saisies

S

sellig 29

XLDnaute Occasionnel
Bonjour à tous,

J'utilise le code ci dessous pour déterminer l'heure, la date et le Numéro de cellule correspondant pour chaque saisie réalisée dans une feuille.
Le fichier correspondant est partagé sur un serveur, lorsque j'effectue une saisie de mon PC (au travail) la macro enregistre l'heure, date et Numéro de cellule conformément au code (Origine Pierre Jean) mais lorsqu'elle est effectuée par un autre utilisateur, seuls la date et l'heure de la saisie s'inscrivent (feuille "Listes"), il manque le numéro de cellule correspondante sur la colonne adjacente???
Difficile de connaitre le motif de ce dysfonctionnement puisque de mon PC cela fonctionne très bien, de plus, mes connaissances en visual basic sont assez limitées...
Pouvez vous m'aider à résoudre ce problème?
Merci d'avance pour votre aide



Private Sub Worksheet_Change(ByVal Target As Range)
Dim n As Long
If Target.Column = 4 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CA65536").End(xlUp).Row + 1
Sheets("Listes").Range("CA" & n) = Now
End If
If Target.Column = 5 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CC65536").End(xlUp).Row + 1
Sheets("Listes").Range("CC" & n) = Now
End If
If Target.Column = 6 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CE65536").End(xlUp).Row + 1
Sheets("Listes").Range("CE" & n) = Now
End If
If Target.Column = 7 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CG65536").End(xlUp).Row + 1
Sheets("Listes").Range("CG" & n) = Now
End If
If Target.Column = 8 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CI65536").End(xlUp).Row + 1
Sheets("Listes").Range("CI" & n) = Now
End If
If Target.Column = 9 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CK65536").End(xlUp).Row + 1
Sheets("Listes").Range("CK" & n) = Now
End If
If Target.Column = 10 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CM65536").End(xlUp).Row + 1
Sheets("Listes").Range("CM" & n) = Now
End If
If Target.Column = 11 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CO65536").End(xlUp).Row + 1
Sheets("Listes").Range("CO" & n) = Now
End If
If Target.Column = 12 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CQ65536").End(xlUp).Row + 1
Sheets("Listes").Range("CQ" & n) = Now
End If
If Target.Column = 15 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CS65536").End(xlUp).Row + 1
Sheets("Listes").Range("CS" & n) = Now
End If
If Target.Column = 16 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CU65536").End(xlUp).Row + 1
Sheets("Listes").Range("CU" & n) = Now
End If
If Target.Column = 17 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CW65536").End(xlUp).Row + 1
Sheets("Listes").Range("CW" & n) = Now
End If
If Target.Column = 19 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CY65536").End(xlUp).Row + 1
Sheets("Listes").Range("CY" & n) = Now
End If
If Target.Column = 20 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("DA65536").End(xlUp).Row + 1
Sheets("Listes").Range("DA" & n) = Now
End If
If Target.Column = 4 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CA65536").End(xlUp).Row
Sheets("Listes").Range("CB" & n) = Target.Address(0, 0)
End If
If Target.Column = 5 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CC65536").End(xlUp).Row
Sheets("Listes").Range("CD" & n) = Target.Address(0, 0)
End If
If Target.Column = 6 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CE65536").End(xlUp).Row
Sheets("Listes").Range("CF" & n) = Target.Address(0, 0)
End If
If Target.Column = 7 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CG65536").End(xlUp).Row
Sheets("Listes").Range("CH" & n) = Target.Address(0, 0)
End If
If Target.Column = 8 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CI65536").End(xlUp).Row
Sheets("Listes").Range("CJ" & n) = Target.Address(0, 0)
End If
If Target.Column = 9 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CK65536").End(xlUp).Row
Sheets("Listes").Range("CL" & n) = Target.Address(0, 0)
End If
If Target.Column = 10 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CM65536").End(xlUp).Row
Sheets("Listes").Range("CN" & n) = Target.Address(0, 0)
End If
If Target.Column = 11 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CO65536").End(xlUp).Row
Sheets("Listes").Range("CP" & n) = Target.Address(0, 0)
End If
If Target.Column = 12 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CQ65536").End(xlUp).Row
Sheets("Listes").Range("CR" & n) = Target.Address(0, 0)
End If
If Target.Column = 15 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CS65536").End(xlUp).Row
Sheets("Listes").Range("CT" & n) = Target.Address(0, 0)
End If
If Target.Column = 16 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CU65536").End(xlUp).Row
Sheets("Listes").Range("CV" & n) = Target.Address(0, 0)
End If
If Target.Column = 17 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CW65536").End(xlUp).Row
Sheets("Listes").Range("CX" & n) = Target.Address(0, 0)
End If
If Target.Column = 19 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("CY65536").End(xlUp).Row
Sheets("Listes").Range("CZ" & n) = Target.Address(0, 0)
End If
If Target.Column = 20 And Target.Row >= 9 And Target.Row <= 65536 Then
n = Sheets("Listes").Range("DA65536").End(xlUp).Row
Sheets("Listes").Range("DB" & n) = Target.Address(0, 0)
End If
End Sub
 

Discussions similaires

yojema
  • Question
XL 2021 faire évoluer un code VBA
Réponses
3
Affichages
171
Dranreb
Dranreb
H
  • Question
Autres mise a jour automatique feuille excel vba
Réponses
2
Affichages
301
HANN
H
U
  • Question
Autres [RESOLU] Déclaration de variable
Réponses
5
Affichages
212
un internaute
U
T
  • Question
XL 2016 Optimisation d'une boucle
2 3
Réponses
30
Affichages
950
thivame
T
D
  • Question
XL 2010 Identification d'une cellule cliquée
Réponses
6
Affichages
356
dadu35
D
D
  • Question
XL 2010 Valoriser cellule par clic
Réponses
4
Affichages
235
fanch55
fanch55
R
  • Question
XL 2016 excel 2016 VBA
Réponses
2
Affichages
162
rebatte
R
B
  • Résolu(e)
Microsoft 365 Besoin d'aide pour faire fonctionner 2 codes VBA ensemble
Réponses
2
Affichages
149
BenExcel
B
F
  • Résolu(e)
Microsoft 365 Recherche à partir d'une TextBox
Réponses
4
Affichages
175
Francky79
F
U
  • Question
Autres Enregistrer sur Onglet TOTO
Réponses
2
Affichages
390
un internaute
U

Membres actuellement en ligne

21 membres et 311 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 356
Messages
2 087 569
Membres
103 596
dernier inscrit
matthieu.devillers76