Select une cellule sans activer sans ouvrir la feuille

[yusukens]

Bonjour, la question de la journée ^^

La question est dite dans le titre :
Mon code :

Sub TEST()
Dim ColonneID

Set ColonneID = Worksheets("Contacts").Columns(4) [COLOR=seagreen]'Selectionne la colonne D[/COLOR]
ColonneID.Find("2", LookAt:=xlWhole).End(xlToLeft).Select [COLOR=seagreen]'Fait une recherche sur la colonne 2 et selectionne la cellule xlToLeft[/COLOR]
End Sub

Il me trouve une erreur au niveau du SELECT.
J’ai testé avec ACTIVATE et ADDRESS.
Avec eux n’ont plus ça ne marche pas, et j’en connais pas d’autre,

merci d'avance

 

[skoobi]

Re : Select une cellule sans activer sans ouvrir la feuille

Bonjour,

Il me trouve une erreur au niveau du SELECT

Apparement "2" n'a pas été trouvé.
Il faut faire comme çà:

Set ColonneID = Worksheets("Contacts").Columns(4)
[B]Set trouve = ColonneID.Find("2", LookAt:=xlWhole)
If Not trouve Is Nothing Then ColonneID.Find("2", LookAt:=xlWhole).End(xlToLeft).Select[/B]

 

[yusukens]

Re : Select une cellule sans activer sans ouvrir la feuille

Salut skoobi, merci pour ton aide
Je viens d'essayer ton code

et ça ne marche à moitier,
il l'erreur (Objet requis)

Sur la ligne

Set Trouve = ColonneID.Find("2", LookAt:=xlWhole)

J'ai réussi a contourner le problème, mais je reviens sur l'activation de la feuille.
mais l'astuce que j'ai trouvé, et que je réactive a la fin de mon code l'ancienne feuille

voila ce que ça donne au final :

Private Sub TextBox17_Change()
Dim ValeurID As Integer
Dim ColonneID
Dim x As Integer

ValeurID = TextBox17.Value

Worksheets("Contacts").Activate
Set ColonneID = Worksheets("Contacts").Columns(4)
ColonneID.Find(ValeurID, LookAt:=xlWhole).End(xlToLeft).Select

For x = 1 To 15
Me("TextBox" & x).Value = Selection.End(xlToLeft).Offset(0, x)
Next x

Worksheets("BDD-DevisFacture").Activate

End Sub

 

[yusukens]

Re : Select une cellule sans activer sans ouvrir la feuille

Peux tu m'expliquer ton code ?

Set trouve = ColonneID.Find("2", LookAt:=xlWhole)
If Not trouve Is Nothing Then ColonneID.Find("2", LookAt:=xlWhole).End(xlToLeft).Select

voila ce que je comprend.
Il met la recherche 2 dans la variable TROUVE
et ensuite s'il la variable TROUVE est égale à rien, il refait une autre recheche sur la colonneD et sellectionne la cellule xlToLeft

Pourquoi faire 2 fois la recheche FIND ?
et avons nous besoin de mettre un IF END à la fin ?

 

[skoobi]

Re : Select une cellule sans activer sans ouvrir la feuille

Re,

et ensuite s'il la variable TROUVE est égale à rien

non non, ça veut dire si "trouve" n'est pas rien alors....

Pourquoi faire 2 fois la recheche FIND ?

Tu as raison, remplace

Then ColonneID.Find("2", LookAt:=xlWhole).End(xlToLeft).Select

par

trouve.End(xlToLeft).Select

et avons nous besoin de mettre un IF END à la fin ?

le "End If" est nécessaire seulement si tu va à la ligne après "Then".
Exemple de synthaxe:

sans End If:
If ...... Then ..........

avec End If:
If ......... Then
.........
............
End If