je serais reconnaissant a la personne qui pourrait m'aider a
solutionner le probleme suivant:
J'aimerais afficher sur Excel, un commentaire en bas de page (pied de
page) mais pas sur toutes les pages. Donc seulement les pages qui
rempliraient un certain critere.
Exemple: supposons qu'on ait une liste de noms, et que certains noms
pour une raison quelconque soient suivis par une asterisque. C'est
seulement la page qui contiendrait au-moins un nom suivi d'une
asterisque qui comporterait un commentaire en pied de page, sinon si
la page ne contient aucun nom suivi d'une asterisque, cette page ne
contiendrait pas de pied de page.
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
garnote
Si ta liste de noms apparaît sur chaque feuille dans la plage A1:D1, cette macro «expérimentale» devrait faire :
Sub Pieds() For i = 1 To Worksheets.Count For j = 1 To 4 If Right(Worksheets(i).Cells(j, 1), 1) = "*" Then s = s + 1 Next j If s > 0 Then Worksheets(i).PageSetup.CenterFooter = "Pied de page" Else Worksheets(i).PageSetup.CenterFooter = "" End If s = 0 Next End Sub
Serge
"Tom" a écrit dans le message de news:
Bonjour
je serais reconnaissant a la personne qui pourrait m'aider a solutionner le probleme suivant: J'aimerais afficher sur Excel, un commentaire en bas de page (pied de page) mais pas sur toutes les pages. Donc seulement les pages qui rempliraient un certain critere.
Exemple: supposons qu'on ait une liste de noms, et que certains noms pour une raison quelconque soient suivis par une asterisque. C'est seulement la page qui contiendrait au-moins un nom suivi d'une asterisque qui comporterait un commentaire en pied de page, sinon si la page ne contient aucun nom suivi d'une asterisque, cette page ne contiendrait pas de pied de page.
comment proceder ?
Merci beaucoup pour tout conseil. Tom
Si ta liste de noms apparaît sur chaque feuille
dans la plage A1:D1, cette macro «expérimentale»
devrait faire :
Sub Pieds()
For i = 1 To Worksheets.Count
For j = 1 To 4
If Right(Worksheets(i).Cells(j, 1), 1) = "*" Then s = s + 1
Next j
If s > 0 Then
Worksheets(i).PageSetup.CenterFooter = "Pied de page"
Else
Worksheets(i).PageSetup.CenterFooter = ""
End If
s = 0
Next
End Sub
Serge
"Tom" <TWayne3@excite.com> a écrit dans le message de news:
4e49ee3c.0309171129.4f3dc1c@posting.google.com...
Bonjour
je serais reconnaissant a la personne qui pourrait m'aider a
solutionner le probleme suivant:
J'aimerais afficher sur Excel, un commentaire en bas de page (pied de
page) mais pas sur toutes les pages. Donc seulement les pages qui
rempliraient un certain critere.
Exemple: supposons qu'on ait une liste de noms, et que certains noms
pour une raison quelconque soient suivis par une asterisque. C'est
seulement la page qui contiendrait au-moins un nom suivi d'une
asterisque qui comporterait un commentaire en pied de page, sinon si
la page ne contient aucun nom suivi d'une asterisque, cette page ne
contiendrait pas de pied de page.
Si ta liste de noms apparaît sur chaque feuille dans la plage A1:D1, cette macro «expérimentale» devrait faire :
Sub Pieds() For i = 1 To Worksheets.Count For j = 1 To 4 If Right(Worksheets(i).Cells(j, 1), 1) = "*" Then s = s + 1 Next j If s > 0 Then Worksheets(i).PageSetup.CenterFooter = "Pied de page" Else Worksheets(i).PageSetup.CenterFooter = "" End If s = 0 Next End Sub
Serge
"Tom" a écrit dans le message de news:
Bonjour
je serais reconnaissant a la personne qui pourrait m'aider a solutionner le probleme suivant: J'aimerais afficher sur Excel, un commentaire en bas de page (pied de page) mais pas sur toutes les pages. Donc seulement les pages qui rempliraient un certain critere.
Exemple: supposons qu'on ait une liste de noms, et que certains noms pour une raison quelconque soient suivis par une asterisque. C'est seulement la page qui contiendrait au-moins un nom suivi d'une asterisque qui comporterait un commentaire en pied de page, sinon si la page ne contient aucun nom suivi d'une asterisque, cette page ne contiendrait pas de pied de page.