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

  • Initiateur de la discussion Initiateur de la discussion Youri
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Youri

XLDnaute Occasionnel
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 :
Code:
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
 
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
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
185
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
490
Réponses
7
Affichages
165
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
652
Retour