Discussion :

[tibotibotibo]

Bonjour à tous,

Je navigue d'habitude sur le forum Access, mais cette fois ci je viens vous voir .
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 :

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

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à

Merci d'avance à ceux qui répondront

Bonne journée

[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

[tibotibotibo]

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

[bidou]

oui

[tibotibotibo]

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 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

[bidou]

Plus comme ça

Code :

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

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

[tibotibotibo]

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

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
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 Bonne journée à tous !

[Tan]

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

Code :

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

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

Il faut mettre

Code :

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

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

[bidou]

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