target.address : localiser un changement de valeur

Bonjour,

je cherche à ce que, lorsque l'utilisateur rempli une cellule, je localise la ligne afin d'utiliser le contenu d'une autre colonne (de cette ligne). En d'autre terme, l'utilisateur entre un numero en L8. Je veux recuperer la valeur de G8. J'ai actuellement ce script :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Private Sub Worksheet_Change(ByVal target As Range) Dim rg As Range Dim lastrow As Integer With ActiveSheet lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row End With   'Ne rien faire si plus d'une cellule est changé ou si le contenu est supprimé If target.Cells.Count > 1 Or IsEmpty(target) Then Exit Sub   'Vérifier que l'action concerne bien les colonnes des mois (de I à T) If Not Application.Intersect(target, Range("I8:T" & lastrow)) Is Nothing Then   MsgBox target.Address   End If End Sub

---

Ce code fonctionne, mais je récupère $L$8. Je ne sais pas quoi faire avec ça. Je souhaiterais acceder à G8.

Merci d'avance

Bonjour,

tu y etais presque, il te suffit de remplacer

Code:

---

target.Address

---

par

Code:

---

target.Row

---

pour les lignes (ce qui t'interesse si j'ai bien lu)

ou alors

Code:

---

target.Column

---

pour la colonne

Bonjour,
Si target est la cellule G8, alors la cellule L8 est alors définie par un décallage de 0 lignes et 5 colonnes :

Code:

---

target.Offset(0, 5)

---

Pour obtenir une adresse dans le format relatif (L8) plutôt qu'absolu ($L$8), il faut utiliser les paramètres de la fonction Adress. Exemples, obtenu dans la fenêtre Debug :

Code:

---

1 2 3 4 5 6 7 8

?range("A1").Address(False, False) A1 ?range("A1").Address(True, True) $A$1 ?range("A1").Address(True, False) A$1 ?range("A1").Address(False, True) $A1

---

Bonjour,
Je ne comprends pas tu sais récupérer

Code:

---

lastrow = .Cells(.Rows.Count, "G").End(xlUp).Row

---

Et pas

Code:

---

lastrow =target.Row???

---

Merci Guiiand c'est parfait.

Citation:

---

Bonjour,
Si target est la cellule G8, alors la cellule L8 est alors définie par un décallage de 0 lignes et 5 colonnes :
Code :Sélectionner tout - Visualiser dans une fenêtre à parttarget.Offset(0, 5)Pour obtenir une adresse dans le format relatif (L8) plutôt qu'absolu ($L$8), il faut utiliser les paramètres de la fonction Adress. Exemples, obtenu dans la fenêtre Debug :
Code :Sélectionner tout - Visualiser dans une fenêtre à part12345678 ?range("A1").Address(False, False)
A1
?range("A1").Address(True, True)
$A$1
?range("A1").Address(True, False)
A$1
?range("A1").Address(False, True)
$A1

---

J'avais pensé à la solution offset mais ça me semblait inélégant.

rdurupt > Oui je sais bien, c'est tout bête mais je suis très loin d'être aguéri en vba (et même en prog en général). Mais j'apprends tout les jours.

Merci à vous.

Bonjour,

Un exemple de code pour retourner la valeur de la colonne G qui se trouve sur la même ligne que la cellule modifiée.

Code:

---

1 2 3 4 5 6 7 8

Private Sub Worksheet_Change(ByVal target As Range) Dim lastrow As Integer If target.Count > 1 Or IsEmpty(target) Then Exit Sub lastrow = Cells(Rows.Count, "G").End(xlUp).Row If Not Application.Intersect(target, Range("I8:T" & lastrow)) Is Nothing Then MsgBox "Valeur de la cellule correspondante en colonne G :" & Range("G" & target.Row).Value End If End Sub

---

Cordialement.