Comment transformer une Fonction en sub Macro VBA Fermé

Question

Salut a tous, Forum salut

Configuration: Windows 7 / EI 11.0

Je souhaiterai svp transformer le code VBA excel 2007 ci-dessous en une macro Sub VBA

je vous remercie de votre aide, bonne fin d'après midi a vous

Cdlt Ray

Function Majuscules(ByVal Dossier As String) As Long     Dim Fso As Object, F As Object, Txt As String, Pos As Integer      Set Fso = CreateObject("Scripting.FileSystemObject")     For Each F In Fso.GetFolder(Dossier).Files         If LCase(Right(F.Name, 4)) = ".avi" Then            Txt = F.Name            Pos = InStrRev(Txt, ".")            Txt = UCase(Left(Txt, Pos - 1)) & ".avi"            Name F.Path As Dossier & "\" & Txt         End If     Next F     Set Fso = NothingEnd Function

NHenry · Accepted Answer

Etant donné que la fonction ne retourne rien (il n'y a pas de  "Majuscules=..."), il n'y a qu'à remplacer Function par Sub et virer le As long.

vieuxray · Answer

Salut NHENRY,

Merci pour ta réponse mais autant pour moi, je me suis tromper de code je suis désoler.

Mais ca ne change rien c'est pour faire une sub macro quand même.

le but étant de mettre une MAJUSCULE devant chaque mot d'une liste de vidéos.

encore merci et désolé pour cette erreur, celui ci est le bon.

bonne soirée 
Cdlt Ray


Function Majuscule_Devant_Chaque_Mot(ByVal Dossier As String) As LongDim Fso As Object, F As Object, Txt As String, Pos As Integer, Var As Integer      Set Fso = CreateObject("Scripting.FileSystemObject")    'NombreFichiers = FSO.GetFolder(Dossier).Files.Count        For Each F In Fso.GetFolder(Dossier).Files                If LCase(Right(F.Name, 4)) = ".avi" Then            Txt = F.Name            Pos = InStrRev(Txt, ".")            If Left(Txt, Len(Txt) - 4) = UCase(Left(Txt, Len(Txt) - 4)) Then                Txt = Application.Proper(Left(Txt, Len(Txt) - 4)) & ".avi"            ElseIf Txt = LCase(Txt) Then                Var = UCase(Left(Txt, Pos - 1))                Txt = UCase(Left(Txt, Pos - 1)) & ".avi"            End If            Name F.Path As Dossier & "\" & Txt        End If    Next F    Set Fso = NothingEnd Function

vieuxray · Answer

Salut NHenry, Salut a tous

Merci pour la réponse, j'ai essayer en suivant tes conseils d'adapter ce code mais ca ne fonctionne pas, il marchais bien sur un autre logiciel mais je n'ai plus ce programme et je n'ai pas réussi a modifier ce code pour mon besoin.

le but étant de mettre une MAJUSCULE devant (chaque mot) d'une liste de titre  vidéos.

Liste plage (A1:AA) ce donnerai Ex:
  
le bal des maudits.avi  serait remplacer par >>> Le Bal Des Maudits.avi

Te serait t'il possible svp de modifier le code en macro sub.

Merci pour ton aide, bonne journée.

Cdlt Ray

cs_Le Pivert · Answer

Bonjour,

Une petite recherche sur le net:
Chaine de caractères en vba et tu tombes sur ce site:

 https://silkyroad.developpez.com/VBA/ManipulerChainesCaracteres/#LI-K
 

ce qui donne:

Dim chaine As String
chaine = "le bal des maudits"
MsgBox StrConv(chaine, vbProperCase)

Voilà, il ne te reste plus qu'a faire une boucle sur ta colonne où tu mettras ce code

Recherche:

Boucle sur colonne en vba

vieuxray · Answer

Salut a vous, 

Merci pour vos réponses, malgré mes efforts je n'y arrive pas, je ne comprends trop comment ca marche.

Mon programme est a base de codes trouver ici ou la puis j'arrive a mes débrouiller.

Pour la petite histoire, j'ai une liste de vidéos sur mon disque dur (H:\)
j'ai récupérer cette liste avec un code qui l'affiche dans excel 2007 puis a l'aide d'autres codes trouvés sur le net, j'essais d'adapter pour faire ce dont j'ai besoin.

J'ai lu et fait des essais mais là, c'est compliquer pour moi, 64 ans les neurones galère un peu.

Bon ce n'ai pas grave le but était d'améliorer la lisibilité d'affichage dans excel

Merci tout de même a vous, c'est sympa, je vous souhaite une très bonne après midi.

Cordialement Ray

Comment transformer une Fonction en sub Macro VBA

5 réponses

Discussions similaires