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: