[Excel] Selection multiple avec critères

Version imprimable

Bonjour à tous, :coucou:

Je navigue d'habitude sur le forum Access, mais cette fois ci je viens vous voir :wink:.
Je sais programmer en VB mais je ne suis pas familier des procédures excel. Afin de faire des statistiques et un graphique je voudrais faire une sélection multiple de ligne ayant un point commun, toutes les cellules qui commencent par Max et la case adjacente à droite, j'ai déjà ecrit ça si qqu'un pouvait m'aider à le finir svp. Tout ça en VB6.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Sub masub() Dim plage As Range Dim valeurs As Range Dim cell As Object Set plage = Worksheets("log_AF").Range("B4:B252") For Each cell In plage If cell Like "Max*" Then cell.Select End If Next cell End Sub
Ca marche pas déjà :wink:

Merci d'avance à ceux qui répondront

Bonne journée :coucou:

26/04/2005, 09h11
Tan

Dis ce qui ne marche pas;
Là, je vois que tu ne selectionneras jamais plus d'une cellule, c'est peut être ça ton problème?

Regarde vers Application.Union pour en selectionner plusieurs
26/04/2005, 09h21
tibotibotibo

Oui c'est bien ca je veux sélectionner toutes les cellules qui commencent par max (d'où le "multiple" :bravo:).
Je vais chercher dans Union, dois je utiliser les range ?
26/04/2005, 10h04
bidou

oui

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Sub masub()
Dim plage As Range
Dim mescells As Range
 
Dim cellule As Object
Set plage = Worksheets("log_AF").Range("B4:B252")
Set mescells = Worksheets("log_AF").Range("B4")
  For Each cellule In plage
  If cellule Like "Max*" Then
  mescells = ActiveWindow.RangeSelection(Union(mescells, cellule))
  End If
  Next cellule
  mescells.select
End Sub

Bon ca marche tjs pas mais je pense que dans l'esprit y'a du progrès :wink:

Plus comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub masub() 
Dim plage As Range 
Dim mescells As Range 
 
Dim cellule As Range 
Set plage = Worksheets("log_AF").Range("B4:B252") 
Set mescells = Worksheets("log_AF").Range("B4") 
  For Each cellule In plage.Cells 
  If VBA.Left(cellule.Value,3) = "Max*" Then 
  Set mescells = Application.Union(mescells, cellule) 
  End If 
  Next
  mescells.select 
End Sub

Le test sur max ne marche plus avec cette methode. Alors qu'il fonctionnait avec like. Donc j'ai rechangé ton code, pardon Bidou :hola:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub masub2()
Dim plage As Range
Dim mescells As Range
Dim mescells2 As Range
 
Dim cellule As Object
Set plage = Worksheets("log_AF").Range("B4:B252")
Set mescells = Worksheets("log_AF").Range("B4")
Set mescells2 = Worksheets("log_AF").Range("C4")
 
  For Each cellule In plage
  If cellule Like "Max*" Then
  Set mescells = Application.Union(mescells, cellule)
  'ici je decale pour selectionner la cellule adjacente 
  Set mescells2 = Application.Union(mescells2, cellule.Offset(0, 2))
  End If
  Next cellule
  Set mescells = Application.Union(mescells, mescells2)
  mescells.Select
End Sub

La ca marche impec =)
Merci de votre aide :bravo: :mouarf: Bonne journée à tous !

26/04/2005, 10h33
Tan

Pour info, si le code de bidou ne marchait pas, c'est surement à cause d'une faute de frappe

Code:

If VBA.Left(cellule.Value,3) = "Max*" Then

Il faut mettre

Code:

If VBA.Left(cellule.Value,3) = "Max" Then
26/04/2005, 10h48
bidou

bloods and guts :oops:
désolé (et merci Tan)