Test sur deux colonnes

Bonjour a tous et toutes, forum bonjour.

Je souhaiterai effectuer un test sur deux colonnes.

Voir svp le petit fichier ci-joint, j'ai mis une explication de ce dont j'aurai besoin.

Merci a vous pour votre aide, bon W-end et vu l'heure bon app.

Cdlt Raymond

26test-colonnes.xlsm (14.47 Ko)

Bonjour Ray,

je te retourne ton fichier modifié :

7test-colonnes.xlsm (18.94 Ko)

* saisis par exemple 2 en E3

* enlève la couleur rouge des 5 cellules rouge (aucune couleur, ou autre couleur)

* saisis par exemple 2 en E3

rappel : la sub Worksheet_Change() détecte un changement de valeur ;

il n'existe pas d'événement pour détecter un changement de couleur !


Alt F11 pour voir le code VBA, puis revenir sur Excel

merci de me dire si ça te convient.

dhany

Bonjour

peux être comme ca a voir

Sub Test()
    For L = 3 To 30
        If Cells(L, 5).Interior.Color = 255 Then T = T + 1
        If Cells(L, 6).Interior.Color = 255 Then T1 = T1 + 1
    Next L
Trouge = T + T1
    If Trouge > 0 Then
            MsgBox "Reste " & Trouge & " cellules en rouge"
        Else
            'Call Macro
    End If
End Sub

A+

Maurice

Salut Archer et dhany

Merci pour vos réponses et pour les codes, c'est sympa a vous.

Vos deux codes sont très bien et fonctionne, mais j'ai oublier de dire

de tester également qu'il ne faut pas de cellules vides dans les deux colonnes.

Donc Si des cellules rouges et des cellules vides, on ne peut pas autoriser de lancer une macro.

Si toutes les cellules sont renseignées et ne sont pas coloriés en rouge alors on peut autoriser de lancer une macro

Désoler pour cet oubli,

Merci pour votre aide, bonne fin d'après midi.

Cdlt Raymond

Salut Eliot,

Private Sub Worksheet_Change(ByVal Target As Range)
'
Dim rCel As Range
'
If Not Intersect(Target, Range("E3:F30")) Is Nothing Then
    For Each rCel In Range("E3:F30")
        If rCel.Value = "" Or rCel.Interior.Color = RGB(255, 0, 0) Then _
            MsgBox "Il y a encore des cellules rouges et/ou vides!", vbInformation, "Test colonnes": _
            Exit Sub
    Next
    'Call TaMacro
End If
'
End Sub

A+

@Ray

voici la nouvelle version :

8test-colonnes.xlsm (20.07 Ko)

dhany

Salut dhany, Salut curulis57

Merci pour vos réponses, c'est gentil a vous

Vos codes fonctionnent bien et réponds a mon besoin, mes tests sont concluants

Je vais adapter chacun des codes a mon programme et puis tester voir ce que ça donne a l'utilisation

mais je pense que ça va être bon dans les deux cas.

Encore merci a vous deux, je vous souhaite la très bonne soirée et

Bien cordialement Raymond

merci pour ton retour ! bonne continuation !

dhany

Rechercher des sujets similaires à "test deux colonnes"