Après avoir exécuté la macro Excel, vous mettrez en surbrillance la ligne et la colonne contenant le combiné actif, ce qui améliorera considérablement la possibilité de visualiser et d’éditer des grilles de données volumineuses.

Comment ca marche?

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancer As Boolean)
'Étape 1: Déclaration de la variable
Dim strRange As String
'Étape 2: Spécifiez la portée
strRange = Target.Cells.Address & "," & _
Target.Cells.EntireColumn.Address & "," & _
Target.Cells.EntireRow.Address
'Étape 3: Passer d 'une plage à l'autre
Range(strRange).Select
End Sub


Private Sub Worksheet_BeforeDoubleClick (ByVal Target As Range, Cancer As Boolean)
'Étape 1: Déclaration de la variable
Dim strRange As String
'Étape 2: Spécifiez la portée
strRange = Target.Cells.Address & "," & _
Target.Cells.EntireColumn.Address & "," & 

Target.Cells.EntireRow.Address
'Étape 3: Passer d'une plage à l'autre
Range(strRange).Select
End Sub

1. Tout d’abord, un objet nommé strRange est déclaré. Cela créera un conteneur en mémoire qui sera utilisé pour créer la plage (sous forme de chaîne de caractères).
2. Cette chaîne n’est rien d’autre que l’adresse de la portée donnée. “A1” est l’intervalle et la chaîne de texte qui indique le bloc A1. “A1: G5” est également une plage, il indique la plage couvrant les cellules A1 à G5. Dans un deuxième temps, nous construisons une gamme qui après avoir cliqué sur une cellule donnée (dans la macro, elle apparaît en tant que cible) sera spécifiée en tant que ligne et colonne actives. La propriété Address pour ces trois plages est téléchargée et stockée dans la variable strRange.

3. Sélectionnez la feuille dans laquelle vous voulez exécuter le code.
4. Sélectionnez BeforeDoubleClick dans la liste déroulante Evénement.
5. Tapez ou collez le code dans le module nouvellement créé.