Options possibles suite à la vérification du nom des onglets

Options possibles suite à la vérification du nom des onglets - VB/VBA/VBS - Programmation

Marsh Posté le 26-05-2015 à 10:34:58    

Bonjour,
 
Je cherche à créer des fiches article (un article par onglet) et à prendre le userform comme interface d'extraction de données.
En cas d'un produit déjà existant (chaque produit doit avoir sa propre référence), j'aimerais qu'un msgbox apparaisse pour inviter l'utilisateur à changer de référence ou aller le modifier via une autre interface et si ce produit n'existe pas déjà, j'aimerais créer un onglet avec le nom de la référence.  
Je n'arrive pas à créer cette structure qui me permettrait de faire les deux. Pouvez-vous m'aider ?
Voilà l'idée...  
 
ActiveWorkbook.Sheets("Template" ).Copy after:=Worksheets(Worksheets.Count) --> pour dupliquer ma page "Template"
ActiveSheet.Name = reference --> pour donner le nom à l'onglet, mais comment insérer mon msgbox en cas d'onglet déjà existant ?
Sheets(reference).Unprotect --> Pour écrire les données sur ma feuille
ActiveSheet.Range("C3" ).Value = reference
ActiveSheet.Range("C4" ).Value = quantite_livree
ActiveSheet.Range("C5" ).Value = quotation_p
 
Merci pour votre aide.


Message édité par mathscorp le 26-05-2015 à 11:15:51
Reply

Marsh Posté le 26-05-2015 à 10:34:58   

Reply

Marsh Posté le 09-06-2015 à 13:53:56    

 
           Bonjour,
 
           pour vérifier si une feuille de calculs existe, utiliser la fonction ExistWorkbookSheet par exemple …
 

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed