Discussion :

[Serendipity]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Guiiand]

Bonjour,

tu y etais presque, il te suffit de remplacer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

target.Address

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

target.Row

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

ou alors

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

target.Column

pour la colonne

[Serendipity]

Merci Guiiand c'est parfait.

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.

[tedo01]

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 à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Invité]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Et pas

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 lastrow =target.Row???

[gFZT82]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.