XL 2016 macro

[clautu]

bonjour,
Jai un probleme de macro

J'ai cette macro
Sub matiere()
'
n = 1
For Each c In Range("g2:r2")
If c.Value > " " Then

Range("f" & n).Value = c.Value
n = n + 1
End If
Next
End Sub
Elle fonctionne très bien
Ce que je voudrais c'est que quand je positionne mon curseur dans la cellule A2 cette macro fonctionne tel quel
mais quand je me positionne en A3 la ligne de ma macro deviendrait"For Each c In Range("g3:r3")"
quand je me positionne en A4 la ligne deviendrais For Each c In Range("g4:r4")
toujours comme cela jusqu'en A100
Est-ce possible

Merci!!!

 

[Chris401]

Bonjour
Essaye en plaçant ce code dans la feuille concernée

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then
    Range("F1:F100").ClearContents
        n = ActiveCell.Row
        Range("G" & n & ":R" & n).SpecialCells(xlCellTypeConstants, 23).Copy
        Range("F1").PasteSpecial xlPasteValues, Transpose:=True
End If
Application.CutCopyMode = False
End Sub

 

[cathodique]

Bonjour @clautu , @Chris401

à tester

Sub matiere()
   Dim n As Integer, c As Range
   n = ActiveCell.Row
   For Each c In Range(Cells(n, 7), Cells(100, 18))
      If c.Value > " " Then
         Range("f" & n).Value = c.Value
         n = n + 1
      End If
   Next
End Sub

Bonne journée.

 

[Iznogood1]

Bonjour,

Il suffit de remplacer

For Each c In Range("g2:r2")​

par

For Each c In Range("g" & Selection.Row & ":r" & Selection.Row)​

Sub matiere()
  n = 1
  For Each c In Range("g" & Selection.Row & ":r" & Selection.Row)
    If c.Value > " " Then
      Range("f" & n).Value = c.Value
      n = n + 1
    End If
  Next
End Sub

 

[job75]

Bonjour à tous,

Sub matiere()
For Each c In Range("G" & ActiveCell.Row).Resize(, 12)
    If Trim(c) <> "" Then n = n + 1: Range("F" & n) = c
Next
End Sub

A+

 

[clautu]

Bonjour à tous,

Sub matiere()
For Each c In Range("G" & ActiveCell.Row).Resize(, 12)
    If Trim(c) <> "" Then n = n + 1: Range("F" & n) = c
Next
End Sub

A+

 

[clautu]

Merci à tous . Vous avez réglé mon problème.
La réponse de Iznogood1 me satisfait d'avantage
Encore merci!!!