Case a cocher avec cellule fusionée

Bonjour,

exemple case a cocher sur click droit souris: feuil1

https://www.cjoint.com/c/CEvjmK6AzAs

Bonjour,

interseption Worksheet_SelectionChange ne marche pas sur cellules fusionnees. Par contre Worksheet_BeforeRightClick marche. A vous de voir

Slt tu me conseille de changer ma ligne de commande ok

Tu as pas un code complet a tout a hazard.

Saurait tu par hazard quel code utilise pour numerote page style 1/2 en foncyion du nombre d.impression.
Merci d.avance

je te remercie pour ce code je l'ai modifie pour des symboles qui me plaisait mieux.

J'aimerai aussi toujours avec une cellules fusionnées, pouvoir mettre en automatique la taille de la police existe t'il macro pour sa.

Et est ce que tu sais pour la numerotation de page

Je te remercie par avance et deja un grand merci pour ton aide

Bonjour,

numerotation page: excel 2007 et plus https://www.cjoint.com/c/CEwhDJhtsaC

pour 2003 sensiblement pareil, c'est aussi dans mise en page

taille police cellules fusionnees: exemple fait avec l'enregistreur de macro (pensez a cet enregistreur de macro)

Sub Macro1()
'
' Macro1 Macro
'
'cellules A3 et B3 fusionnees
Range("A3:B3").Select
With Selection.Font
.Name = "Arial Rounded MT Bold"
.Size = 26
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ThemeColor = xlThemeColorLight1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
.Bold = False
End With
End Sub

bonne suite

ok je te remercie
pour la numerotation j'aimerais sa dans une cellule

et pour la taille de la cellule j'aimerais que quand j'ecris un petit mot la taille de police s'agrandisse en fonction de ma cellule et que inversement ca ajuste la taille lorque c'est trop grand.
Actuellement j'utilise la fonction ajuste dans excel mais sa me convien tpas trop.

Re,

numero page dans cellules:https://www.developpez.net/forums/d447585/logiciels/microsoft-office/excel/insertion-n-page-cellule/

Actuellement j'utilise la fonction ajuste dans excel mais sa me convien tpas trop. a ce train la vous allez reprogrammer toutes les fonctions d'excel!!!!!

je te remercie de nouveauce code laz pour la numerotation je l'avais trouve.

Je vais essaye de mieux m'explique:

j'ai creer une macro pour imprime ( avec un bouton) le nombre de page selon le nombre qu'on rentre dans une cellule. J'aimerais dans l'ideal qu'une page s'imprime normalement( sans rien car j'ai besoin d'une feuille puor classer dans archive et les autre que je mert pour identifie des pallete)
et sur les autres il y a une numerotation de page style 1/2, 2/2

Si tu veux je t'envoi mon fichier pour mieu comprendre, mais il faut m'explique.

d'habitude j'arrive en m'en sortir dans la programation en regardant sur le net mais la j'ai vraiment rien pige pour le code vga.

Bonjour,

pour mettre un fichier (sans donnees confidentielles) a disposition, click sur le lien suivant https://www.cjoint.com/
Ne pas oublier de copier/coller le lien cree dans le prochain message

https://www.cjoint.com/c/CEwusPMf5Tx

en te remerciant de ton aide. j'apprecie vraiment du temps que tu passe pour un inconnu.

du coup je repose tous me eespor sur toi

Bonjour,

regardez si cela vous convient: j'ai change la cellule de saisie nombre de palette (voir commentaire cellules)

https://www.cjoint.com/c/CExjTqICuSI

adaptez a votre besoin

je te remercie enormeemt, j'ai modifie a ma convenance je te remercie encore.

ps un dernier truc il doit bien existe un code pour active la macro automaitquement

merci encore

Bonjour,

un code pour active la macro automaitquement detaillez le besoin svp

slt
je te remercie encore une fois le programme marche tres bien apes un mois d'utilisation. juste j'aimerais si possible c'est lorque je clique sur imprimer tout ce que j'ai ecrit ou cliquez s'efface
merci encore pour ton aide

Bonjour,

code a mettre juste avant le End Sub du code pour l'impression.

'RAZ des champs saisies et coches
Range("J40:J42,J37:J39,J34:J36,J31:J33,J28:J30,J25:J27,J22:J24").ClearContents
Range("F13,H13,F15:H16,F18:H19,C24:C26,E24:E26,C28:C30,C32:C34").ClearContents
Range("A42:E43").ClearContents

Bonne suite