UDF > Excel >

_Excel_RangeDelete

Supprime une ou plusieurs cellules, lignes ou colonnes de la feuille de calcul sp�cifi�e

#include <Excel.au3>
_Excel_RangeDelete ( $oWorksheet, $vRange [, $iShift = Default [, $iEntireRowCol = Default]] )

Param�tres

$oWorksheet Objet feuille de calcul Excel
$vRange Plage qui peut �tre un objet plage, une plage au format $xlA1 (par exemple "A1:B2","1:2" ( lignes 1 � 2), "D:G" (colonnes D � G ), etc.
$iShift [optionnel] Sp�cifie la fa�on de d�placer les cellules. Peut �tre xlShiftToLeft ou xlShiftUp de l'�num�ration XlDeleteShiftDirection.
    Si la valeur est Default, Excel d�cide en fonction de la forme de la plage (par d�faut = mot-cl� Default)
$iEntireRowCol [optionnel] Si la valeur est 1, la ligne enti�re est supprim�e, si elle est 2, toute la colonne est supprim�e (par d�faut = mot-cl� Default = uniquement la plage sp�cifi�e est supprim�e)

Valeur de retour

Succ�s: Retourne 1.
�chec: Retourne 0 et d�finit @error <> 0.
@error: 1 - $oWorksheet n'est pas un objet ou n'est pas un objet feuille de calcul
2 - $vRange n'est pas une plage valide. @extended contient le code d'erreur COM
3 - Une erreur s'est produite lors de la suppression de la plage. @extended contient le code d'erreur COM

Exemples

Exemple 1

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Supprime une plage de 3 lignes et 2 colonnes sur la feuille active
; et d�cale les cellules vers le haut.
; *****************************************************************************
Local $sRange = "J5:K7"
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple 1", "Suppression de cellules " & $sRange & ".")
_Excel_RangeDelete($oWorkbook.ActiveSheet, $sRange, $xlShiftUp)
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple 1", "Erreur lors de la suppression des cellules." & @CRLF & "@error = " & @error & ", @extended = " & @extended)

Exemple 2

#include <Excel.au3>
#include <MsgBoxConstants.au3>

; Cr�e un objet Excel et ouvre un classeur exemple
Local $oExcel = _Excel_Open()
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple", "Erreur lors de la cr�ation de l'objet Excel." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
Local $oWorkbook = _Excel_BookOpen($oExcel, @ScriptDir & "\Extras\_Excel1.xls")
If @error Then
    MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple", "Erreur lors de l'ouverture du classeur '" & @ScriptDir & "\Extras\_Excel1.xls'." & @CRLF & "@error = " & @error & ", @extended = " & @extended)
    _Excel_Close($oExcel)
    Exit
EndIf

; *****************************************************************************
; Supprime 2 lignes  (1 et 2) sur la feuille 3
; *****************************************************************************
$oWorkbook.Worksheets(3).Activate
MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple 2", "Suppression des lignes 1 et 2 sur la feuille 3.")
_Excel_RangeDelete($oWorkbook.Worksheets(3), "1:2")
If @error Then Exit MsgBox($MB_SYSTEMMODAL, "UDF Excel: _Excel_RangeDelete-Exemple 2", "Erreur lors de la suppression des lignes." & @CRLF & "@error = " & @error & ", @extended = " & @extended)