Contenu récent par riton00

Bonsoir, Un truc tout simple à mettre en C3 =B3+(844-842.03) Ou =ARRONDI(B3+(844-842.03);2) Slts

Bonsoir En rajoutant ActiveSheet.Unprotect au début et ActiveSheet.Protect à la fin peut-être Private Sub Worksheet_Change(ByVal Target As Range) ActiveSheet.Unprotect Dim Oldvalue As String Dim Newvalue As String Application.EnableEvents = True On Error GoTo Exitsub If...

Bonjour, Il serait plus simple de joindre un classeur anonymisé et représentatif à l'appui de vos demandes. Slts

Bonjour, Ne pourrais-tu pas mettre un bout de fichier anonymisé à la dispo puisque j'ai recopier le code que tu as fourni au post #19 et chez moi cela n'agit pas sur les colonnes à part bien sûr si dans les cellules tu as une grande longueur de texte. Puisque logiquement cela agit sur la cellule...

Bonsoir, Voir pour la liste unique Slts

Bonsoir Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1:L100,O10,Q6:Q16").Font.Size = 11 'taille de l'écriture normale If Not Intersect(Target, Range("A1:L100,O10,Q6:Q16")) Is Nothing Then Target.Font.Size = 60 'taille de l'écriture cellule sélectionné Columns.AutoFit End...

Bonjour, C'est normal Après avoir fait Alt+F11 tu tombes sur un écran vide sur la partie de gauche tu as Feuil1, Feuil2, Feuil3, etc tu double clic dans la feuille adéquat et là tu pourras de nouveau coller ton code Tiens moi au courant Slts

Bonsoir, Voir le fichier joint peut-être tu comprendras mieux Tiens moi au courant ;) Slts

Bonjour, Voir fichier joint augmentation taille par plage A1:L100, O10, Q6:Q16 Slts

Bonjour Pour toute la feuille de calcul tu peux faire comme cela Private Sub Worksheet_SelectionChange(ByVal Target As Range) Range("A1:XFD1048576").Font.Size = 11 'taille de l'écriture normale If Not Intersect(Target, Range("A1:XFD1048576")) Is Nothing Then Target.Font.Size = 60 'taille de...

Bonsoir, Fonctionne avec les macros activés Tu peux obtenir un agrandissement de la cellule lors de la sélection de celle-ci exemple sur le fichier joint sélectionne D6 ou H6 tu verras un agrandissement de la cellule sélectionné Slts

Bonsoir, Un éclaircissement stp.....tu cherches le nombre de couleurs différentes Ok et ensuite avec le nombre qui s'y trouve dedans il faut en faire quoi? exemple pour la couleur verte........ il y en à 3 OK et ensuite les chiffres qui sont dans ces couleurs il faut? les additionner, les...

Bonjour, Pour supprimer les espaces vide voir cet exemple dans le fichier joint "formule matricielle" Slts

Bonjour, Peut-être avec un classeur représentatif cela permettrait aux intervenants de répondre plus précisément à la question, et aussi à nous éviter de créer un fichier en blanc pour voir si le fonctionnement du besoin est opérationnel. Slts

Bonjour, Voir cet essai si j'ai bien compris Slts