Petite mise en situation. Pour une étude sur un sujet X, j'ai un document
contenant plusieurs colonnes contenant les informations sur des observations
échelonnées sur une longue période. (Ex: Date de l'observation, heure, Nom
de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc),
chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport
(comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un
filtre automatique, afin d'obtenir seulement les lignes contenant une
certaine occurence. Le problème est que mes cellules ne sont pas identiques
(ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention
"H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans les
muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus H5T8
sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à
passer à travers le processus de cliquer sur le bouton du filtre, ensuite
choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à
"contient" et ensuite inscrire le nom désiré dans la case suivante....Je veux
minimiser au maximum les étapes car je travail avec des gens qui cherche
encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
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
Hervé
Bonsoir Martin, Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer() Dim Plage As Range Dim Cel As Range
With ActiveSheet Set Plage = .Range(.[H1], .[H65536].End(3)) End With
For Each Cel In Plage If InStr(Cel.Text, "H5T8") = 0 Then Cel.EntireRow.Hidden = True End If Next Cel
Set Cel = Nothing Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout() ActiveSheet.Rows.Hidden = False End Sub
Hervé.
"Martin" a écrit dans le message de news:
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document contenant plusieurs colonnes contenant les informations sur des observations échelonnées sur une longue période. (Ex: Date de l'observation, heure, Nom de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc), chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport (comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un filtre automatique, afin d'obtenir seulement les lignes contenant une certaine occurence. Le problème est que mes cellules ne sont pas identiques (ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention "H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans les muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus H5T8 sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à passer à travers le processus de cliquer sur le bouton du filtre, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante....Je veux minimiser au maximum les étapes car je travail avec des gens qui cherche encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
Bonsoir Martin,
Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A
partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple
à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer()
Dim Plage As Range
Dim Cel As Range
With ActiveSheet
Set Plage = .Range(.[H1], .[H65536].End(3))
End With
For Each Cel In Plage
If InStr(Cel.Text, "H5T8") = 0 Then
Cel.EntireRow.Hidden = True
End If
Next Cel
Set Cel = Nothing
Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout()
ActiveSheet.Rows.Hidden = False
End Sub
Hervé.
"Martin" <Martin@discussions.microsoft.com> a écrit dans le message de news:
FE632B30-8888-400C-8227-2D500F0702BD@microsoft.com...
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document
contenant plusieurs colonnes contenant les informations sur des
observations
échelonnées sur une longue période. (Ex: Date de l'observation, heure,
Nom
de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc),
chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport
(comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un
filtre automatique, afin d'obtenir seulement les lignes contenant une
certaine occurence. Le problème est que mes cellules ne sont pas
identiques
(ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention
"H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans
les
muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus
H5T8
sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à
passer à travers le processus de cliquer sur le bouton du filtre, ensuite
choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à
"contient" et ensuite inscrire le nom désiré dans la case suivante....Je
veux
minimiser au maximum les étapes car je travail avec des gens qui cherche
encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
Bonsoir Martin, Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer() Dim Plage As Range Dim Cel As Range
With ActiveSheet Set Plage = .Range(.[H1], .[H65536].End(3)) End With
For Each Cel In Plage If InStr(Cel.Text, "H5T8") = 0 Then Cel.EntireRow.Hidden = True End If Next Cel
Set Cel = Nothing Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout() ActiveSheet.Rows.Hidden = False End Sub
Hervé.
"Martin" a écrit dans le message de news:
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document contenant plusieurs colonnes contenant les informations sur des observations échelonnées sur une longue période. (Ex: Date de l'observation, heure, Nom de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc), chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport (comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un filtre automatique, afin d'obtenir seulement les lignes contenant une certaine occurence. Le problème est que mes cellules ne sont pas identiques (ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention "H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans les muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus H5T8 sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à passer à travers le processus de cliquer sur le bouton du filtre, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante....Je veux minimiser au maximum les étapes car je travail avec des gens qui cherche encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
Martin
Bonjour Hervé
Une macro qui pourrait me simplifier la vie serait de pouvoir écrire mon mot rechercher directement dans le haut d'une colonne dans une case identique à celle trouver par le chemin suivant: sur le petit triangle du filtre dans la ligne 1, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante. J'aimerais passer outre ces étapes.
J'ai testé votre formule qui fonctionne bien, saut que je dois fréquemment changer le terme à rechercher, alors ce n'est pas très conviviale (surtout pour ceux moins habitué à l'informatique)
Merci beaucoup de votre aide.
Martin
Bonsoir Martin, Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer() Dim Plage As Range Dim Cel As Range
With ActiveSheet Set Plage = .Range(.[H1], .[H65536].End(3)) End With
For Each Cel In Plage If InStr(Cel.Text, "H5T8") = 0 Then Cel.EntireRow.Hidden = True End If Next Cel
Set Cel = Nothing Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout() ActiveSheet.Rows.Hidden = False End Sub
Hervé.
"Martin" a écrit dans le message de news:
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document contenant plusieurs colonnes contenant les informations sur des observations échelonnées sur une longue période. (Ex: Date de l'observation, heure, Nom de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc), chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport (comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un filtre automatique, afin d'obtenir seulement les lignes contenant une certaine occurence. Le problème est que mes cellules ne sont pas identiques (ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention "H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans les muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus H5T8 sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à passer à travers le processus de cliquer sur le bouton du filtre, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante....Je veux minimiser au maximum les étapes car je travail avec des gens qui cherche encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
Bonjour Hervé
Une macro qui pourrait me simplifier la vie serait de pouvoir écrire mon mot
rechercher directement dans le haut d'une colonne dans une case identique à
celle trouver par le chemin suivant: sur le petit triangle du filtre dans la
ligne 1, ensuite choisir le filtre personnalisé, ensuite la barre déroulante
pour arriver à "contient" et ensuite inscrire le nom désiré dans la case
suivante. J'aimerais passer outre ces étapes.
J'ai testé votre formule qui fonctionne bien, saut que je dois fréquemment
changer le terme à rechercher, alors ce n'est pas très conviviale (surtout
pour ceux moins habitué à l'informatique)
Merci beaucoup de votre aide.
Martin
Bonsoir Martin,
Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A
partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple
à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer()
Dim Plage As Range
Dim Cel As Range
With ActiveSheet
Set Plage = .Range(.[H1], .[H65536].End(3))
End With
For Each Cel In Plage
If InStr(Cel.Text, "H5T8") = 0 Then
Cel.EntireRow.Hidden = True
End If
Next Cel
Set Cel = Nothing
Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout()
ActiveSheet.Rows.Hidden = False
End Sub
Hervé.
"Martin" <Martin@discussions.microsoft.com> a écrit dans le message de news:
FE632B30-8888-400C-8227-2D500F0702BD@microsoft.com...
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document
contenant plusieurs colonnes contenant les informations sur des
observations
échelonnées sur une longue période. (Ex: Date de l'observation, heure,
Nom
de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc),
chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport
(comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un
filtre automatique, afin d'obtenir seulement les lignes contenant une
certaine occurence. Le problème est que mes cellules ne sont pas
identiques
(ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention
"H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans
les
muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus
H5T8
sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à
passer à travers le processus de cliquer sur le bouton du filtre, ensuite
choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à
"contient" et ensuite inscrire le nom désiré dans la case suivante....Je
veux
minimiser au maximum les étapes car je travail avec des gens qui cherche
encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
Une macro qui pourrait me simplifier la vie serait de pouvoir écrire mon mot rechercher directement dans le haut d'une colonne dans une case identique à celle trouver par le chemin suivant: sur le petit triangle du filtre dans la ligne 1, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante. J'aimerais passer outre ces étapes.
J'ai testé votre formule qui fonctionne bien, saut que je dois fréquemment changer le terme à rechercher, alors ce n'est pas très conviviale (surtout pour ceux moins habitué à l'informatique)
Merci beaucoup de votre aide.
Martin
Bonsoir Martin, Une macro toute simple. Les lignes ne contenant pas "H5T8" sont cachées. A partir de là, tu peux l'adapter à tes besoins afin de la rendre plus souple à utiliser (avec un formulaire par exemple). Si tu veux plus, reviens :
Sub Filtrer() Dim Plage As Range Dim Cel As Range
With ActiveSheet Set Plage = .Range(.[H1], .[H65536].End(3)) End With
For Each Cel In Plage If InStr(Cel.Text, "H5T8") = 0 Then Cel.EntireRow.Hidden = True End If Next Cel
Set Cel = Nothing Set Plage = Nothing
End Sub
Macro pour afficher toutes les lignes :
Sub AfficherTout() ActiveSheet.Rows.Hidden = False End Sub
Hervé.
"Martin" a écrit dans le message de news:
Petite mise en situation. Pour une étude sur un sujet X, j'ai un document contenant plusieurs colonnes contenant les informations sur des observations échelonnées sur une longue période. (Ex: Date de l'observation, heure, Nom de l'observateur, Patient observé, Symptomes, Diagnostique trouvée, etc), chaque ligne étant une observation.
J'ai maintenant 1400 lignes de données et j'aimerais avoir soit un rapport (comme dans acces) ou sur une nouvelle feuille ou comme l'utilisation d'un filtre automatique, afin d'obtenir seulement les lignes contenant une certaine occurence. Le problème est que mes cellules ne sont pas identiques (ex. Je voudrais filtrer la colonne H afin d'avoir seulement les mention "H5T8" dans l'exemple suivant: H3 "Didier a observé le virus H5T8 dans les muqueuses du patient" et dans H38 "Sylivio a étudié les effets du virus H5T8 sur des rats de laboratoire")...comment obtenir ce résultat sans avoir à passer à travers le processus de cliquer sur le bouton du filtre, ensuite choisir le filtre personnalisé, ensuite la barre déroulante pour arriver à "contient" et ensuite inscrire le nom désiré dans la case suivante....Je veux minimiser au maximum les étapes car je travail avec des gens qui cherche encore tout les matins l'interrupteur de mise en marche de l'ordinateur!!!
