Répéter code VBA sur toutes lignes

[Unknown]

Bonjour,

HELP ME !

Après des heures et des heures de recherche sur les sites spécialisé j'ai enfin réussi à créer le code que je souhaitais pour un fichier excel :

Private Sub Worksheet_Change(ByVal Target As Range)

Dim KeyCells As Range
Set KeyCells = Range("C2:R2")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
Range("A2").Value = Date
End If

End Sub

Sauf que j'aimerai que celui ci fonctionne pour toutes lignes du tableaux, sachant que j'ai plus de 100 lignes et que le fichier va être amené à être allimenté par d'autres personnes, je ne vais pas pouvoir copier coller le code en modifiant les cellules à chaque fois

 

[Marc L]

Bonjour,

merci de baliser le code conformément aux règles de ce forum !

Transformer un Range comme Target en adresse pour la retransformer en Range : c'est bébête !

​

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.UsedRange.Columns("C:R"), Target) Is Nothing Then Cells(Target.Row, 1).Value = Date
End Sub

_______________________________________________________________________________
Merci de cliquer sur J'aime ce post en bas à gauche de chaque message ayant aidé …

_______________________________________________________________________________
Je suis Paris, Charlie, …
​

 

[pierrejean]

Re : Répéter code VBA sur toutes lignes

Bonjour Unknow

Et bienvenue sur XLD

Pas utile de repeter

Teste:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim KeyCells As Range
Set KeyCells = Range("C" & Target.Row & ":R" & Target.Row)
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
  Range("A" & Target.Row).Value = Date
End If
End Sub

 

[Unknown]

Re : Répéter code VBA sur toutes lignes

MERCI !
Ca marche enfin !
Quand je pense que je me suis enquiquinée toute la matinée avec ça.

Merci beaucoup.

 

[Unknown]

Re : Répéter code VBA sur toutes lignes

Désolée pour l'histoire de balisage de code j'arrive seulement sur le forum je n'ai pas encore lu les régles du forum