Creer fiche client

ChTi160

XLDnaute Barbatruc

• 20 Décembre 2006

• #16

Re : Creer fiche client

Salut Michel,Pierrot
bonjour le Forum

une autre possibilité

Code:

Sub ajout_clients()
Dim p As Range, ws As Worksheet, MonNom As String
Set p = ActiveCell
MonNom = Mid(p.Value, 1, 10)
 
    For Each ws In Worksheets
        If ws.Name = MonNom Then
           MonNom = InputBox("Donner un nom")
             [COLOR=blue]If MonNom = "" Then Exit Sub
[/COLOR]        End If
    Next ws
      [COLOR=black]Sheets.Add[/COLOR] , Sheets(Worksheets.Count)
ActiveSheet.Name = MonNom
End Sub

Bonne journée

 

Vote positif 0 Vote négatif

M

michelexcel

XLDnaute Occasionnel

• 20 Décembre 2006

• #17

Re : Creer fiche client

Bonjour Forum et Pierrot
Merci pour ton aide. Dès que je pourrai, je vais essayé ta modification. J'ai l'impression que cela va fonctionner. Je te reviens pour le résultat.
Merci beaucoup Pierrot
Amitié
Michel

 

Vote positif 0 Vote négatif

M

michelexcel

XLDnaute Occasionnel

• 21 Décembre 2006

• #18

Re : Creer fiche client

Bonjour Forum et Pierrot;
Super, tout fonctionne très bien exactement comme je voulais. Merci beaucoup.
Comme je ne veux pas me contenter de la réponse sans comprendre, est-ce que tu pourrais me dire à quoi sert le " ," dans ton code :, , , , , ,

Encore une fois Merci pour ton aide.
Michel

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 21 Décembre 2006

• #19

Re : Creer fiche client

Bonjour Michel

Les virgules représentent les séparateurs des différents arguments facultatifs de la méthode lorsqu'ils sont non renseignés.

détails de la syntaxe ci dessous, cf aide vba, fait F1 sur le mot "inputbox" pour plus de tétails.

Syntaxe

expression.InputBox(Prompt, Title, Default, Left, Top, HelpFile, HelpContextId, Type)

Cliquez pour agrandir...

bonne fin de journée
@+

 

Vote positif 0 Vote négatif

M

michelexcel

XLDnaute Occasionnel

• 21 Décembre 2006

• #20

Re : Creer fiche client

Bonjour Pierrot et Jean-Marie,
Ùn gros Merci car ça fonctionne très et correspond à ce que je cherchais. Il n'y a plus de message d'erreur et en plus j'ai copié ce code dans ma documentation pour usage futur.
Encore une fois, Merci beaucoup
Michel

 

Dernière édition: 21 Décembre 2006

Vote positif 0 Vote négatif

M

michelexcel

XLDnaute Occasionnel

• 28 Décembre 2006

• #21

Re : Creer fiche client

Bonsoir Pierrot;
Je me souviens de t'avoir écrit pour te remercier et normalement ce message aurait dû paraitre mais je ne le vois pas.
Donc je réitère mes remerciements pour ton aide et ca fonctionne très bien.
Encore une fois Merci et Bonne Année
Michel

 

Dernière édition: 28 Décembre 2006

Vote positif 0 Vote négatif