Conseil de connexion

ActiveChart.Shapes.AddTextbox(msoTextOrientationHorizontal, 576.04, 28.25, _

131.44, 31.79).Select

ActiveSheet.Buttons.Add(5487171.75, 269149.5, 1251642, 302925.75).Select

Selection.Characters.Text = "Button 7"

Selection.AutoScaleFont = False

With Selection.Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

'changer nom du bouton

Selection.OnAction = "BackToMenu_Click"

Selection.Characters.Text = "back to menu"

Selection.AutoScaleFont = False

With Selection.Characters(Start:=1, Length:=12).Font

.Name = "Arial"

.FontStyle = "Regular"

.Size = 10

.Strikethrough = False

.Superscript = False

.Subscript = False

.OutlineFont = False

.Shadow = False

.Underline = xlUnderlineStyleNone

.ColorIndex = xlAutomatic

End With

x = Len(ListBox1.Value)

a = InStr(ListBox1.Value, "/") ' retourne la position de "/" à partir de la gauche

b = InStr(ListBox1.Value, " ") ' retourne la position du 2éme ";" à partir du premier trouvé

va = Mid(ListBox1.Value, a + 1, b - a - 1) ' va contient la chaine recherché

vb = Mid(ListBox1.Value, 1, a - 1)

ListBox1.RemoveItem (ListBox1.ListIndex)

ListBox1.AddItem va

ListBox1.AddItem vb

' renvoie la chaine d'avant et d'apres le caractere et les insere dans la liste

'supprime la chaine precedente

Permet de desassembler un doublon d'une liste

Sheets("Incidents").Range("A130").Select

...