Usine à gaz
XLDnaute Barbatruc
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) :
Mon souci est a ce niveau du code :
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,
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) :
Code:
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 IfMon souci est a ce niveau du code :
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,