Contenu récent par riton00

Bonjour Voir cet essai Slts

Bonjour, Autre essai avec un UserForm une fois lancé va rester afficher dans toute les feuilles Slts

Un truc comme ça peut-être Sub TrouverCellulesVerrouillees() Dim cell As Range For Each cell In ActiveSheet.UsedRange If cell.Locked = True Then MsgBox "Cellule verrouillée trouvée : " & cell.Address End If Next cell End Sub Slts

Bonsoir, A tester dans la MFC =ABS(F9)<0.0000000001 Slts

Bonjour, Peut-être comme cela! Slts

Bonjour, avec un code VBA de job75 slts

Bonjour, Autre essai =ARRONDI(B3;0)+2 Slts

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