Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

filtre et commentaire "special"

  • Initiateur de la discussion Initiateur de la discussion Gexk5
  • 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 !

Gexk5

XLDnaute Occasionnel
Bonsoir le forum,
J'ai une liste filtrée, en A3 on saisie le code recherché et le filtre s'applique ou on choisi dans la liste de la celulle A4.
Je voudrais faire corespondre le code avec le nom corespondant( en commentaire), liste des codes et noms sur la feuille1.
Ex: a la place de TOUS je tape 104 et cela me met automatiquement titi en commentaire.
Quelqu'un sait il faire ????
Merci d'avance

http://cjoint.com/?gnbuDt0YoR
 
Re : filtre et commentaire "special"

Bonsoir Gexk, bonsoir le forum,

Si j'ai bien compris à l'endroit...

Code:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r As Range 'déclare la variable r (Recherche)
 
If Range("A3").Value = "" Then Exit Sub 'evite le bug si on efface A3
Range("A3").ClearComments 'efface l'ancien commentaire
 
If Target.Address = "$A$3" Then
    If UCase(Range("A3")) = "TOUS" Then 'permet d'accepter aussi "tous" ou "Tous"
        Selection.AutoFilter Field:=1
        Range("A3").ClearComments 'efface le commentaire
    Else
        Selection.AutoFilter Field:=1, Criteria1:=Range("a3")
    End If
    Set r = Sheets("Feuil1").Range("A1:A" & Range("A65536").End(xlUp).Row).Find(Target) 'définit la variable r
    If Not r Is Nothing Then 'si il existe au moins une occurrence de r
        Range("A3").AddComment 'ajoute un commentaire
        Range("A3").Comment.Visible = True 'affiche le commentaire (à supprimer si tu veux uniquement l'indicateur)
        Range("A3").Comment.Text Text:=r.Offset(0, 1).Value 'définit le texte du commentaire
    End If
End If
End Sub
 
Dernière édition:
Re : filtre et commentaire "special"

Bonsoir Gexk5, salut Robert, bonsoir à toutes et à tous 🙂

Envoyé par Robert
Bonsoir Gexk, bonsoir le forum,

Si j'ai bien compris à l'endroit...

Robert, j'avais cru comprendre comme toi mais de peur de paraître pour une cruche (qui tant va à l'eau...), je voulais avoir de plus amples informations 😉 .

Je crois qu'on en aura maintenant que tu as fait une proposition (honnête ! venant de toi, ça ne peut pas être autrement... Quoique... Quoique...).

En tout cas, merci de t'être mouillé pour que nous puissions en savoir un peu plus long sur la question 😀

@+
 
Re : filtre et commentaire "special"

Re 🙂

Envoyé par Robert
Bonsoir Gexk, Lio, bonsoir le forum,

l'https://www.excel-downloads.com/threads/suppression-plage-de-donnees.122032/
envers du décor qui explique "à l'endroit"...

Super génial ! Réussir à faire comprendre à l'endroit un truc que tu as compris à l'envers, c'est super fort 😀

Ça me fait penser à ce sketch de Raymond DEVOS :


Enfin, c'est du Devos et tu es largement à sa hauteur 😛

@+
 
Re : filtre et commentaire "special"

Bonjour le forum, Robert , nolich
Bravo Robert , tout compris du premier coup ( LOL)
Ou vas tu chercher tous ca???
Super ton code, exactement ce qu'il me fallait.
Merci encore.
 
- 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
16
Affichages
1 K
Réponses
1
Affichages
1 K
C
Réponses
1
Affichages
1 K
C
P
Réponses
2
Affichages
908
prestigrade
P
F
Réponses
14
Affichages
3 K
FlorianQ
F
C
Réponses
13
Affichages
1 K
cedric_hiss
C
B
Réponses
0
Affichages
1 K
B
B
Réponses
1
Affichages
2 K
B
Réponses
2
Affichages
2 K
B
A
Réponses
6
Affichages
2 K
Alexdubeffroi
A
F
Réponses
14
Affichages
6 K
fred777
F
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…