Discussion :

[Kassy]

Bonjour,

Existe-t-il un moyen simple pour qu'en cliquant sur une cellule de coordonnées (r,c) d'une plage nommée, elle se voit attribuer la valeurs de la cellule de coordonnées (r,c) d'une autre plage nommée. Du genre :

Code :

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

1
2
3
4
 
target = Range("Plage2").Cells(r, c)
' où r et c sont respectivement la L-ième ligne et C-ième colonne de Plage1 et corresponde à
' la L-ième ligne et C-ième colonne de Plage2.

[Marc-L]

Salut !

Oui via l'évènement de feuille de calculs Worksheet_SelectionChange.

Les évènements dans la feuille de calcul Excel …

______________________________________________________________________________________________________

Je suis Paris, Charlie, Bruxelles, …

[Docmarti]

Bonjour.

Pour trouver l'adresse relative :

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_SelectionChange(ByVal Target As Range)
 
If Target.Count <> 1 Then Exit Sub
 
If Intersect(Range("plage1"), Target) Is Nothing Then
 
Else
 
 c = Target.Column - (Range("plage1").Column - 1) 'Adresse relative
 
 r = Target.Row - (Range("plage1").Row - 1) 'Adresse relative
 
 Target.Copy Range("plage2").Cells(r, c)
 
End If
 
End Sub

[Philippe Tulliez]

Bonjour,
La propriété Address d'un objet Range peut également renvoyer une adresse relative. Il suffit de mettre les valeurs des deux premiers arguments (facultatifs) à False.

Code :

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

 MsgBox Target.Address(RowAbsolute:=False, ColumnAbsolute:=False)

ou

Code :

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

MsgBox Target.Address(False, False)

[Kassy]

Merci à vous trois de m'aider.

Je me rends compte que j'ai mal formulé ma demande . Alors je la reformule .

Existe-t-il une méthode ressemblant à LaMéthode(Target,Plage1, Plage2,[NbLigneSupp],[NbColonneSupp]) qui ferai :

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
18
Sub LaMéthode (ByVal target As Range, byref Plage1 as Variant, byval Plage2 as Variant, Optional byval NbLigneSupp as long = 0, Optional byval NbColonneSupp as long =0 )
  
  '
  '
  ' Déclaration, test et début de code
  '  
  '
  With Sheets("Feuille de la plage2")
    r = .Range(Plage2).Row - Range(Plage1).Row + target.Row                                   ' où ici Plage1 et Plage2 sont les noms de plages nommées dans la
    c = .Range(Plage2).Column - Range(Plage1).Column + target.Column                          ' collection Names du classeur actif
    plage = CStr(Range(Cells(r, c), Cells(r +NbLigneSupp, c + NbColonneSupp)).Address)
    .Range(plage).Copy target
  End With
   '
   ' Suite du code et traitement des errreurs
   '
End Sub

Par exemple, si Target pointe sur la cellule de la 2ième ligne et le la 3ième colonne de la plage 1 (nommée "Plage1" dans la collection Names du classeur), alors cette cellule prendra la valeur et la mise en forme de la cellule de la 2ième ligne et de la 3ième de la plage 2(nommée "Plage2" dans la collection Names du classeur). Les options étant omises.

Ou quoique ce soit d'autre, pour alléger le code.

[Docmarti]

Voici une autre suggestion.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
Application.EnableEvents = False
 
Call CopierVersSelection(Target)
 
Application.EnableEvents = True
 
End Sub

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
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
'Dans un module
 
Sub CopierVersSelection(Target)
 
nomDestine = "Plage1"
 
nomOrigine = "Plage2"
 
'ou si requis plus de precision
' nomOrigine = "[" & ThisWorkbook.Name & "]" & "Feuil2" & "!" & "Plage2"
 
If Intersect(Target, Range(nomDestine)) Is Nothing Then
 
Else
 
 Set Dest = Target
 
  Range(nomOrigine).Copy
 
 Set origin = Range(nomOrigine)
 
 lng_R = Dest.Row - (Range(nomDestine).Row - 1)
 lng_C = Dest.Column - (Range(nomDestine).Column - 1)
 
 Lignes_dans_Dest = Dest.Rows.Count
 Colonnes_dans_Dest = Dest.Columns.Count
 
 Call Copier(origin, lng_R, lng_C, Lignes_dans_Dest, Colonnes_dans_Dest, Dest)
 
End If
 
End Sub
 
Sub Copier(origin, lng_R, lng_C, Lignes, Colonnes, Dest)
 
origin.Cells(lng_R, lng_C).Resize(Lignes, Colonnes).Copy Dest.Cells(1, 1)
 
End Sub