Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

OpenOffice & LibreOffice Discussion :

Affichage des valeurs d'une plage de cellules


Sujet :

OpenOffice & LibreOffice

  1. #1
    Nouveau membre du Club
    Affichage des valeurs d'une plage de cellules
    Bonsoir,
    Dans le cadre d'aide à la résolution de Sudoku, j'ai besoin de connaitre la valeur de cellules d'une plage de cellules.
    J'ai récupéré un bout de code qui semble correspondre à ma recherche sur ce site :
    https://www.beaussier.com/sections/v...pic.php?t=1563
    Mais à l’exécution j'ai cette erreur :
    Erreur d'exécution BASIC.Variable d'objet non définie.
    Merci de m'aider à corriger ce code.



    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub Test()
     
    oDoc = ThisComponent ' Le classeur
    oFeuil = oDoc.Sheets(0) ' La 1ere feuille qui est indexée à 0
    oPlage = oFeuil.getCellRangeByName("A1<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />3")
    oSelect = oPlage.Data
    print oSelect
    End Sub

  2. #2
    Membre habitué
    Affichage des valeurs d'une plage de cellules
    Bonjour,
    Au vu de ton code et à condition que tu as tout joint. Il apparait que tes variables ne sont pas déclarées.
    Cela devrait se présenter comme suit :

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    Sub Test()
    Dim oDoc As Object, oFeuil As Object, oPlage As Object, oSelect As Object
    oDoc = ThisComponent ' Le classeur
    oFeuil = oDoc.Sheets(0) ' La 1ere feuille qui est indexée à 0
    oPlage = oFeuil.getCellRangeByName("A1<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />3")
    oSelect = oPlage.Data
    print oSelect
    End Sub


    Cordialement
    Libre Office Version: 6.4.6.2 (x64)
    Windows 10

  3. #3
    Nouveau membre du Club
    Résolu Affichage des valeurs d'une plage de cellules
    Bonjour,

    Merci de vouloir m'aider mais ca ne marche pas.
    Entre temps j'ai pu avoir la solution sur un autre site.
    Je la donne pour ceux qui seraient interressés.

    Code :Sélectionner tout -Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    Sub Test
     
    Dim oDoc As Object, oFeuil As Object, oPlage As Object, oSelect As Object
    Dim x As Long, y As Long
     
    oDoc = ThisComponent ' Le classeur
    oFeuil = oDoc.Sheets(0) ' La 1ere feuille qui est indexée à 0
    oPlage = oFeuil.getCellRangeByName("A1<img src="images/smilies/icon_biggrin.gif" border="0" alt="" title=":D" class="inlineimg" />3")
    oSelect = oPlage.Data
    'xray oSelect
    For y = LBound(oSelect) to UBound(oSelect)
    For x = LBound(oSelect(y)) to UBound(oSelect(y))
      msgbox("cellule de coordonnées (" & x & ";" & y & ") = " & oSelect(y)(x))
    Next x
    Next y
    End Sub

###raw>template_hook.ano_emploi###