Macro dont une partie fonctionne et la deuxième (copié-collée) ne fonctionne pas

[Youri]

Bonsoir à tous,

J'ai une macro dont une partie fonctionne mais pas la deuxième alors que le code semble identique. Voilà le code de la macro :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim CellConc As Range
Dim Plage As Range
Dim TempConcatenation As String
Dim CellConc2 As Range
Dim Plage2 As Range
Dim TempConcatenation2 As String
With Sheets("Fiche de renseignements")
    Set Plage = .Range("B209:B" & .Range("B231").Row)
        For Each CellConc In Plage
        TempConcatenation = CellConc & CellConc.Offset(0, 3)
        If TempConcatenation = "" Then
            If .Rows(CellConc.Row).Hidden = False Then
                .Rows(CellConc.Row).Hidden = True
            End If
            ElseIf .Rows(CellConc.Row).Hidden = True Then
                .Rows(CellConc.Row).Hidden = False
        End If
        Next
End With
With Sheets("Fiche de renseignements")
    Set Plage2 = .Range("B236:B" & .Range("B258").Row)
        For Each CellConc2 In Plage
        TempConcatenation2 = CellConc2 & CellConc2.Offset(0, 3)
        If TempConcatenation2 = "" Then
            If .Rows(CellConc2.Row).Hidden = False Then
                .Rows(CellConc2.Row).Hidden = True
            End If
            ElseIf .Rows(CellConc2.Row).Hidden = True Then
                .Rows(CellConc2.Row).Hidden = False
        End If
        Next
End With
End Sub

Voilà, si vous pouvez m'aider. Je vous remercie à l'avance,
Youri

 

[Staple1600]

Re : Macro dont une partie fonctionne et la deuxième (copié-collée) ne fonctionne pas

Bonsoir


A mon avis

Dans la deuxième partie de ta macro

For Each CellConc2 In Plage

est a remplacé par

For Each CellConc2 In Plage2

 

[Youri]

Re : Macro dont une partie fonctionne et la deuxième (copié-collée) ne fonctionne pas

Bonjour Staple,

Merci beaucoup pour ta réponse, c'était exactement ça. C'est vraiment pernicieux le manque de sommeil !
Désolé pour ce poste inutile.

Meilleures salutations,
Youri