Première colonne de la ligne courante [Excel 2003]
Codes-Sources > VBA
Identifiant : 5
Description :
Cet exemple de code permet de sélectionner la première colonne de la ligne sur laquelle on se trouve. Code testé sous VBA pour Excel 2003.
Do While InStr(ActiveCell.Address, "$A$") <> 1 ActiveCell.Offset(0, -1).Select Loop
Cette boucle sélectionne la colonne précédente jusqu'à la première colonne, c'est-à-dire celle qui a une adresse commençant par '$A$'.
La procedure suivante permet de faire la même chose de façon optimisée.
Sub selectQuicklyFirstColumn() i = 0 Do While InStr(ActiveCell.Offset(0, i).Address, "$A$") <> 1 i = i - 1 Loop ActiveCell.Offset(0, i).Select End Sub
Ici, la sélection ne s'effectue qu'une fois le bon indice 'i' trouvé. Cela accélère considérablement l'exécution.
- Pas de fichier -