Boucle for next avec Select Case

Bonsoir à tous !

je rencontre un petit problème de macro. Ma macro fait exactement l'inverse de ce que je voudrai qu'elle fasse. J'aurai besoin de votre aide svp.

A toutes,

jef59

Bonjour,

il faut renseigner la variable lacase.

Sub t()
Lcellactive = ActiveCell.Row - 1
Ccellactive = ActiveCell.Column - 1
Const constant As Integer = 3
Dim C As Integer, L As Integer

For C = 2 To constant
  For L = 2 To constant
   lacase = Cells(L, C)
    Select Case lacase
        Case "pls"
        MsgBox Cells(L, C).Address & " : valeur = " & Cells(L, C).Value & Chr(10) & "c  bien"
        Case Else
        MsgBox Cells(L, C).Address & " : valeur = " & Cells(L, C).Value & Chr(10) & "c nul"
    End Select
  Next L
Next C
End Sub

Bonsoir,

ta macro, indentée, et un peu arrangée, mais sans border les risques de la manoeuvre...

Sub t()
    Const constant As Integer = 2
    Dim C%, L%, Lcellactive%, Ccellactive%
    Lcellactive = ActiveCell.Row - 1
    Ccellactive = ActiveCell.Column - 1
    For C = 1 To constant
        For L = 1 To constant
            Select Case Cells(Lcellactive + L, Ccellactive + C)
                Case "pls"
                    MsgBox "c  bien"
                Case Else
                    MsgBox "c nul"
            End Select
        Next L
    Next C
End Sub

Bonsoir,

merci à vous deux pour vos réponses

Bonne soirée