Application.DisplayAlerts = True (désactiver la boite de dialogue)

Bonjour !

Je voudrais supprimer la boite de dialogue qui s'ouvre à chaque lancement de la macro par le bouton de cde.

J'ai essayé de placer sans résultat :

Application.DisplayAlerts = False

Code

Application.DisplayAlerts = True

End Sub

Bonjour,

De quelle boite tu parles. Celle-ci ?

Oui,

Alors je pense que tu as une mauvaise interprétation de ton code.

Est-ce que c'est toi qui est à l'origine de ce code?

Est-ce que tu veux que je commente la procédure pour que tu comprennes?

On parle bien de cette procédure, celle qui est liée au bouton. Elle est dans une feuille est non dans le module1.

Private Sub trois_Click()
Dim J As Byte

V = InputBox("Nombres entre lesquels compter les vides :", "Nombre unique", 0)
For J = 2 To 5
    NB = 0
    Set O = Worksheets(J)
    O.Range("B2:B" & O.Range("A" & Rows.Count).End(xlUp).Row).ClearContents
    For I = 3 To O.Range("A" & Rows.Count).End(xlUp).Row
        If O.Range("A" & I) = "" Then
            NB = NB + 1
        ElseIf O.Range("A" & I) = Val(V) Then
            O.Range("B" & I) = NB
            NB = 0
        End If
    Next I
Next J
End Sub

Cordialement

Non ce n'est pas moi qui a codé.

Il convient bien à mon besoin.

Je suis débutant et m'exerce sur ce classeur,

avant d'avoir demandé j'ai fouillé partout et essayer milles choses sans résultat.

j'ai choisi d'évoluer en pratiquant,

je suis preneur de tes explications si je peux les comprendres.

comme tu la vu

il ya 2 codes :

le bouton dans la feuille

la macro dans le module1

j'ai essayé dans les deux code de placer

Application.DisplayAlerts=False devant

et True avant sub end

C'est très bien, il faut un début à tout.

Alors pour ta gouverne,

Application.DisplayAlerts=False  et Application.DisplayAlerts=true

sert à désactiver les alertes renvoyées par Excel. Exemple quand tu quittes sans avoir sauvegardé, Excel te demande si tu veux sauvegarder avant de quitter. Ca c'est un message d'alerte Excel.

Application.DisplayAlerts=False / True sont à manipuler avec précaution.

En revanche, l'InputBox sert à intervenir en cours de procédure. Ce n'est en aucun cas une alerte Excel.

Voici ta procédure commentée afin de t'aider à progresser.

Private Sub trois_Click()
Dim J As Byte, I As Integer, NB As Integer
Dim V As Integer, O As Worksheet

V = InputBox("Nombres entre lesquels compter les vides :", "Nombre unique", 0) ' demande d'entrer une valeur numérique
For J = 2 To 5 '                                                                 boucle sur les feuilles de 2 à 5
    NB = 0 '                                                                     initialise la variable NB
    Set O = Worksheets(J) '                                                      instanciation de la feuille
    O.Range("B2:B" & O.Range("A" & Rows.Count).End(xlUp).Row).ClearContents '    Efface les valeurs de la colonne B
    For I = 3 To O.Range("A" & Rows.Count).End(xlUp).Row '                       boucle de 3 à la dernière ligne de la colonne A
        If O.Range("A" & I) = "" Then '                                          teste le contenu de la cellule et s'il est vide la condition est VRAIE
            NB = NB + 1 '                                                        incrémentation de la variable
        ElseIf O.Range("A" & I) = Val(V) Then '                                  teste si le contenu de la cellule est égal à la valeur V entrée dans inputbox
            O.Range("B" & I) = NB '                                              écris dans la cellule la valeur de la variable NB
            NB = 0 '                                                             remise à zéro de la variable NB
        End If
    Next I
Next J
End Sub

J'ai également ajouté les déclarations de variable manquantes

Bonne journée et bon courage.

"j'épluche tout ça"

merci

Chaque explication fait réfléchir.

j'ai pas tout compris mais j'ai trouvé une solution en retirant :

InputBox("Nombres entre lesquels compter les vides :", "Nombre unique",

Merci encore.

Je cloture