XL 2010 Résolu en un clin d'oeil par PierreJean : Sélectionner une colonne sur ligne active

[Usine à gaz]

Bonjour à toutes et à tous,

Je suis toujours dans l'amélioration de mon fichier de travail.
Je bute sur un déplacement dans excel.
Malgré mes recherches et multiples tests, je n'ai pas trouvé.

Voici mon code en exemple) :

If Not Intersect(R, Range("g7:v20000")) Is Nothing Then
  For Each C In Range("y7:y20000")
    If C = 1 Then
      If R.Row <> C.Row Then
        Application.EnableEvents = False
        Application.ScreenUpdating = False
        Oubli_date.Show
        'Range("i" & C.Row & "").Select
        Range("I7:t20000").Select
        Selection.SpecialCells(xlCellTypeBlanks).Select
        ActiveWindow.ScrollRow = Selection.Row
        Application.ScreenUpdating = False
        Application.EnableEvents = True
        ActiveSheet.Protect Password:="Krameri", DrawingObjects:=True, Contents:=True, Scenarios:=True
        ActiveSheet.EnableSelection = xlNoRestrictions
        Exit Sub
        End If
    Else
    Application.EnableEvents = False
    Application.ScreenUpdating = False
  
    R.Offset(0, 5).Select 'Range("Y").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-18]<2,"""",IF(AND(AND(AND(AND(AND(AND(AND(RC[-16]<>"""",RC[-15]<>"""",RC[-13]<>"""",RC[-9]<>"""",RC[-8]<>"""",RC[-7]<>"""",RC[-6]<>"""",RC[-5]<>0))))))),0,1))"
   
    R.Offset(0, 7).Select 'Range("AA").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-3]=""zz"","""",IF(RC[-15]=""Ne pas Rappeler"","""",IF(ISERROR(SEARCH(""Rappelez"",RC[-3])),RC[-17],"""")))"

    R.Offset(0, 9).Select 'Range("AC").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(OR(RC[-17]<>""Répondeur"",RC[-17]<>""sms""),"""",IF(ISERROR(SEARCH(""Rappelez"",RC[-5])),RC[-19],""""))"
    Application.EnableEvents = True
    Application.ScreenUpdating = True
    End If
  Next C
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End If

Mon souci est a ce niveau du code :

If Not Intersect(R, Range("g7:v20000")) Is Nothing Then
et, par exemple,
R.Offset(0, 5).Select 'Range("Y").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-18]<2,"""",IF(AND(AND(AND(AND(AND(AND(AND(RC[-16]<>"""",RC[-15]<>"""",RC[-13]<>"""",RC[-9]<>"""",RC[-8]<>"""",RC[-7]<>"""",RC[-6]<>"""",RC[-5]<>0))))))),0,1))"

1 - la première ligne de code me dit que si je clique de la cellule G7 à la cellule V20000 = il se passe ce que je lui demande.

2- La ligne : R.Offset(0, 5).Select 'Range("Y").Select
m'amène à la 5 eme colonne ligne active pour y copier ma formule.

Le souci :
Puisque je peux cliquer de la col. G à V, atteindre la cellule "R.Offset(0, 5)" ne tombe jamais sur la ligne col Y
Avez-vous une idée ?

LOL, je me suis certainement encore mal expliqué
J'espère quand même que ma question sera compréhensive

Je reste à l'écoute pour compléter mes explications.

Avec mes remerciements,
Amicalement,
Lionel,

 

[pierrejean]

Bonjour Arthour
Il manque l'intitulé de ta macro
Si comme je le présume il s'agit d'une Worksheet_change
teste:

range("Y" & target.row).select

 

[Usine à gaz]

Bonjour Pierrejean,

Un grand merci d'être encore là

Mon code est un extrait du code bien plus "imposant" LOL.

Première ligne du code : Private Sub Worksheet_SelectionChange(ByVal R As Range)

Le code a tenter ne serait pas : range("Y" & R.row).select ?

 

[Usine à gaz]

Re - PierreJean,

Avec : range("Y" & R.row).select, ça a l'air de marcher nickel.
Je continue mes petits tests.

Un grand merci pour m'avoir répondu avec tant de rapidité.
LOL, pour une fois, j'ai du être clair ou vous êtes magicien (je penche pour la seconde ).
Amicalement,
Lionel,

 

[Usine à gaz]

Re - encore PierreJean,

Tests concluants, ça marche super.
Encore un grand merci
Amicalement,
Lionel,