Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de
l'InputBox.
Mon problème:
Si je veux Annuler (avant ou après la sélection de la
cellule),
la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ?
ou une autre solution.
Merci pour votre aide
Jipé
'=========================================================
'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152)
'=========================================================
Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _
prompt:="Selectionnez un nom dans la liste", Type:=8)
If Rep = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Name = Rep
If Err <> 0 Then
Err.Clear
With Application
.ScreenUpdating = True
.DisplayAlerts = False
End With
ActiveSheet.Delete
Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _
& vbCrLf
Msg = Msg & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _
& "pas 31 caractères" & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _
& "aucun des caractères suivants :" & vbCrLf
Msg = Msg & " \ / : ? * [ ou ]" & vbCrLf
Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _
& "pas déjà un nom identique" & vbCrLf
Reponse = MsgBox(Msg, , "Saisie invalide")
End If
'Colorie les onglets des élèves.
.Tab.ColorIndex = 36
End With
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
michdenis
Bonjour Quaisako,
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String On Error Resume Next Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
Salutations!
"Quaisako" a écrit dans le message de news: OlY% Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de l'InputBox.
Mon problème: Si je veux Annuler (avant ou après la sélection de la cellule), la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ? ou une autre solution.
Merci pour votre aide Jipé
'======================================================== 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152) '======================================================== Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8) If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
ActiveSheet.Name = Rep If Err <> 0 Then Err.Clear With Application .ScreenUpdating = True .DisplayAlerts = False End With ActiveSheet.Delete Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _ & vbCrLf Msg = Msg & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _ & "pas 31 caractères" & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _ & "aucun des caractères suivants :" & vbCrLf Msg = Msg & " / : ? * [ ou ]" & vbCrLf Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _ & "pas déjà un nom identique" & vbCrLf Reponse = MsgBox(Msg, , "Saisie invalide") End If
'Colorie les onglets des élèves. .Tab.ColorIndex = 36 End With
'Appel du tri des onglets. TriNomsOnglets
Exit Sub
End Sub
Bonjour Quaisako,
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String
On Error Resume Next
Rep = Application.InputBox( _
prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
Salutations!
"Quaisako" <jean_pierre_rome@hotmail.com> a écrit dans le message de news: OlY%23aR4JGHA.3504@TK2MSFTNGP10.phx.gbl...
Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de
l'InputBox.
Mon problème:
Si je veux Annuler (avant ou après la sélection de la
cellule),
la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ?
ou une autre solution.
Merci pour votre aide
Jipé
'======================================================== 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152)
'======================================================== Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _
prompt:="Selectionnez un nom dans la liste", Type:=8)
If Rep = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Name = Rep
If Err <> 0 Then
Err.Clear
With Application
.ScreenUpdating = True
.DisplayAlerts = False
End With
ActiveSheet.Delete
Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _
& vbCrLf
Msg = Msg & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _
& "pas 31 caractères" & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _
& "aucun des caractères suivants :" & vbCrLf
Msg = Msg & " / : ? * [ ou ]" & vbCrLf
Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _
& "pas déjà un nom identique" & vbCrLf
Reponse = MsgBox(Msg, , "Saisie invalide")
End If
'Colorie les onglets des élèves.
.Tab.ColorIndex = 36
End With
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String On Error Resume Next Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
Salutations!
"Quaisako" a écrit dans le message de news: OlY% Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de l'InputBox.
Mon problème: Si je veux Annuler (avant ou après la sélection de la cellule), la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ? ou une autre solution.
Merci pour votre aide Jipé
'======================================================== 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152) '======================================================== Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8) If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
ActiveSheet.Name = Rep If Err <> 0 Then Err.Clear With Application .ScreenUpdating = True .DisplayAlerts = False End With ActiveSheet.Delete Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _ & vbCrLf Msg = Msg & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _ & "pas 31 caractères" & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _ & "aucun des caractères suivants :" & vbCrLf Msg = Msg & " / : ? * [ ou ]" & vbCrLf Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _ & "pas déjà un nom identique" & vbCrLf Reponse = MsgBox(Msg, , "Saisie invalide") End If
'Colorie les onglets des élèves. .Tab.ColorIndex = 36 End With
'Appel du tri des onglets. TriNomsOnglets
Exit Sub
End Sub
Quaisako
Bonjour le Forum, Merci michdenis. Jipé
"michdenis" a écrit dans le message de news: er$
Bonjour Quaisako,
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String On Error Resume Next Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
Salutations!
"Quaisako" a écrit dans le message de news: OlY% Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de l'InputBox.
Mon problème: Si je veux Annuler (avant ou après la sélection de la cellule), la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ? ou une autre solution.
Merci pour votre aide Jipé
'======================================================== > 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152) '======================================================== > Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8) If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
ActiveSheet.Name = Rep If Err <> 0 Then Err.Clear With Application .ScreenUpdating = True .DisplayAlerts = False End With ActiveSheet.Delete Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _ & vbCrLf Msg = Msg & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _ & "pas 31 caractères" & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _ & "aucun des caractères suivants :" & vbCrLf Msg = Msg & " / : ? * [ ou ]" & vbCrLf Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _ & "pas déjà un nom identique" & vbCrLf Reponse = MsgBox(Msg, , "Saisie invalide") End If
'Colorie les onglets des élèves. .Tab.ColorIndex = 36 End With
'Appel du tri des onglets. TriNomsOnglets
Exit Sub
End Sub
Bonjour le Forum,
Merci michdenis.
Jipé
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
er$zfg4JGHA.3732@TK2MSFTNGP10.phx.gbl...
Bonjour Quaisako,
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String
On Error Resume Next
Rep = Application.InputBox( _
prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
Salutations!
"Quaisako" <jean_pierre_rome@hotmail.com> a écrit dans le message de news:
OlY%23aR4JGHA.3504@TK2MSFTNGP10.phx.gbl...
Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de
l'InputBox.
Mon problème:
Si je veux Annuler (avant ou après la sélection de la
cellule),
la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ?
ou une autre solution.
Merci pour votre aide
Jipé
'======================================================== > 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152)
'======================================================== > Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _
prompt:="Selectionnez un nom dans la liste", Type:=8)
If Rep = "" Then Exit Sub
On Error Resume Next
Application.ScreenUpdating = False
ActiveSheet.Name = Rep
If Err <> 0 Then
Err.Clear
With Application
.ScreenUpdating = True
.DisplayAlerts = False
End With
ActiveSheet.Delete
Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _
& vbCrLf
Msg = Msg & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _
& "pas 31 caractères" & vbCrLf
Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _
& "aucun des caractères suivants :" & vbCrLf
Msg = Msg & " / : ? * [ ou ]" & vbCrLf
Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _
& "pas déjà un nom identique" & vbCrLf
Reponse = MsgBox(Msg, , "Saisie invalide")
End If
'Colorie les onglets des élèves.
.Tab.ColorIndex = 36
End With
Essaie en modifiant légèrement le début de ta macro :
Dim Rep As String On Error Resume Next Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8).Value
If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
Salutations!
"Quaisako" a écrit dans le message de news: OlY% Bonsoir le Forum,
Cette procédure se déclenche à partir du click sur un bouton.
Une InputBox s'ouvre et je sélectionne une cellule.
L'adresse de la cellule sélectionnée s'inscrit dans la zone de texte de l'InputBox.
Mon problème: Si je veux Annuler (avant ou après la sélection de la cellule), la procédure se poursuit jusq'à la fin.
Comment coder le bouton Annuler de l'InputBox. ? Où placer ce code ? ou une autre solution.
Merci pour votre aide Jipé
'======================================================== > 'Ajouter une feuille. Frédéric Sigonneau, ChrisV, (N°1152) '======================================================== > Private Sub CommandButton1_Click()
Dim Rep As String
Rep = Application.InputBox( _ prompt:="Selectionnez un nom dans la liste", Type:=8) If Rep = "" Then Exit Sub On Error Resume Next Application.ScreenUpdating = False
ActiveSheet.Name = Rep If Err <> 0 Then Err.Clear With Application .ScreenUpdating = True .DisplayAlerts = False End With ActiveSheet.Delete Msg = "Le nom de feuille que vous avez tapé n'est pas valide !" _ & vbCrLf Msg = Msg & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne dépasse " _ & "pas 31 caractères" & vbCrLf Msg = Msg & "- Vérifiez que le nom de la feuille ne contient " _ & "aucun des caractères suivants :" & vbCrLf Msg = Msg & " / : ? * [ ou ]" & vbCrLf Msg = Msg & "- Vérifiez qu'une feuille du classeur ne possède " _ & "pas déjà un nom identique" & vbCrLf Reponse = MsgBox(Msg, , "Saisie invalide") End If
'Colorie les onglets des élèves. .Tab.ColorIndex = 36 End With
