FAQ LibreOffice et Apache OpenOfficeConsultez toutes les FAQ

MsgBox Len("Developpez") 'renvoie 10

1
2
'Renvoie les 3 premiers caractères d'un texte 
MsgBox Left("Developpez", 3) 'renvoie "Dev"

1
2
'Renvoie les 3 derniers caractères d'un texte 
MsgBox Right("Developpez", 3) ' renvoie "pez"

1
2
3
'5 est la position du caractère qui marque le début de la partie à extraire 
'et 2 correspond au nombre de caractères à renvoyer) 
MsgBox Mid("Vendredi", 5, 2) ' renvoie "re"

MsgBox Mid("Vendredi", 5) 'Renvoie "redi"

1
2
'Renvoie la position de la première occurrence d'une chaîne ("e") 
MsgBox InStr("Developpez", "e") 'renvoie 2

MsgBox InStr(1, "Developpez", "e") 'renvoie 2

1
2
3
Dim x As Integer 
x = InStr(1, "Developpez", "e") + 1 
MsgBox InStr(x, "Developpez", "e") 'renvoie 4

1
2
MsgBox InStr(1, "Developpez", "Z", 0) 'renvoie 0 
MsgBox InStr(1, "Developpez", "z", 0) 'renvoie 10

1
2
MsgBox InStr(1, "Developpez", "z", 1) 'renvoie 10 
MsgBox InStr(1, "Developpez", "Z", 1) 'renvoie 10

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub RechercheMultiple	 
  Dim Cible As String, strCellule As String 
  Dim Feuille As Object 
  
  Feuille = ThisComponent.getSheets.getByName("Feuille1") 
  'Récupère le contenu de la cellule A1 
  strCellule = Feuille.getCellRangeByName("A1").getString  
  
  Cible = "engrenage,reducteur,courroie" 
  
  If InStr(Cible, strCellule) = 0 Then 
    MsgBox "Non" 
    Else 
    MsgBox "Oui" 
  End If 
End Sub

1
2
'mimi est transformé en fifi 
MsgBox Join(Split("mimi", "m"), "f")

MsgBox UCase("Developpez")

MsgBox LCase("Developpez")

1
2
3
4
5
6
7
8
9
10
11
12
Dim Chaine As String 
Chaine = " 21ieme siècle" 
MsgBox Val(Chaine) ' renvoie 21 
  
Chaine = " siècle 21" 
MsgBox Val(Chaine) ' renvoie 0 
  
Chaine = "123,456" 
MsgBox Val(Chaine) ' renvoie 123456 
  
Chaine = "123.456" 
MsgBox Val(Chaine) ' renvoie 123,456

MsgBox Trim("  Un essai  ")

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim Tableau(2) As String 
  
Tableau(0) = "Chaine01" 
Tableau(1) = "Chaine02" 
Tableau(2) = "Chaine03" 
  
'Regroupe les chaînes du tableau, séparés par un point-virgule ";" 
MsgBox Join(Tableau, ";") 
  
'Regroupe les chaînes du tableau sans séparateur 
MsgBox Join(Tableau, "") 
  
'Les éléments sont séparés par un espace si l'argument Delimiter n'est 
'pas spécifié. 
MsgBox Join(Tableau) 
  
'Regroupe les chaînes du tableau et ajout d'un saut de ligne 
'entre chaque élément. 
MsgBox Join(Tableau, Chr(10))

1
2
3
4
5
6
7
8
9
10
11
12
13
14
  
Sub ExtraireChaine 
  Dim Tableau() As String 
  Dim i As Integer 
  
  'La fonction Split permet d'extraire les données d'une chaine en fonction 
  'du séparateur spécifié. (Espace dans l'exemple) 
  Tableau = Split("Ma Chaine de caractères", " ")  
  
  'Boucle dans le tableau pour visualiser le résultat 
  For i = LBound(Tableau) To UBound(Tableau) 
    MsgBox Tableau(i) 
  Next i 
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub extraireValeursNumeriquesCellule_V01()  
  Dim i As Integer  
  Dim Cible As String 
  Dim Nombre As Double  
  
  'Définit la cellule A1 dans la 1ere feuille du classeur 
  Cible = ThisComponent.Sheets(0).getCellRangeByName("A1").String 
  
  'Pour que fonction Val puisse reconnaitre les décimales 
  Cible = Join(Split( Cible , ","), ".") 
  'Pour gérer deux nombres qui se suivent  
  Cible = Join(Split( Cible , " "), "x") 
  
  For i = 1 To Len(Cible)  
    If IsNumeric( Mid( Cible, i, 1) ) Then  
      Nombre = Val( Mid( Cible, i, Len( Cible ) - i + 1 ) )  
      MsgBox Nombre 
  
      i = i + Len( Str(Nombre) ) - 1  
    End If  
  Next  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub extraireValeursNumeriquesCellule_V02() 
  'Cette version est utilisable uniquement si chaque élément de la chaine est 
  'séparé par un espace.  
  Dim Tableau() As Variant 
  Dim i As Integer 
  Dim Cible As String 
  
  'Définit la cellule A1 dans la 1ere feuille du classeur 
  Cible = ThisComponent.Sheets(0).getCellRangeByName("A1").String 
  
  Tableau = Split( Cible , " ")  
  
  'Boucle dans le tableau pour visualiser le résultat 
  For i = LBound(Tableau) To UBound(Tableau) 
    'Vérifie si l'élément du tableau est une valeur numériqe 
    If IsNumeric(Tableau(i)) Then MsgBox Tableau(i) 
  Next i 
  
End Sub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Sub Test 
  MsgBox ScinderChaine ("Le club Developpez.com est le principal site d'entraide des développeurs francophones avec jusqu'à 70 000 " & _ 
    "visites par jour. Le club est fréquenté par 800 000 développeurs (développeurs, chefs de projets, DBA,...) tous les mois. Le club" & _ 
    " vous apporte gratuitement une multitude d'avantages : newsletter, magazine, actualités, cours, tutoriels, articles, FAQ's, tests, " & _ 
    "comparatifs, débats, sondages, outils, sources, composants et exemples de codes, les BLOGs des développeurs, et enfin la TV des " & _ 
    "développeurs. Le club est animé bénévolement par tous les membres du club et en particulier par l'équipe de rédaction du club. " & _ 
    "L'inscription est facile, rapide et gratuite : Inscrivez-vous." , 30 ) 
End Sub 
  
  
Function ScinderChaine( DonneesDeBase As String , NbCar As Integer ) 
  Dim Cible As String  
  Dim Resultat As String , Chaine As String 
  Dim i As Integer , X As Integer 
  
  Cible = DonneesDeBase 
  
  For i = 1 To Len(Cible) 
    X = InStr( NbCar , Cible, " " ) 
  
    If X = 0 Then 
      Chaine = Cible 
      Resultat = Resultat & Chaine 
      Exit For 
    End If 
  
    Chaine = Mid(Cible, 1, X) 
    Resultat = Resultat & Chaine & Chr(10) 
    Cible = Mid( Cible, Len(Chaine) + 1 ) 
  Next 
  
  ScinderChaine = Resultat 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub ExempleSwitch 
  'Attention la procédure est sensible aux majuscules et minuscules 
  MsgBox Correspondance( "Jour" ) 
End Sub 
  
Function Correspondance (sName As String) As String 
  On Error GoTo Fin 
  Correspondance = Switch(sName = "Jour", "riri" , sName = "Nuit", "fifi" , sName = "Astreinte", "loulou") 
  Exit Function 
  
  Fin: 
  Correspondance = "Indéterminé" 
End Function

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function NbOc4(Ch As String, Chaine As String, Optional RC As Boolean) As Long 
    Dim codasc As Integer 
    Dim i As Integer 
    Dim iCase As Integer 
    'Initialisation 
    iCase = 0 
    If IsMissing(RC) Then RC=False 
    If RC Then 
        'Nous passons par les codes ASCII 
        For i = 1 To Len(chaine) 
        If Asc(Mid(chaine,i,1))=Asc(Ch) Then iCase = iCase+1 
        Next 
        NbOc4=iCase 
        Else 
        NbOc4 = (Len(Chaine) - Len(Replace(Chaine, Ch, ""))) / Len(Ch) 
    End If 
End Function

1
2
3
4
Sub TestnbOc4CasseSens() 
    MsgBox nbOc4("C","C'est incroyable cette histoire !",True) 
    MsgBox nbOc4("C","C'est incroyable cette histoire !") 
End Sub