Selectionner une cellule selon contenu

Question

Bonjour, dans une application EXCEL en VBA je veux sélectionner dans un tableau une cellule selon son contenu (une référence unique) . Dans ce tableau il y a environ 200 cellules à sélectionner, la référence est un nombre (de 1 à 200) déclarés en "standard". Quand je lance la recherche, j'arrive à trouver les cellules jusqu'au N°20, les suivantes ne sont pas détectées. J'ai modifié le format de cellule en texte, nombre,(avec aucune décimale), rien n'y fait, je n'arrive pas à sélectionner ces cellules. Quand je mets en place des références alphanumériques (B56 par ex.) tout fonctionne! Qui peut me proposer une explication rationnelle?

Voici la procédure:

Public Sub choisir_plan()

Application.ScreenUpdating = False

Dim cherche As Variant

Dim trouve As Range

cherche = Worksheets("calcul").Range("L2").Value 'c'est la ref emplacement à trouver

Worksheets("plan").Activate

Range("Y12:AW60").Select

With Range("Y12:AW60")

Set trouve = .Find(what:=cherche, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=False)

End With

If Not trouve Is Nothing Then

trouve.Select

End If

If Range("AU4").Value = "active" Then ' c'est le code qui définit la couleur à appliquer

ActiveCell.Interior.Color = vbRed

Else

ActiveCell.Interior.Color = vbYellow

End If

verif_non_payé

End Sub

Juice · Answer

Sans ton fichier c'est difficile de dire ce qui va pas Voici un code qui reprend le tien, et après test, il semble fonctionner : Sub Recherche() Dim MaPlage As Range, MaCell As Range Set MaPlage = Sheets("plan").Range("Y12:AW60") Set MaCell = MaPlage.Find(What:=Sheets("calcul").Range("L2")) If Sheets("plan").Range("AU4") = "active" Then Sheets("plan").Range(MaCell.Address).Interior.Color = vbRed If Sheets("plan").Range("AU4") &lt;&gt; "active" Then Sheets("plan").Range(MaCell.Address).Interior.Color = vbYellow End Sub Restant à ta dispo...

Juice · Answer

Re- CAP

C'est que je n'ai pas du comprendre ta demande alors.

Car j'ai re-tester le code de mon côté, et les cellules se mettent en rouge ou en jaune.

Je pense qu'il nous faudrait avoir ton fichier et des explications (un exemple) pour que nous puissions t'aider.

Restant à ta dispo,

Bon week-end également

Juice · Answer

Re- CAP

Ci-joint ton fichier tel que je le vois

En feuille plan, tu a ta plage "Y12:AW60" avec une bordure : C'est la où tu a tes valeurs à chercher

En feuille calcul, la cellule "L2" en jaune : C'est la où tu indique la valeur à chercher

Est-ce que tu peux me reproduire l'une de tes erreurs et me retourner le fichier, s'il te plaît ?

Te souhaitant également une agréable semaine

18pour-cap.xlsm (27.35 Ko)

Juice · Answer

Re- CAP,

Alors le problème viens du fait que tu recherche une valeur inexistante dans ta plage en feuille Plan.

J'avais pas codé la macro pour gérer ce genre d'anomalie, et donc elle te retourne une erreur.

Ci-dessous la macro modifié :

Sub Recherche()
Dim MaPlage As Range, MaCell As Range, MaRecherche As String
MaRecherche = Sheets("calcul").Range("L2")
Set MaPlage = Sheets("plan").Range("Y12:AW60")
Set MaCell = MaPlage.Find(What:=MaRecherche)
If MaCell Is Nothing Then
    MsgBox "La valeur n'a pas été trouvée dans la plage Y12:AW60 de la Feuille Plan"
    Exit Sub
End If
If Sheets("plan").Range("AU4") = "active" Then Sheets("plan").Range(MaCell.Address).Interior.Color = vbRed
If Sheets("plan").Range("AU4") <> "active" Then Sheets("plan").Range(MaCell.Address).Interior.Color = vbYellow
End Sub

Je l'ai testé sur le fichier que tu m'a fais parvenir (merci d'ailleur) et sa fonctionne!

N'oublie pas que ta plage de recherche va de la cellule Y12 à AW60 de la feuille Plan!

Restant à ta dispo