code VBA pour onglet en doublon Résolu/Fermé

Question

Bonjour,
  voici mon petit probleme de code  vba
  j'ai crée le code suivant qui renomme  l'onglet 
   private...............
  if range("a1")="" then exit sub
  activesheet. name = range("a1"). text     (text c'est la date)
  end sub
  comme il s'agit de main courante et , qu'il peut y en avoir lplusieurs le meme jour j'ai pensé à inter caler une ligne qui permettrai de signaler l'erreur par un (msg box) qui proposerai de modifier la saisie  ;par exmple
 feuille 1 renommée en 01/01/2010
 feuille2 pas de chance ,elle tombe à la meme date donc msgbox qui propose " cette date est deja utilisée je vous propose  01/01/2010  2   puis ok  
  si par hasard il y en a 3  => 01/01/2010  3   et ainsi de suite
 deja merci

Gord21 · Answer

Où est la question ?
Personnellement, je n'afficherais pas de MsgBox : s'il y a 50 mains courantes à une date donnée, j'aurais des craintes pour les nerfs de l'utilisateur ; j'utiliserais un incrément automatique.

pijaku · Answer

Salut,
Tu boucles sur toutes le feuilles du classeur en incrémentant une variable compteur lorsque VB trouve la valeur en D6 :

Dim ws As Worksheet
Dim cpt As Integer
Dim valeur As String
valeur = ActiveSheet.Range("D6").Value
For Each ws In ThisWorkbook.Worksheets
If ws.Range("D6") = valeur Then
cpt = cpt + 1
End If
Next
If cpt = 1 then
ActiveSheet.Name = Range("D6").Text
Else
ActiveSheet.Name = Range("D6").Text & " " & cpt
End If

Code VBA pour onglet en doublon

2 réponses

Discussions similaires