Discussion :

[Adilleroy]

bonjour à tous je voudrais que vous m'expliquer ce programme ,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Dim i As Boolean
i = False
 
While i = False
    If Left(ActiveSheet.Name, 12) = "Données tol " Then
        NomNouvelleTolerie = Mid(ActiveSheet.Name, 13)
 
        a = MsgBox("Le nom que vous avez attribué à cette nouvelle tôlerie dans la base de données PERMA est """ & NomNouvelleTolerie & """." & Chr(13) & "Voulez-vous modifier ce nom ?", vbQuestion + vbYesNo)
 
        If a = vbYes Then
            NomNouvelleTolerie = InputBox("Entrez le nom nom sous lequel vous souhaitez que cette nouvelle tôlerie apparaisse dans le programme PERMA" & Chr(13) & Chr(13) & "19 caractères maximum" & Chr(13) & "Les caractères suivant ne sont pas autorisés : /\:*?][", "Microsoft Excel")
            If NomNouvelleTolerie = "" Then
                Exit Sub
            End If

[Jean-Philippe André]

salut,
l'aide en ligne est particulierement bien renseigne pour ces 3 fonctions.
De plus, un peu de lecture parmi les tutoriaux a ta disposition :
http://heureuxoli.developpez.com/off...ge=page13#13-A

[Didier Gonard]

Bonjour,

vois aussi, si besoin, dans ce tutoriel de Silkyroad :

Manipuler les chaînes de caractères en VB6 et VBA Excel


cordialement,

Didier