RESOLU - Macro bloquée par une autre macro

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 !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Toujours besoin de vous 🙂

Voici mon soucis et j'y comprends vraiment rien .... alors, si vous pouviez m'expliquer la solution ....... ce serait super !

quand ma macro exécute ce code :
Code:
On Error Resume Next
    Columns(17).SpecialCells(xlCellTypeBlanks).EntireRow.delete


ça se bloque dans cette autre macro :
Code:
'recherche prospect par nom avec formule dans gestionnaire de nom = Noms
'=DECALER((1ère ligne de recherche)RendezVous!$AC$4;;;NBVAL((colonne de recherche)RendezVous!$AB:$AB))
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
If Not Application.Intersect(Target, Range("AD2")) Is Nothing Then
    For Each C In Range("Noms")
        If C.Value = Target.Value Then C.EntireRow.Select
    Next
End If
End Sub

au niveau :
Code:
If C.Value = Target.Value Then C.EntireRow.Select

Je ne peux pas joindre mon fichier car il est vraiment gros.

Pourriez-vous m'aider ?

Bonne fin d'année à toutes et à tous 🙂
Amicalement,
Caliméro
 
Dernière édition:
Re : Macro bloquée par une autre macro

Bonsoir.

On peut quand même dire que si l'exécution de la Worksheet_Change est jugée aberrante par arthour973, ce qu'il ne dit toutefois pas, il doit mettre Application.EnableEvent = False devant la Columns(17).SpecialCells(xlCellTypeBlanks).EntireRow.delete et Application.EnableEvent = True derrière.
 
Re : Macro bloquée par une autre macro

Bonjour Dranreb,
Bonjour à toutes et à tous,

Voilà une bien jolie façon de me donner la solution et je la comprends (miracle de Noel ou de Dranreb LOL),

En fait, si je ne l'avais pas dit c'est que je ne savais pas 🙂

Un grand merci,
Amicalement,
Caliméro,
 
- 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
5
Affichages
241
Réponses
4
Affichages
243
Retour