Contenu récent par RF13

Bonjour, J'arrive un peu après la bataille, mais comme j'ai testé une modification je la propose ci-dessous (dans une forme un peu plus simple pour les tests) : Sub MasquerLignesZero() Dim Ws As Object, c As Range, feuille As String Application.ScreenUpdating = False feuille =...

Bonjour, Je vous propose les fonctions suivantes. Elles fonctionnent. Sub désactive() ' désactive les lettres de l'alphabet : a..z et A..Z ' soit des codes ASCII : 65 à 90 et 97 à 122 Dim c As String, i As Integer For i = 65 To 90 ' les majuscules c = Chr(i)...