Selection de cellules selon une valeur déterminée

Bbechade · 4 Mai 2005

Bonjour à toutes et à tous,

je cherche actuellement à selectionner dans un tableau, de plus de 250 lignes, un valeur déterminée (en fait je cherche à selectionner la valeur s)

J'ai une macro qui fonctionne bien jusqu'à la ligne 195, mais au delà, ça bogue....

Quelqu'un aurait-il une autre macro, ou une autre option que celle-ci:

UN GRAND MERCI par avance

Sub SelectCellulesValeurDeterminee()
LaValeur = Range('H2').Value
Range('A1').Select
For Each cll In ActiveCell.CurrentRegion
If cll.Value = LaValeur Then Plg = Plg & cll.Address() & ','
Next cll
If Len(Plg) > 0 Then Range(Left(Plg, Len(Plg) - 1)).Select
End Sub

myDearFriend! · 4 Mai 2005

Bonsoir Bbechade,

Tu peux peut-être essayer avec le code ci-dessous :

Sub SelectCellulesValeurDeterminee()
Dim LaValeur As Variant
Dim Cll As Range
      Application.ScreenUpdating = False
      With ActiveSheet
            .Range('H2').Select
            LaValeur = ActiveCell.Value
            If LaValeur <> '' Then
                  For Each Cll In .UsedRange
                        If Cll.Value = LaValeur Then Union(Selection, Cll).Select
                  Next Cll
            End If
      End With
      Application.ScreenUpdating = True
End Sub

Cordialement,

Hellboy · 4 Mai 2005

Bonjour myDearFriend!

D'après ce que tu écrit, pourquoi tu ne fais pas seulement un find ?

Code:

Cells.Find(What:='s', After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False).Activate

myDearFriend! · 5 Mai 2005

Chacun ses habitudes Hellboy...

Cela dit, avec ou sans find, sauf erreur de ma part, l'objectif de Bbechade est de sélectionner non pas une, mais l'ensemble des cellules contenant 's'...

Bonne fin de soirée.

Hellboy · 5 Mai 2005

Bonjour Bbechade et myDearFriend!

Je suis désolé myDearFriend!, c'est la deuxième fois cette semaine que j'adresse mon message à la mauvaise personne. Désolé pour le message précèdant.

Ceci dit, comme je le disais basé (sans essayer de deviner) sur la demande de Bbechade

un valeur déterminée
(en fait je cherche à selectionner la valeur s)

était la raison de ma suggestion. Tu vise probablement plus juste que moi sur la demande. Mais le principe de ne pas tenter de supposer deviner l'orientation d'un problème, en est un que je ne me départi pas si facilement. Mais j'aime bien ton commentaire, chacun ses habitudes (et principes) 😉

Bonne soirée a vous deux et au forum.

Philippe

bbechade · 5 Mai 2005

Merci à Didier myDearFriend!

ça marche.... tu m'enlèves une épine du pied. En fait, je suis en train de monter un planning, pour ma boite (SERVAIR) où des plannificateurs plannifient sur une planche le travail de chauffeurs. On a, en fait, une sorte de planning de Kant. Et depuis cette visu, mon programme en extrait des données (N° Vol de départ, N° vol arrivée, Type avion, heure d'arrivée et heure de départ...). J'avais ainsi besoin de sélectionner tous les vols 'S' (Simple départ , ou Arrivée).

MERCI encore pour ton aide.

Bbechade_____________

myDearFriend! · 5 Mai 2005

re bbechade, HellBoy,

Content d'avoir pu t'aider bbechade.

Pour HellBoy, il n'y a pas de problème, mais juste pour info, si j'ai deviné que le but était de sélectionner un ensemble de cellules et non une seule, c'est simplement en étudiant le code fourni par bbechade :

Plg = Plg & cll.Address() & ','

Là, bbechade concatène un ensemble d'adresses de cellules pour pouvoir les sélectionner grâce à :

Range(Left(Plg, Len(Plg) - 1)).Select

Cela dit, je ne pense pas forcément que tu aies tort pour la méthode Find car on peut effectivement arriver à la même chose ici grâce à Find et FindNext...

Bonne soirée à vous deux.

Selection de cellules selon une valeur déterminée

Bbechade

Guest

myDearFriend!

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

myDearFriend!

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

bbechade

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Selection de cellules selon une valeur déterminée

Bbechade

Guest

myDearFriend!

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

myDearFriend!

XLDnaute Barbatruc

Hellboy

XLDnaute Accro

bbechade

Guest

myDearFriend!

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency