Bonjour
Y'a quelque chose la dessous ;)
Option explicit
sub selectRowCol
dim oDoc as object
dim oSheet as object
dim oColonnes as object
dim oColonne as object
dim oLignes as object
dim oLigne as object
dim nomCol as string
dim numLig as long
dim oCellCroisement as object
dim msg as variant
oDoc = ThisComponent
oSheet = oDoc.Sheets.getByName( "Feuille1" )
' La collection de colonnes
oColonnes = oSheet.getColumns()
' Sélection de la colonne "D"
nomCol = "D"
oColonne = oColonnes.getByName( "D" )
' Un peu de couleur ;)
oColonne.CellBackColor = 13421823 ' Sun 4
' La collection de lignes
oLignes = oSheet.getRows()
' Sélection de la ligne (4)
numLig = 4
oLigne = oLignes.getByIndex( 3 )
' Un peu de couleur ;)
oLigne.CellBackColor = 16777164 ' jaune pâle
oCellCroisement = oSheet.getCellRangeByName( nomCol & numLig )
oCellCroisement.CellBackColor = 16764057 'orange 4
msg = "Attention" & chr(10) & "croisement !"
oCellCroisement.String = msg
end sub
Nojid a écrit :
Bonjour
Quelle commande faut-il utiliser pour sélectionner
- une colonne
- une ligne
J'essaie en vain avec l'enregistreur de macros et je ne trouve rien dans
le livre de B. Marcelly.
J'arrive bien à sélectionner une zone, mais pas une ligne ou une colonne
entière
--
Francois GATTO
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
