Discussion :

[arisToT]

Bonjour,
je voudrai pouvoir sélectionner automatiquement un ensemble de cellules qui ont la même valeur (par exemple la valeur 1). Je travaille avec des feuilles qui ont un grand nombre de lignes et de colonnes.
Pouvez-vous m'aider en me proposant une macro qui convient ?
Merci !

[wilfried_42]

Bonjour,

avec un exemple ca aurait été mieux, as tu regardé les filtres ? si ça te convient on poura les faires en Macro

[arisToT]

Pour un exemple c'est assez simple, imagine une feuille excel avec plein de cases remplies avec des mots. Je cherche à sélectionner d'un coup toutes les cases qui ont le mot "bidule".

C'est un peu le même esprit que la mise en forme conditionnelle (pour colorier en bleu toutes les cases qui ont une certaines valeur), sauf que là je ne veux pas les colorier mes juste les sélectionner (en fait ensuite je veux toutes les supprimer d'un coup avec décallage vers la gauche, mais c'est du détail).

Je ne suis pas sur que les filtres conviennent pour ça. Tu crois ?

[casefayere]

Bonsoir à tou(te)s, arisToT,
tu peux adapter ce code à tes besoins mais si tu as vraiment beaucoup de ligne, ça risque d'etre long

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub Macro1()
Dim cls As Range, x As Long, cel As Range, nblg As Long, nbcol As Long, plage As Range, trouve As String
With Sheets("feuil1")
   nblg = .Range("a" & .Rows.Count).End(xlUp).Row
   nbcol = .Range("IV4").End(xlToLeft).Column
   For x = 1 To nbcol
      Set plage = .Range(.Cells(1, x), .Cells(nblg, x))
      For Each cel In plage
         Set cls = plage.Find("bidule")
         If Not cls Is Nothing Then
            Set plage = .Range(.Cells(cls.Row + 1, x), .Cells(nblg, x))
            If trouve = "" Then
               trouve = cls.Address
            Else
               trouve = trouve & "," & cls.Address
            End If
         End If
      Next cel
   Next x
  .Range(trouve).Select
End With
End Sub

Bonne soirée

[arisToT]

Merci casefayere !
Je sens qu'on se rapproche...
malheureusement l'éxécution fait une erreur 1004 "définie par l'application ou par l'objet", et le débogage surligne vers la fin la ligne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range(trouve).Select

Ca ne doit pas être grand chose, mais du coup je suis -encore - bloqué...
Merci de votre aide.

[casefayere]

Bonjour,
peux-tu mettre ton code complet, car j'ai testé et il n'y avait pas de problème.

A +

[fring]

je veux juste les sélectionner (en fait ensuite je veux toutes les supprimer d'un coup avec décallage vers la gauche, mais c'est du détail).

Bonjour,

Pour réaliser cela, il n'est pas nécessaire de sélectionner les cellules

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub test_fring()
Dim C As Range, Motatrouver As String
 
Application.ScreenUpdating = False
 
Motatrouver = "bidouille"
 
Do
    Set C = Sheets(1).UsedRange.Find(Motatrouver, LookIn:=xlValues)
    If Not C Is Nothing Then C.Delete Shift:=xlToLeft
Loop While Not C Is Nothing
 
Application.ScreenUpdating = True
 
End Sub

[casefayere]

Bonjour fring, re le forum, Theze, arisToT
Avec son select, j'avais enfin trouvé la solution que je vais mettre mais je viens de regarder et tester ton code, aucun problème, d'autant que tu n'es pas obligé de passer par un string qui risque de poser des problèmes de longueur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub SelectNiet()
Dim cls As Range, x As Long, y As Long, cel As Range, nblg As Long, nbcol As Long, plage As Range, trouve As String
Dim col As String
With Sheets("e")
   y = 1
   nbcol = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
   For x = 1 To nbcol
      col = Split(.Cells(1, x).Address, "$")(1)
      nblg = .Range(col & .Rows.Count).End(xlUp).Row
      Set plage = Range(col & nblg, Range(col & nblg).End(xlUp))
      For Each cel In plage
         If .Cells(y + 1, x) <> "niet" And y < nblg Then
            y = y + 1
         End If
         Set plage = .Range(.Cells(y, x), .Cells(nblg, x))
         'Set cls = Nothing
         Set cls = plage.Find("niet", .Cells(y, x), , , xlByColumns)
         If Not cls Is Nothing Then
            If trouve = "" Then
               trouve = cls.Address
            Else
               trouve = trouve & "," & cls.Address
            End If
            y = cls.Row
         End If
      Next cel
      y = 1
   Next x
   .Range(trouve).Select
End With
End Sub

Bonne soirée à tou(te)s

[arisToT]

C'est super les gars, vous êtes des chefs !
Merci vraiment !