Fonction Find.

Re : Fonction Find.

Bonjour,

IL faudrait nous dire ce qu'il y dans ton textbox et dans ta plage de cellules.

Je ne serais pas surpris si le contenu du textbox était une date...

Sois plus explicite, dis-nous ce que tu cherches (valeur du textbox) et
ce qu'il y a dans la plage de cellules incluant le format au besoin.

Re : Fonction Find.

Bonsoir le fil, bonsoir le forum,

En plus de la remarque de MichD, j'ajoute que ce genre de code ne doit être employé que si tu es sûr à 100% de trouver au moins une une occurrence de temp dans la plage G6:G14 sinon c'est le plantage. De plus si la cellule active ne se trouve pas dans les lignes 6 à 14, c'est aussi le plantage...
Pour éviter'cela tu porrais faire :

Re : Fonction Find.

Bonjour MichD, Robert

Il y a des nombres entiers dans textbox2 et dans la plage ("G6:G14").

Avant de tester la solution de Robert, pourriez-vous m'indiquer pourquoi lorsque la valeur a rechercher est par ex 2 (textbox2), et que dans la plage G6:G14 se trouve les valeurs 2 et 952. A ce moment là ce n'est pas la cellule valeur 2 qui s’active, mais la cellule valeur 952.


J'ai constaté que la recherche se fait de haut en bas dans la plage G6:G14. Si 952 se place avant 2, la cellule valeur 952 s'active. Si je place manuellement le 2 dans la plage G6:G14 avant 952, alors là c'est bien la cellule valeur 2 qui s'active. Comment faire pour que la recherche se fasse non pas de haut en bas, mais sur l'ensemble de la plage? Pourquoi la recherche ne se fait pas sur la valeur totale? Cela prend en compte le 2 de 952 ????

voilà la partie de code >>>> Range("G6:G14").Find(Temp, , xlValues, xlPart) _

.Activate

J’espère avoir été clair. Ce n'est pas mon fort en général. lol

En attendant je teste votre solution Robert. Merci

Re : Fonction Find.

Robert à dit:

Bonsoir le fil, bonsoir le forum,

En plus de la remarque de MichD, j'ajoute que ce genre de code ne doit être employé que si tu es sûr à 100% de trouver au moins une une occurrence de temp dans la plage G6:G14 sinon c'est le plantage. De plus si la cellule active ne se trouve pas dans les lignes 6 à 14, c'est aussi le plantage...
Pour éviter'cela tu porrais faire :

Code:

Dim r As Range
Set r = Range("G6:G14").Find(temp, ,xlFormulas, xlPart) 'ou xlValues à la place de xlFormulas
If Not r Is Nothing Then 
   r.Activate
Else
  MsgBox "Donnés inexistante !"
End If

Cliquez pour agrandir...

merci Robert

J'ai testé votre solution, mais je me retrouve avec le même soucis. Si je recherche 2, la première cellule où se trouve un 2 s'active. Même si la valeur est par ex 952 ????

Cordialement

Re : Fonction Find.

KyFranRD à dit:

merci Robert

J'ai testé votre solution, mais je me retrouve avec le même soucis. Si je recherche 2, la première cellule où se trouve un 2 s'active. Même si la valeur est par ex 952 ????

Cordialement

Cliquez pour agrandir...

Je viens de chercher sur le net et j'ai trouvé LookAt:= xlWhole >>>> ça a l'air de fonctionner. Je teste sur mon fichier d'origine sur une plage plus importante.

Re : Fonction Find.

Bonjour,

Re : Fonction Find.

MichD à dit:

Bonjour,

VB:

Dim X As Variant, Trouve As Range

If isnumeric(Me.textbox2) Then
   X = Me.textbox2.Value  
           With Worksheets("Feuil1") 'Nom de la feuille à adapter
        With Range("A1:A10") 'Plage de cellules à adapter
            Set Trouve = .Find(What:=x, LookIn:=xlFormulas, _
                LookAt:=xlWhole, SearchOrder:=xlByColumns, _
                SearchDirection:=xlNext, MatchCase:=False)
            If Not Trouve Is Nothing Then
                Trouve.Select
            Else
                MsgBox "La valeur n'a pas été trouvée."
            End If
        End With
    End With
End If

Cliquez pour agrandir...

Bonjour MichD

Merci bien pour ce code.

Cordialement