Incrémenter Range dans Macro
Bonjour, j'ai une macro qui fonctionne correctement pour une ligne donnée (2)
Je souhaiterais savoir comment je peux incrémenter la coordonnée de la ligne automatiquement.
Voici la macro en question:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Application.Intersect(Target, Range("B2:AE2")) Is Nothing Then
Range("AG2").Value = "X"
End If
Application.EnableEvents = True
End Sub
Je suppose que je dois utiliser une boucle en définissant une variable qui commence à 2 jusque ma dernière ligne mais je ne vois pas comment la mettre dans les parenthèse après Range.
J'imaginais
I=2
For I<35 :.....
(Target, Range("BI:AEI")) Is Nothing Then
Range("AEI").Value ="X"
Next
mais je vais avoir un conflit dans le nom de la cellule
Merci de votre aide
Bonjour Jejeletim, bonjour le forum,
Essaie comme ça :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
DL = Cells(Application.Rows.Count, "B").End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne B
If Application.Intersect(Target, Range("B2:AE" & DL)) Is Nothing Then Exit Sub 'si le changement a lieu ailleurs que dans la plage B2:AE&DL, sort de la procédure
Cells(Target.Row, "AG").Value = "X" 'écrit X dans la ligne de la cellule modifiée en colonne AG (comme elle est hors plage, il est inutile de mettre EnableEvents = False)
End SubBonjour ThauThème,
Merci de ton aide
Malheureusement cela ne fonctionne pas
J'ai testé ceci:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim NumLin As Integer
Dim Cell1 As String
Dim Cell2 As String
Dim Cell3 As String
Application.EnableEvents = False
NumLin = 2
For NumLin = 2 To 30
Cell1 = "B" & NumLin
Cell2 = "AE" & NumLin
Cell3 = "AG" & NumLin
If Not Application.Intersect(Target, Range("(Cell1):(Cell2)")) Is Nothing Then
Range(Cell3).Value = "X"
End If
Next
Application.EnableEvents = True
End Sub
Mais sans effet
Une idée de ce qui ne fonctionne pas ?
Re,
Rien de plus qui m'énerve quand on me dit que ça ne fonctionne pas sur un code que j'ai testé avant d'envoyer. Comme tu ne daignes pas envoyer le fichier qui permettrait de tester correctement, je te propose un exemple basé sur ton énoncé QUI FONCTIONNE.
Autant pour moi,
Je crois que je me suis trompé en copiant ton code dans le mauvais fichier vba.
Ca fonctionne
Merci beaucoup