Forum OpenOffice LibreOffice NeoOffice

Code : Tout sélectionner

Sub Main
oFeuil = thisComponent.currentController.activeSheet
lignesVides() = oFeuil.columns.GetByName("C").queryEmptyCells.RangeAddresses
For  x = 1 to lignesVides(0).StartRow - 1 
    	cell = oFeuil.GetCellByPosition(2,x)
    	If cell.value > 360 Then
    		cell.value = oFeuil.GetCellByPosition(2,x-1).value
    	end if
    next
End Sub

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, maFeuille as Object, maZone as Object
Dim i as Long
	oDoc = thisComponent
	maFeuille = oDoc.CurrentController.ActiveSheet
	maZone = maFeuille.getCellRangeByName("C2:C54")
	For i = LBound(maZone.DataArray) To UBound(maZone.DataArray)
		If maZone.DataArray(i)(0) > 360 Then
			maZone.getCellByPosition(0,i).Value = maZone.DataArray(i - 1)(0)
		End If	
	Next i
End Sub

Code : Tout sélectionner

REM  *****  BASIC  *****

Sub Main

'Quel est le nombre maximum de cellules dans une feuille de calcul LibreOffice  ?

   ' Le nombre maximum de colonnes est de 1024 (de la colonne A à la colonne AMJ) ;
   ' le nombre maximum de lignes est de 1 048 576 ;
   ' le nombre maximum de cellules dans une feuille est de 1 073 741 824;
   ' le nombre maximum de feuilles dans un classeur est 256.
'ModifierMonTableau(NomFeuille As String,NumCol As Integer,NbLig As Long)
	ModifierMonTableau("Feuille2",3,1048576,360)
	MsgBox "Les valeurs supérieures à 360 ont été substituées dans la colonne C",  0+64, "TRANSFORMATION EFFECTUEE"
End Sub

Sub ModifierMonTableau(NomFeuille As String,NumCol As Integer,NbLig As Long,NombreLimite As Integer)
dim PysClass as object, PysFeuille as object, PysCell as object, PysUpperCell As Object, PysQuery as object, PysEnum as object
dim PysLigEnCours as long, PysColEnCours as integer

'on suppose, comme sur l'exemple que tous les champs du tableau sont remplis
const NbCol = 1
const StartRowNum=1
ColNum=CInt(NumCol)-1	'Nombre naturel de colonnes


PysClass = thiscomponent 'Le classeur courant
PysFeuille = PysClass.sheets.getByname(NomFeuille)'Dans ce classeur accès à une feuille par son nom

for PysLigEnCours  = StartRowNum   to NbLig ' parcours des lignes
      PysCell = PysFeuille.getCellByPosition(ColNum, PysLigEnCours)   'Accès à la cellule
	If PysLigEnCours > 1  Then
		PysUpperCell = PysFeuille.getCellByPosition(ColNum, PysLigEnCours-1)
		
	'traitement à partir de la ligne 2 uniquement
	If Len(PysCell.String)>1 Then      
      'Dans notre cas, 360 est de type variant, pouvant être évalué avec un opérateur mathématique.
      	If CLng(PysCell.String) >=NombreLimite Then
      		PysCell.String = PysUpperCell.String
		End If
     End if
      'on choisit d'abréger le parcours
      If Len(PysCell.String)=0 Then Exit For		
	
	EndIf 
next PysLigEnCours
End Sub