J'ai un champ dans une feuille excel qui, lorsque l'on tape une lettre,
ram=E8ne dans le champ suivant tous les =E9l=E9ments d'une liste d=E9finie
qui commence par cette lettre...
Est-ce que je peux permettre de rentrer et donc de filtrer la liste par
plusieurs lettres en modifiant ce code ?
Voici les lignes de codes de la macro qui permet de faire =E7a pour
l'instant :
' Renseigne la cellule crit=E8re de la feuille "Article", filtre et
' ram=E8ne la 1=E8re valeur du champ de copie
Application.ScreenUpdating =3D False
R=E9f.Value =3D Left(R=E9f.Value, 1)
Sheets("Article").Unprotect
Sheets("Article").Range("AA2").Value =3D R=E9f.Value
Extraction
Application.EnableEvents =3D False
Sheets("R=E9sultat").Unprotect
R=E9f.Offset(0, 1).Value =3D
Sheets("Article").Range("$z$2")
R=E9f.Offset(0, 1).Select
If ActiveCell.Value =3D "" Then
ActiveCell.Value =3D "Pas de correspondance"
R=E9f.ClearContents
R=E9f.Select
Merci =E0 ceux qui pourront me renseigner...
Laetitia
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Laetitia
Merci, j'ai trouvé ma réponse !!!
Bonne journée à tous !
Bonjour !
J'ai un champ dans une feuille excel qui, lorsque l'on tape une lettre, ramène dans le champ suivant tous les éléments d'une liste définie qui commence par cette lettre... Est-ce que je peux permettre de rentrer et donc de filtrer la liste par plusieurs lettres en modifiant ce code ? Voici les lignes de codes de la macro qui permet de faire ça pour l'instant :
' Renseigne la cellule critère de la feuille "Article", filtre et ' ramène la 1ère valeur du champ de copie Application.ScreenUpdating = False Réf.Value = Left(Réf.Value, 1) Sheets("Article").Unprotect Sheets("Article").Range("AA2").Value = Réf.Value Extraction Application.EnableEvents = False Sheets("Résultat").Unprotect Réf.Offset(0, 1).Value = Sheets("Article").Range("$z$2") Réf.Offset(0, 1).Select If ActiveCell.Value = "" Then ActiveCell.Value = "Pas de correspondance" Réf.ClearContents Réf.Select
Merci à ceux qui pourront me renseigner... Laetitia
Merci, j'ai trouvé ma réponse !!!
Bonne journée à tous !
Bonjour !
J'ai un champ dans une feuille excel qui, lorsque l'on tape une lettre,
ramène dans le champ suivant tous les éléments d'une liste définie
qui commence par cette lettre...
Est-ce que je peux permettre de rentrer et donc de filtrer la liste par
plusieurs lettres en modifiant ce code ?
Voici les lignes de codes de la macro qui permet de faire ça pour
l'instant :
' Renseigne la cellule critère de la feuille "Article", filtre et
' ramène la 1ère valeur du champ de copie
Application.ScreenUpdating = False
Réf.Value = Left(Réf.Value, 1)
Sheets("Article").Unprotect
Sheets("Article").Range("AA2").Value = Réf.Value
Extraction
Application.EnableEvents = False
Sheets("Résultat").Unprotect
Réf.Offset(0, 1).Value =
Sheets("Article").Range("$z$2")
Réf.Offset(0, 1).Select
If ActiveCell.Value = "" Then
ActiveCell.Value = "Pas de correspondance"
Réf.ClearContents
Réf.Select
Merci à ceux qui pourront me renseigner...
Laetitia
J'ai un champ dans une feuille excel qui, lorsque l'on tape une lettre, ramène dans le champ suivant tous les éléments d'une liste définie qui commence par cette lettre... Est-ce que je peux permettre de rentrer et donc de filtrer la liste par plusieurs lettres en modifiant ce code ? Voici les lignes de codes de la macro qui permet de faire ça pour l'instant :
' Renseigne la cellule critère de la feuille "Article", filtre et ' ramène la 1ère valeur du champ de copie Application.ScreenUpdating = False Réf.Value = Left(Réf.Value, 1) Sheets("Article").Unprotect Sheets("Article").Range("AA2").Value = Réf.Value Extraction Application.EnableEvents = False Sheets("Résultat").Unprotect Réf.Offset(0, 1).Value = Sheets("Article").Range("$z$2") Réf.Offset(0, 1).Select If ActiveCell.Value = "" Then ActiveCell.Value = "Pas de correspondance" Réf.ClearContents Réf.Select
Merci à ceux qui pourront me renseigner... Laetitia
