Comment autoriser uniquement les nombres négatifs dans Excel?

Dans Excel, comment autoriser uniquement la saisie de nombres négatifs? Cet article présente quelques astuces utiles et rapides pour vous permettre de résoudre cette tâche.

Autoriser uniquement les nombres négatifs dans Excel avec la validation des données

Autoriser uniquement les nombres négatifs dans Excel avec le code VBA

Autoriser uniquement les nombres négatifs dans Excel avec la validation des données

Normalement, le Validation des données La fonction peut vous aider, procédez comme suit:

1. Sélectionnez les cellules ou la colonne que vous souhaitez autoriser uniquement à saisir des nombres négatifs, puis cliquez sur Sauvegarde de > Validation des données > Validation des données, voir capture d'écran:

2. Dans le Validation des données boîte de dialogue, sous la Paramètres onglet, effectuez les options suivantes:

(1.) Dans le Autoriser section, choisissez Décimal dans la liste déroulante;

(2.) Dans le Sauvegarde de section, veuillez choisir inférieur ou égal à l'option;

(3.) Enfin, entrez le numéro 0 into the Maximum zone de texte.

3. Puis clique OK, et maintenant, seuls les nombres négatifs et 0 sont autorisés à être entrés, si un nombre positif est entré, il affichera un message d'avertissement, voir capture d'écran:

Autoriser uniquement les nombres négatifs dans Excel avec le code VBA

Voici un code VBA qui peut également vous aider, avec le code suivant, lorsque vous entrez un nombre positif, il sera automatiquement converti en négatif, procédez comme suit:

1. Cliquez avec le bouton droit sur l'onglet de la feuille pour lequel vous souhaitez autoriser uniquement les nombres négatifs, puis choisissez Voir le code dans le menu contextuel, dans le popped out Microsoft Visual Basic pour applications fenêtre, veuillez copier et coller le code suivant dans l'espace vide Module:

Code VBA: autoriser uniquement les nombres négatifs dans la feuille de calcul:

Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
    Const sRg As String = "A1:A1000"
    Dim xRg As Range
    On Error GoTo err_exit:
    Application.EnableEvents = False
    If Not Intersect(Target, Range(sRg)) Is Nothing Then
        For Each xRg In Target
            If Left(xRg.Value, 1) <> "-" Then
                xRg.Value = xRg.Value * -1
            End If
        Next xRg
    End If
err_exit:
    Application.EnableEvents = True
End Sub

Notes: Dans le code ci-dessus, A1: A1000 correspond aux cellules que vous souhaitez saisir uniquement en nombres négatifs.

2. Ensuite, enregistrez et fermez ce code, revenez en arrière dans la feuille de calcul et maintenant, lorsque vous entrez des nombres positifs dans les cellules que vous avez spécifiées dans le code, les nombres positifs seront automatiquement convertis en nombres négatifs.