XL 2010 sélection multiple dans une colonne suivant un critère

[djedjeto]

salut les amis. j'ai un souci et je n'arrive pas à trouver la solution depuis. en fait j'ai une colonne en excel nommé Age qui contient les ages des individus dans une feuille nommée base et deux textbox dans un userform nommée txtInf et txtSup. je voudrais en saisissant des valeurs dans les textbox que je puisse automatiquement par code vba sélectionner dans ma colonne les tranches d'ages situées entre ces deux valeurs. merci pour votre soutient

 

[Staple1600]

Bonjour le fil, djedjeto

•>djedjeto
Pourquoi recréer une nouvelle discussion?
(Un penchant inavoué pour les doublons 😉
Faire un up* dans la première suffisait

XL 2010 - rechercher dans une colonne une valeur spécifique et sélectionner toutes les lignes dont la valeur a été trouvée

salut les amis. j'ai un souci et je n'arrive pas à trouver la solution depuis. en fait j'ai une colonne en excel nommé Age qui contient les ages des individus dans une feuille nommée base et deux textbox dans un userform nommée txtInf et txtSup. je voudrais en saisissant des valeurs dans les...

www.excel-downloads.com

*: c'est à dire se répondre à soi-même pour remettre sa discussion en tête de liste.

 

[mapomme]

Bonjour @djedjeto, @Staple1600 🙂,

Testez :

Private Sub CommandButton1_Click()
Dim t, sel As Range, inf&, sup&, v, i&

With Sheets("base")
   t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
   inf = Val(txtInf): sup = Val(txtSup)
   For i = 2 To UBound(t)
      v = t(i, 1)
      If v >= inf And v <= sup And v <> "" Then If sel Is Nothing Then Set sel = .Cells(i, 1) Else Set sel = Union(sel, Cells(i, 1))
   Next i
   If sel Is Nothing Then .Cells(1, 1).Select Else sel.Select
End With
End Sub

 

[djedjeto]

Bonjour @djedjeto, @Staple1600 🙂,

Testez :

Private Sub CommandButton1_Click()
Dim t, sel As Range, inf&, sup&, v, i&

With Sheets("base")
   t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
   inf = Val(txtInf): sup = Val(txtSup)
   For i = 2 To UBound(t)
      v = t(i, 1)
      If v >= inf And v <= sup And v <> "" Then If sel Is Nothing Then Set sel = .Cells(i, 1) Else Set sel = Union(sel, Cells(i, 1))
   Next i
   If sel Is Nothing Then .Cells(1, 1).Select Else sel.Select
End With
End Sub

merci mapomme. je viens de l'essayer mais je ne constate rien

 

[djedjeto]

merci mapomme. je viens de l'essayer mais je ne constate rien

merci mon frere ca marche nickel

 

[Staple1600]

Re, bonjour mapomme 😉

Bah alors djedjeto, on me zappe ?
Même pas un petit Bonjour?
(Tu n'as pas vu ou lu le message#2?)

 

[djedjeto]

Re, bonjour mapomme 😉

Bah alors djedjeto, on me zappe ?
Même pas un petit Bonjour?
(Tu n'as vu ou lu le message#2?)

non pas du tout. je t'espère toujours. bonjour à toi

 

[djedjeto]

Bonjour @djedjeto, @Staple1600 🙂,

Testez :

Private Sub CommandButton1_Click()
Dim t, sel As Range, inf&, sup&, v, i&

With Sheets("base")
   t = .Range("a1:a" & .Cells(.Rows.Count, 1).End(xlUp).Row + 1)
   inf = Val(txtInf): sup = Val(txtSup)
   For i = 2 To UBound(t)
      v = t(i, 1)
      If v >= inf And v <= sup And v <> "" Then If sel Is Nothing Then Set sel = .Cells(i, 1) Else Set sel = Union(sel, Cells(i, 1))
   Next i
   If sel Is Nothing Then .Cells(1, 1).Select Else sel.Select
End With
End Sub

merci infiniment c'est ce que je voulais

 

[Staple1600]

Re

Et moi, j'espérais comprendre pourquoi tu avais ouvert deux discussions pour poser la même question ?
(Sans doute l'inexpérience du nouveau membre sur XLD 😉)

 

[djedjeto]

Re

Et moi, j'espérais comprendre pourquoi tu avais ouvert deux discussions pour poser la même question ?
(Sans doute l'inexpérience du nouveau membre sur XLD 😉)

oui apparemment mais l'expérience est en cours de téléchargement