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 :
	
	
	
	
	
		
ça se bloque dans cette autre macro :
	
	
	
	
	
		
au niveau :
	
	
	
	
	
		
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
	
		
			
		
		
	
				
			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: