Vérifier une cellule qui posséde une valeur négative

Résolu

r4944 Messages postés 122 Date d'inscription Statut Membre Dernière intervention -
Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention - 6 nov. 2015 à 17:40

Bonjour,

je voudrais savoir comment faire pour vérifier une cellule qui contienne une valeur negative et aprés appliquer quelques changements

j'ai commencé par ce code la mais j'ai eu une erreur dans l'instruction qui doit verifier la valeur


dim a as integer
  Dim MaPlage As Range
For a = 2 To ActiveSheet.Cells(ActiveSheet.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range("A:AP").Rows(a)

If (ActiveSheet.Cells(a, 37).Value) < 0 Then

 ActiveSheet.Cells(a, 31).Interior.Color = vbYellow
             
 ActiveSheet.Cells(a, 14).Interior.Color = vbYellow


End If
Next a

A voir également:

Vérifier une cellule qui posséde une valeur négative
Verifier compatibilite windows 11 - Guide
Aller à la ligne dans une cellule excel - Guide
Bloquer une cellule excel - Guide
Excel cellule couleur si condition texte - Guide
Verifier un lien - Guide

1 réponse

Réponse 1 / 1

Kuartz Messages postés 852 Date d'inscription Statut Membre Dernière intervention 61

Bonjour,

Voici ton code corrigé :

Sub Code()

Dim a as integer
 Dim MaPlage As Range

For a = 2 To ActiveSheet.Cells(Application.Rows.Count, 1).End(xlUp).Row

Set MaPlage = Range(Cells(2, 1), Cells(a, 42))

If ActiveSheet.Cells(a, 37).Value < 0 Then

 ActiveSheet.Cells(a, 31).Interior.Color = vbYellow
             
 ActiveSheet.Cells(a, 14).Interior.Color = vbYellow

End If
Next a

Cordialement.

Discussions similaires

additionner nombres dans cellules avec texte

Cette valeur ne correspond pas aux restrictions

excel fractionner une cellule horizontalement

Remplir une cellule (texte) en fonction d'une autre (texte).

Cellules en surbrillance selon une TextBox

Votre réponse

Discussions similaires