Discussion :

[adriennoob]

Bonsoir,

Je n'y arrive pas, j'ai un code qui doitme permettre de séléctionner dans un tableau les lignes correspondantes à deux valeur.

La première valeur est recherché dans la colonne A et la deuxième dans la colonne B.

donc je veux sélectionner toute les lignes qui possède valeur A et Valeur B.

Mais ça ne fonctionne pas Je sais pas pourquoi???

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()
 
Dim i As Integer
Dim LaDerniere As Integer
 
LaDerniere = Worksheets("Feuil1").Cells(56555, 2).End(xlUp).Row
 
For i = 1 To LaDerniere
If Not (Worksheets("Feuil1").Range("C1").Value = "") And Not (Worksheets("Feuil1").Range("C2").Value = "") Then
If Worksheets("Feuil1").Cells(i, 1) = Worksheets("Feuil1").Range("C1").Value And Worksheets("Feuil1").Cells(i, 2) = Worksheets("Feuil1").Range("C2").Value Then
Worksheets("Feuil1").Range("A" & i & "").Select
End If
End If
Next i
End Sub

J'ai fais se bout de code

[casefayere]

Bonsoir,
veux-tu selectionner toutes les lignes concernées en une fois ou les cellules concernées ?

[adriennoob]

je veux sélectionner les cellules concernées;

[Pierre Fauconnier]

Bonjour


Essaie ceci

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()
  Dim ValA As Variant, ValB As Variant
  Dim Cellule As Range, Plage As Range
  Dim i As Long
 
  ValA = "Fauconnier"
  ValB = "Pierre"
 
  For Each Cellule In Range("a2:a" & Range("a" & Rows.Count).End(xlUp).Row)
    If Cellule = ValA And Cellule(1, 2) = ValB Then
      If Plage Is Nothing Then Set Plage = Rows(Cellule.Row) Else Set Plage = Union(Plage, Rows(Cellule.Row))
    End If
  Next Cellule
  Plage.Select
End Sub

[casefayere]

je sais mais le premier code d'adrien laissait penser qu'il ne voulait que les cellules et en A, son code ci-dessous avec son erreur

Code :

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

Worksheets("Feuil1").Range("A" & i & "").Select

je ne suis peut-etre pas assez perspicace

[adriennoob]

ca me marque Plage =""

Code :

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

1
2
3
Range(plage).Select
End With
End Sub

[adriennoob]

au pire je répète se que je veux en essayant d'être très clair

alors j'ai un tableau à deux colonnes A et B.

Je veux sélectionner les lignes qui correspondent à mes deux sélections.

Par exemple si j'ai
1 A B C1 = 1
2 1 2 C2 = 1 alors je sélectionne mes lignes 5 et 7 seulements
3 2 2
4 3 1
5 1 1
6 2 3
7 1 1

[Pierre Fauconnier]

Ok. Ma macro et la façon de l'appeler (comme précisé dans mon dernier message) fait cela

[Pierre Fauconnier]

...je ne suis peut-etre pas assez perspicace

Non, moi j'ai lu le premier message sans regarder le code, mais comme l'énoncé et la configuration du classeur ne sont pas clairs, on risque de tourner en rond

[casefayere]

bien Pierre tu me rassures
Maintenant Adrien, tu dis que plage n'a aucune valeur et quand j'ai fait un test, j'ai provoqué volontairement des correspondances entre a c1, b et c2
peut-etre n'avais-tu pas de correspondance ?

[adriennoob]

Bon je reprend a zéro parce que c'est sur qu'on risque de tourner en rond.

alors j'ai un tableau de deux colonnes A et B j'ai deux valeur : une dans la cellule C1 et l'autre dans la cellule C2

A B
1 1 12 Si C1 = 1 et C2 = 12
2 2 12 alors je selectionne mes lignes 1 et 5 uniquements
3 3 11
4 1 22
5 1 12
6 2 21
7 3 22

Vous comprennez mieux ???

Merci les gars

[Pierre Fauconnier]

Hum...

[Pierre Fauconnier]

Si tu veux absolument passer par C1 et C2,
Recopie ma macro exactement comme je te l'ai donnée, et modifie ta ligne d'appel

Code :

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

1
2
Sub Rectangle1_Clic
  SelectionnerLignes worksheets("Feuil1"), worksheets("Feuil1").range("c1").Value, worksheets("Feuil1").range("c2")Value

Tu gagneras à la faire tourner en pas à pas pour comprendre le principe