Discussion :

[maxicobra]

Bonjour,
existe t'il une fonction excel permettant de sélectionner des lignes jusqu'à une certaine valeur prédéfini. Comme NBVAL() qui sélectionne mais jusqu'à une cellule vide, mais moi je veux une cellule pleine contenant une certaine valeur.
Plausible? merci

[Daniel.C]

Bonjour,

Une fonction retourne une valeur, et rien d'autre; elle ne peut pas sélectionner ou faire autre chose.
Pour ce qui est de NBVAL, elle ne sélectionne rien; elle retourne le nombre de cellules non vides dans une plage de cellules.
Une macro peut faire ce que tu veux.

[maxicobra]

dans ce cas je veux bien une macro correspondant à ce que je recherche

[maxicobra]

(et oui je me suis mal exprimé pour NBVAL)

[Daniel.C]

La macro suivante sélectionne les lignes entre la cellule active et la cellule contenant le texte cherché :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Trouve()
    Dim TexteAChercher As String, C As Range
    TexteAChercher = InputBox("Entrez le texte à chercher")
        If TexteAChercher <> "" Then
        Set C = Cells.Find(TexteAChercher, , , xlWhole)
        If Not C Is Nothing Then
            Range(ActiveCell, C).EntireRow.Select
        End If
    End If
End Sub

[maxicobra]

Merci ca a l'air de me convenir, mais question toute bête:
Comment je récupère la valeur "C"? (genre la coller à une cellule de mon excel? ) merci

[maxicobra]

J'ai essayé la macro, je test avec ce chiffre là: 214918
Et j'ai un message qui se met:
miscrosoft excel en tête du message, le chiffre (21918). Et un truc à taper, où l'on ne sait pas ce qu'il faut mettre.
Bref largué...

[Daniel.C]

Comment je récupère la valeur "C"? (genre la coller à une cellule de mon excel? ) merci

Code :

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

Range("A1").Value = C.Value

miscrosoft excel en tête du message, le chiffre (21918). Et un truc à taper, où l'on ne sait pas ce qu'il faut mettre.

Est-ce que tu peux expliquer davantage; j'ai eu une dure journée

[maxicobra]

Bah en faite, quand je lance la macro, je me retrouve sur mon tableur excel avec un message qui me demandent une infos à taper, mais y a rien d'indiquer sur ce message, a part ce que j'ai indiqué dans mon précédent post...
Je ne peux pas plus t'aider sur la description, a part que la fenêtre qui s'affiche est petite et grise :/

[maxicobra]

Et à tout hasard si tu as déjà eut ce problème avec NBVAL().
En fait j'ai un tableau (tableau 2) avec la copie d'un autre tableau (tableau 1). Le nombre de ligne varie; donc j'ai NBVAL sur le tableau 2 où sont collé les valeurs, ce NBVAL varie naturellement en fonction du nombre de ligne. Hors initialement mon tableau 2 à ses lignes remplis à 0 car y a rien dans le tableau 1. Donc forcément mon NBVAL m'affiche le nombre de 0 du tableau 2. Le souci est que quand je rempli mon tableau 1 avec peu de valeur, mon tableau 2 se rempli bien, mais laisse les 0 plus loin en dessous, et donc mon NBVAL est inchangé.
J'ai donc remplacé mes 0 par "" grâce à une fonction SI().
Mais rien y fait, NBVAL me prends les "" comme des valeurs.
Je ne vois pas quoi faire comme astuce.

[maxicobra]

Pour mon dernier post, j'ai réglé grâce à NB.SI().

[Daniel.C]

C'est cette fenêtre là ? C'est là où tu dois entrer le texte à chercher :

[maxicobra]

Oui c'est ca. je dois mal faire ma macro, car quand je tape le nombre (214918) que je cherche dans la colonne A, ca me trouve rien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Trouve()
    Dim TexteAChercher As String, C As Range
 
    TexteAChercher = InputBox("Entrez le texte à chercher")
        If TexteAChercher <> "" Then
        Set C = Cells.Find(TexteAChercher, , , xlWhole)
        If Not C Is Nothing Then
            Range(ActiveCell, C).EntireRow.Select
        End If
    End If
End Sub

[Daniel.C]

Normal, ce que tu entres dans la boîte est converti au format texte. Si tu cherches des nombres, la macro devient :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Trouve()
    Dim TexteAChercher As Variant, C As Range
    TexteAChercher = InputBox("Entrez le texte à chercher")
        If IsNumeric(TexteAChercher) Then
            TexteAChercher = CDbl(TexteAChercher)
        End If
        If TexteAChercher <> "" Then
        Set C = Cells.Find(TexteAChercher, , , xlWhole)
        If Not C Is Nothing Then
            Range(ActiveCell, C).EntireRow.Select
        End If
    End If
End Sub

[maxicobra]

D'accord, j'ai saisi la différence, merci. bonne journée