Macro excel
bonjour le forum,
j'ai un programme qui demande un nom de la feuille et teste si le nom n"existe pas sinon redemande un autre nom;mais ça marche une fois sur 3 en plus ça donne une erreur que le nom existe déja !!
""Sub test()
Dim nom As String
Dim Sh As Variant
nom = InputBox("Donner le Nom de la feuil... ?", "Titre") '
Do While nom = ""
nom = InputBox("Donner un nom pour pousuivre!!")
Loop
For Each Sh In Worksheets
If Sh.Name = nom Then
MsgBox "La feuille " & nom & " existe"
MsgBox "Donner un autre nom pour pousuivre."
nom = InputBox("nom...!!!")
End If
ActiveSheet.Select
ActiveSheet.Name = nom
Next""
merci d'avance
j'ai un programme qui demande un nom de la feuille et teste si le nom n"existe pas sinon redemande un autre nom;mais ça marche une fois sur 3 en plus ça donne une erreur que le nom existe déja !!
""Sub test()
Dim nom As String
Dim Sh As Variant
nom = InputBox("Donner le Nom de la feuil... ?", "Titre") '
Do While nom = ""
nom = InputBox("Donner un nom pour pousuivre!!")
Loop
For Each Sh In Worksheets
If Sh.Name = nom Then
MsgBox "La feuille " & nom & " existe"
MsgBox "Donner un autre nom pour pousuivre."
nom = InputBox("nom...!!!")
End If
ActiveSheet.Select
ActiveSheet.Name = nom
Next""
merci d'avance
3 réponses
-
Bonjour Larouche, bonjour le forum,
Le Next était mal placé... J'ai aussi modifié la boîte d'entrée nom pour que tu puisses en sortir, si tu changes d'avis, avec le bouton Annuler.
Le code :
Sub test() Dim nom As Variant Dim Sh As Object ici: nom = Application.InputBox("Donner le Nom de l'onglet... ?", "Titre", Type:=2) If nom = "" Then GoTo ici If nom = False Then Exit Sub For Each Sh In Worksheets If Sh.Name = nom Then MsgBox "L'onglet " & nom & " existe déjà !" MsgBox "Donner un autre nom pour pousuivre." GoTo ici End If Next Sh ActiveSheet.Select ActiveSheet.Name = nom End Sub
-
bonjour ThauTheme,
merci beaucoup pour t'a réponse c'est parfait...
je profite pour te poser une autre question si tu permet,
j'ai une formule qui me calcul le maximum dans une colonne H et je voudrai récupérer la valeur qui est dans la meme ligne que le max, colonne I
le problème et que la position du max change en fonction des données, la position des colonne et toujours pareille (H,I)
voici le code:
(le maximum est calculé puis copier dans la cellule "O4" )
Range("O4").Select
ActiveCell.FormulaR1C1 = "=MAX(R[-2]C[-7]:R[49]C[-7])"
merci d'avance -
Bonsoir Larouche, bonsoir le forum,
D'abord un conseil. Évite les Select inutiles qui ne font que ralentir l'exécution du code. Les lignes :
Range("O4").Select ActiveCell.FormulaR1C1 = "=MAX(R[-2]C[-7]:R[49]C[-7])"
peuvent s'écrire :
Range("O4").FormulaR1C1 = "=MAX(R[-2]C[-7]:R[49]C[-7])"
Esuite, je te propose le code ci-dessous mais qui risque de ne pas être fiable si tu as des ex-æquo dans la valeur Max. En effet la fonction Find va renvoyer la première occurrence trouvée...
Sub Macro1() Dim M As Variant Dim V As Variant Range("O4").FormulaR1C1 = "=MAX(R[-2]C[-7]:R[49]C[-7])" M = Range("O4").Value V = Range("H2:H53").Find(M, , xlValues, xlWhole).Offset(0, 1).Value MsgBox V End Sub
