Traduction macro VBA excel en macro openoffi

Freddy -
lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention - 23 déc. 2006 à 15:48

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

A voir également:

Traduction macro VBA excel en macro openoffi
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Mise en forme conditionnelle excel - Guide
Word et excel gratuit - Guide
Google traduction photo - Guide

1 réponse

Réponse 1 / 1

lami20j Messages postés 21331 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention 3 570

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

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Traduction français vers créole guadeloupéen

convertir des chiffres en lettres avec une unique formule

Votre réponse

Discussions similaires