traduction macro VBA excel en macro openoffi Fermé

Question

Bonjour, j'ai fait une macro VBA sous excel, j'aimerais la traduire en langage d'openOffice.orgBasic mais les langages sont différents. Est-ce que quelqu'un peut m'aider SVP?
Macro VBA à traduire:

Sub ChercherFeuille()
Dim vFeuillecherchée As Worksheet
Dim vNomFeuille As String
Dim vDate As Date
Dim vNuméro As Single

vDate = Date
vNomFeuille = InputBox("Entrer le numéro de la feuille." & " Nous sommes le " & vDate)
For Each vFeuillecherchée In Worksheets
If vFeuillecherchée.Name = vNomFeuille Then
vFeuillecherchée.Activate
End If
Next
vNomFeuille = InputBox("Confirmez l'utilisation de la feuille" & vNomFeuille & " ou modifiez le numéro.")
For Each vFeuillecherchée In Worksheets
If vFeuillecherchée.Name = vNomFeuille Then
vFeuillecherchée.Activate
End If
Next
UserForm2.Show
 
 End Sub
End Sub

lami20j · Answer

Salut,

essaie ça (j'ai fait seulement la selection de la feuille, je ne me suis pas occupé d' UserForm)sub Main
 ChercherFeuille
end sub

Sub ChercherFeuille()

dim Classeur as Object
Dim vFeuillecherchee As Object

Dim vNomFeuille As String, vNomFeuille_ as String
Dim vDate As Date
Dim vNumero As Single
Dim nbFeuille as Integer

Classeur = thisComponent

vDate = Date
vNomFeuille = InputBox("Entrer le numéro de la feuille." & _
                       " Nous sommes le " & vDate)

  For nbFeuille = 0 To Classeur.Sheets.Count
    vFeuillecherchee = Classeur.Sheets(nbFeuille)
    vNomFeuille_ = InputBox("Confirmez l'utilisation de la feuille " & _
	                    vNomFeuille & " ou modifiez le numéro.")
		
    if vNomFeuille_ = vNomFeuille Then
      Classeur.currentController.activeSheet = _
         Classeur.Sheets.getByName(vNomFeuille_)
    else
      msgbox("La feuille : " & vNomFeuille & _
             " n'est pas selectionée",0,"SELECTION")
    end if
  Exit For
  Next

End Sub

Traduction macro VBA excel en macro openoffi

1 réponse

Discussions similaires