Dim MaPhrase as string dim MaPhraseAuvergnat as string MaPhrase = "le chien dit chalut au chat chauve." (desole pour le xemple a la con) if Mid$(MaPhrase, Len(MaPhrase), 1) = "." then MaPhraseAuvergnat = Replace(MaPhrase, "ch", "s") msgbox MaPhraseAuvergnat ' Resultat MaPhraseAuvergnat = "le sien dit salut au sat sauve" end if
Msgbox replace$(inputbox(""),"ch","s")
Dim i as long Lentier = inputbox("") For i = 1 to Lentier If Lentier Mod i = 0 then msgbox i Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim i as long dim resultat as string Lentier = inputbox("") resultat = "" For i = 1 to LentierIf Lentier Mod i 0 then resultat resultat & " " & i Next