Traduction macro VBA excel en macro openoffi
Freddy
-
lami20j Messages postés 21644 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
lami20j Messages postés 21644 Date d'inscription Statut Modérateur, Contributeur sécurité Dernière intervention -
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
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
- Word et excel gratuit - Guide
- Mise en forme conditionnelle excel - Guide
- Si ou excel - Guide
1 réponse
Salut,
essaie ça (j'ai fait seulement la selection de la feuille, je ne me suis pas occupé d' UserForm)
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
