Clic-droit sur l'onglet de ton choix, 'Visualiser le code', puis insère le code suivant :
Private Sub Worksheet_Activate() [A1:IV65535] = "Bonjour !!!" End Sub
reviens à ton classeur Excel, Sélectionne un autre onglet, puis reviens sur celui-ci
De rien
Rai
Comment je fais pour faire exécuter une macro-commande lorsque je clique sur l'onglet en question?
Merci
Érico de Montréal
anomymousA
bonjour,
le click sur l'onglet lui-même ne déclenche aucun évènement. Par contre , il peut y avoir des evenements déclenchés par certains actes sur la feuille, donc sur les cellules qui appartiennent à l'onglet. que souhaites-tu faire ?
A+
Comment je fais pour faire exécuter une macro-commande lorsque je clique sur l'onglet en question?
Merci
Érico de Montréal
bonjour,
le click sur l'onglet lui-même ne déclenche aucun évènement. Par contre , il
peut y avoir des evenements déclenchés par certains actes sur la feuille,
donc sur les cellules qui appartiennent à l'onglet.
que souhaites-tu faire ?
A+
Comment je fais pour faire exécuter une macro-commande lorsque je clique sur
l'onglet en question?
le click sur l'onglet lui-même ne déclenche aucun évènement. Par contre , il peut y avoir des evenements déclenchés par certains actes sur la feuille, donc sur les cellules qui appartiennent à l'onglet. que souhaites-tu faire ?
A+
Comment je fais pour faire exécuter une macro-commande lorsque je clique sur l'onglet en question?
Merci
Érico de Montréal
Clément Marcotte
Pour moi, ton bazar de Mozilla t'a coupé Érico
"isabelle" a écrit dans le message de news:
bonjour rico,
click droit sur l'onglet et s lectionne "Visualiser le code" place les lignes de commande dans cette macro.
Private Sub Worksheet_Activate() 'ta macro End Sub
isabelle
Comment je fais pour faire excuter une macro-commande lorsque je clique sur
l'onglet en question?
Merci
rico de Montral
Pour moi, ton bazar de Mozilla t'a coupé Érico
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de
news:41FFAC71.F8C42E51@videotron.ca...
bonjour rico,
click droit sur l'onglet et s lectionne "Visualiser le code" place
les lignes de commande dans cette macro.
Private Sub Worksheet_Activate()
'ta macro
End Sub
isabelle
Comment je fais pour faire excuter une macro-commande lorsque je
clique sur
click droit sur l'onglet et s lectionne "Visualiser le code" place les lignes de commande dans cette macro.
Private Sub Worksheet_Activate() 'ta macro End Sub
isabelle
Comment je fais pour faire excuter une macro-commande lorsque je clique sur
l'onglet en question?
Merci
rico de Montral
Érico
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate() 'ta macro End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()" Pas moyen de lui dire d'aller en bas comme "goto" le voici
Private Sub Worksheet_Activate() 'Afficher Rows("14:768").Select Selection.EntireRow.Hidden = False Range("E14").Select
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i End Sub
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate()
'ta macro
End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()"
Pas moyen de lui dire d'aller en bas comme "goto"
le voici
Private Sub Worksheet_Activate()
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
End Sub
'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
Private Sub Worksheet_Activate() 'ta macro End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()" Pas moyen de lui dire d'aller en bas comme "goto" le voici
Private Sub Worksheet_Activate() 'Afficher Rows("14:768").Select Selection.EntireRow.Hidden = False Range("E14").Select
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i End Sub
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i
isabelle
Érico, si la macro est mit dans un module standard,
Private Sub Worksheet_Activate() masquesi End Sub
isabelle
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate() 'ta macro End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()" Pas moyen de lui dire d'aller en bas comme "goto" le voici
Private Sub Worksheet_Activate() 'Afficher Rows("14:768").Select Selection.EntireRow.Hidden = False Range("E14").Select
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i End Sub
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i
Érico, si la macro est mit dans un module standard,
Private Sub Worksheet_Activate()
masquesi
End Sub
isabelle
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate()
'ta macro
End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()"
Pas moyen de lui dire d'aller en bas comme "goto"
le voici
Private Sub Worksheet_Activate()
'Afficher
Rows("14:768").Select
Selection.EntireRow.Hidden = False
Range("E14").Select
'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
End Sub
'Masquer
For i = 14 To 213 Step 4
If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True
End If
Next i
Érico, si la macro est mit dans un module standard,
Private Sub Worksheet_Activate() masquesi End Sub
isabelle
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate() 'ta macro End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()" Pas moyen de lui dire d'aller en bas comme "goto" le voici
Private Sub Worksheet_Activate() 'Afficher Rows("14:768").Select Selection.EntireRow.Hidden = False Range("E14").Select
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i End Sub
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i
Érico
Wowww, ça fonctionné.
Merci
"isabelle" a écrit dans le message de news:
Érico, si la macro est mit dans un module standard,
Private Sub Worksheet_Activate() masquesi End Sub
isabelle
Je l'ai trouvé, ça fonctionné.
j'ai copié ma macro dans
Private Sub Worksheet_Activate() 'ta macro End Sub
Sauf que ma macro se répête en bas et son nom est "Sub masquesi()" Pas moyen de lui dire d'aller en bas comme "goto" le voici
Private Sub Worksheet_Activate() 'Afficher Rows("14:768").Select Selection.EntireRow.Hidden = False Range("E14").Select
'Masquer For i = 14 To 213 Step 4 If Range("G" & i) = " " Or Range("G" & i) = 0 Or Range("G" & i) = "R" Then
Range("G" & i, "G" & i + 3).EntireRow.Hidden = True End If Next i End Sub
