[Func] Fonction Activer une cellule Excel

Partagez des fonctions et des UDF AutoIt.
Règles du forum
.
Répondre
ltrautoit
Niveau 4
Niveau 4
Messages : 50
Enregistré le : mer. 23 mars 2011 15:19
Status : Hors ligne

[Func] Fonction Activer une cellule Excel

#1

Message par ltrautoit »

Bonjour,

J'ai eu besoin pour un script du boulot de sélectionner (activer) une cellule de la feuille excel active. A partir des fonctions contenues dans l'UDF, je me suis bricolé la fonction suivante :

Code : Tout sélectionner

; #FUNCTION# ====================================================================================================================
; Name...........: _ExcelCellActivate
; Description ...: Activate a cell into the active page.
; Syntax.........: _ExcelCellActivate($oExcel, $sRangeOrRow, $iColumn = 1)
; Parameters ....: $oExcel - An Excel object opened by a preceding call to _ExcelBookOpen() or _ExcelBookNew()
;                  $sRangeOrRow - The range in A1 format, or a row number for R1C1 format
;                  $iColumn - The specified column number for R1C1 format (default = 1)
; Return values .: Success      - Returns 1
;                  Failure      - Returns 0 and sets @error on errors:
;                  @error=1     - Specified object does not exist
;                  @error=2     - Row or column invalid
;                  @extended=0 - Row invalid
;                  @extended=1 - Column invalid
; Author ........: LTR
; Modified.......: 
; Remarks .......: None
; Related .......:
; Link ..........;
; Example .......; Yes
; ===============================================================================================================================
Func _ExcelCellActivate($oExcel, $sRangeOrRow, $iColumn = 1)
    If Not IsObj($oExcel) Then Return SetError(1, 0, 0)
    If Not StringRegExp($sRangeOrRow, "[A-Z,a-z]", 0) Then
        If $sRangeOrRow < 1 Then Return SetError(2, 0, 0)
        If $iColumn < 1 Then Return SetError(2, 1, 0)
        $oExcel.ActiveSheet.Cells($sRangeOrRow, $iColumn).Activate
    Else
        $oExcel.ActiveSheet.Range($sRangeOrRow).Activate
    EndIf
    Return 1
EndFunc   ;==>_ExcelCellActivate
 
En espérant être utile à quelqu'un.

Cordialement.
Avatar du membre
Tlem
Site Admin
Site Admin
Messages : 11773
Enregistré le : ven. 20 juil. 2007 21:00
Localisation : Bordeaux
Status : Hors ligne

Re: [Func] Fonction Activer une cellule Excel

#2

Message par Tlem »

Sujet déplacé dans la bonne section.
Thierry

Rechercher sur le forum ----- Les règles du forum
Le "ça ne marche pas" est une conséquence commune découlant de beaucoup trop de raisons potentielles ...

Une idée ne peut pas appartenir à quelqu'un. (Albert Jacquard) tiré du documentaire "Copié n'est pas volé".
Répondre