Revenir à la cellule d'origine

[ascal44]

Bonjour , après l'exécution d'une macro je voudrais revenir à la sélection de la cellule d'où est partie cette macro.

Private Sub Worksheet_Change(ByVal Target As Range)
Call form
End Sub

Sub form() ' format conditionnel de Signalements
Dim lig As Integer, plage As Range

    'Application.ScreenUpdating = False

Application.Calculation = xlManual ' accélère l'exécution
Application.DisplayAlerts = False




For lig = 63 To 163
  With Range(Cells(lig, "A"), Cells(lig, "P"))
    'si la ligne n'est pas vide on l'unit à plage
    If Application.CountA(.Cells) Then _
      Set plage = Union(IIf(plage Is Nothing, .Cells, plage), .Cells)
  End With
 
  Range(Cells(lig, "M"), Cells(lig, "P")).Select 'fusionne MNOP
  Selection.Merge
 

Selection.EntireRow.AutoFit ' hauteur ligne automatique
Selection.EntireRow.RowHeight = Selection.EntireRow.RowHeight + 10 ' + 10 pixel
If Selection.EntireRow.RowHeight < 25 Then Selection.EntireRow.RowHeight = 25 ' hauteur de ligne 25 mini
Next


'efface la MFC et les bordures
With Range("A63:P170")
  .FormatConditions.Delete
  .Borders.LineStyle = xlNone
End With

If plage Is Nothing Then Exit Sub    'si tout est vide...
    
With plage
  
  'crée les bordures
  .Borders.LineStyle = xlContinuous
  '.Interior.ColorIndex = 43
  .HorizontalAlignment = xlLeft 'alignement texte
  .VerticalAlignment = xlCenter
  .Locked = False 'protection cellule
  .FormulaHidden = False
  
  'MFC 1ère condition
  .FormatConditions.Add Type:=xlExpression, Formula1:="=CELLULE(""row"")=LIGNE()"
  With .FormatConditions(1)
    .Font.Bold = True
    .Font.Italic = False
    .Font.ColorIndex = 3
    .Interior.ColorIndex = 6
  End With
  
  'MFC 2ème condition
  .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();2)=0"
  .FormatConditions(2).Interior.ColorIndex = 15

   'MFC 3ème condition
  .FormatConditions.Add Type:=xlExpression, Formula1:="=MOD(LIGNE();1)=0"
  .FormatConditions(3).Interior.ColorIndex = xlAutomatic
  
 End With
 



     
Application.Calculation = xlAutomatic
Application.DisplayAlerts = True

End Sub

Merci pour votre aide précieuse

 

[job75]

Re : Revenir à la cellule d'origine

Bonjour ascal44,

Vous devriez connaître et appliquer cette règle élémentaire :

en VBA on peut généralement se passer des Select et autres Activate

Ainsi la cellule active ne changera pas...

A+

 

[Dranreb]

Re : Revenir à la cellule d'origine

Bonjour
Éviter de sélectionner autre chose dans le code comme dans

Range(Cells(lig, "M"), Cells(lig, "P")).Select 'fusionne MNOP
Selection.Merge

Range("M:P").Rows(lig).Merge

Remarque: il vaudrait mieux préciser le CodeName de la feuille devant.
Cordialement.

Bonjour job75.

 

[ascal44]

Re : Revenir à la cellule d'origine

Ne pourrait on pas repérer la cellule active avant l'exécution de la macro et la sélectionner à la fin ?

 

[Staple1600]

Re : Revenir à la cellule d'origine

Bonjour le fil

Il est autant conseillé de pas utiliser les Select et Activate que de ne pas fusionner les cellules.

(Préférez : Centrer sur plusieurs colonnes)

 

[Fred0o]

Re : Revenir à la cellule d'origine

Bonjour à tous,

Pour répondre strictement à ta demande, ascal44, voici un code qui fonctionne :

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim co
    co = ActiveCell.Address
    Call form
    Range(co).Select
End Sub

A+

 

[ascal44]

Re : Revenir à la cellule d'origine

Merci Fredoo , ça marche et cela va rendre plus agréable l'utilisation de mon fichier.