Bonsoir Isabelle C'est quoi ton "err" ? Je lui trouve un drôle d'air ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : keme2l$uj4$
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et sélectionne "Visualiser le code" et coller (ctrl+c).
Private Sub Worksheet_Activate() On Error Resume Next ActiveSheet.Name = Range("E6").Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
Bonjour
je voudrait que le nom de mon onglet soit le même que la cellule E6
comment faire
Merci
isabelle
salut Jacques,
mais non, test ceci tu verras
Sub UtilisationInstructionResume() Dim i As Integer, j As Integer On Error GoTo ErrorHandler 'Par défaut i=0 (et va provoquer une erreur) j = 5 / i MsgBox j Exit Sub ErrorHandler: MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description If i = 0 Then i = 1 'Reprend l'exécution au niveau de la ligne à l'origine de l'erreur. Resume End Sub
isabelle
Le 2013-02-03 14:42, Jacquouille a écrit :
Bonsoir Isabelle C'est quoi ton "err" ? Je lui trouve un drôle d'air ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : keme2l$uj4$
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et sélectionne "Visualiser le code" et coller (ctrl+c).
Private Sub Worksheet_Activate() On Error Resume Next ActiveSheet.Name = Range("E6").Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
Bonjour
je voudrait que le nom de mon onglet soit le même que la cellule E6
comment faire
Merci
salut Jacques,
mais non, test ceci tu verras
Sub UtilisationInstructionResume()
Dim i As Integer, j As Integer
On Error GoTo ErrorHandler
'Par défaut i=0 (et va provoquer une erreur)
j = 5 / i
MsgBox j
Exit Sub
ErrorHandler:
MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description
If i = 0 Then i = 1
'Reprend l'exécution au niveau de la ligne à l'origine de l'erreur.
Resume
End Sub
isabelle
Le 2013-02-03 14:42, Jacquouille a écrit :
Bonsoir Isabelle
C'est quoi ton "err" ?
Je lui trouve un drôle d'air ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme."
"isabelle" a écrit dans le message de groupe de discussion :
keme2l$uj4$1@speranza.aioe.org...
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et
sélectionne "Visualiser le code"
et coller (ctrl+c).
Private Sub Worksheet_Activate()
On Error Resume Next
ActiveSheet.Name = Range("E6").Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
Bonjour
je voudrait que le nom de mon onglet soit le même que la cellule E6
Sub UtilisationInstructionResume() Dim i As Integer, j As Integer On Error GoTo ErrorHandler 'Par défaut i=0 (et va provoquer une erreur) j = 5 / i MsgBox j Exit Sub ErrorHandler: MsgBox "Erreur: " & Err.Number & vbCrLf & Err.Description If i = 0 Then i = 1 'Reprend l'exécution au niveau de la ligne à l'origine de l'erreur. Resume End Sub
isabelle
Le 2013-02-03 14:42, Jacquouille a écrit :
Bonsoir Isabelle C'est quoi ton "err" ? Je lui trouve un drôle d'air ....
Jacquouille
" Le vin est au repas ce que le parfum est à la femme." "isabelle" a écrit dans le message de groupe de discussion : keme2l$uj4$
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et sélectionne "Visualiser le code" et coller (ctrl+c).
Private Sub Worksheet_Activate() On Error Resume Next ActiveSheet.Name = Range("E6").Value If Err.Number <> 0 Then Err.Clear End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
Bonjour
je voudrait que le nom de mon onglet soit le même que la cellule E6
comment faire
Merci
pellet15
Merci, ça répond bien
Le dimanche 3 février 2013 14:33:46 UTC-5, isabelle a écrit :
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et
sélectionne "Visualiser le code"
et coller (ctrl+c).
Private Sub Worksheet_Activate()
On Error Resume Next
ActiveSheet.Name = Range("E6").Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
> Bonjour
>
> je voudrait que le nom de mon onglet soit le même que la cellule E6
>
> comment faire
>
> Merci
>
Merci, ça répond bien
Le dimanche 3 février 2013 14:33:46 UTC-5, isabelle a écrit :
bonjour,
copie la macro suivante, fait un clic droit sur cette onglet et
sélectionne "Visualiser le code"
et coller (ctrl+c).
Private Sub Worksheet_Activate()
On Error Resume Next
ActiveSheet.Name = Range("E6").Value
If Err.Number <> 0 Then Err.Clear
End Sub
isabelle
Le 2013-02-03 11:58, pellet15 a écrit :
> Bonjour
>
> je voudrait que le nom de mon onglet soit le même que la cellule E6