Donner focus à une celluleRésolu

Question

Bonjour, 

Dans une cellule j'ai entré les coordonnées d'un groupe de cellule sous la forme : 
moulage!$AU$33:$AW$33 (ce sont des cellules fusionnées)
où moulage est le nom de ma feuille.

Maintenant je voudrais qu'en appuyant sur un bouton (dans un userform), je retrouve ma zone quelque soit la feuille du classeur ouverte. Je pensais pour ça donner le focus à la zone mais je ne trouve pas la bonne formule.

Si quelqu'un a une idée ça m'arrangerais..

Merci

drikce06 · Accepted Answer

Chez moi ça marche :
Worksheets(NomFeuille).Range(plage).Select
Mais si avec l'autre solution c'est bon!
N'oublie de valider la réponse qui a répondu à ton problème.

 Drikce 06

drikce06 · Answer

C'est quelle language? VB6, VBA, VB.Net?
Worksheets("moulage").Select ou Activate
Range("AU33:AW33" )

 Drikce 06

Tidauph0 · Answer

pardon c'est en VBA

le problème Drikce c'est que le nom de ma feuille ainsi que la cellule ne seront pas toujours les mêmes. Pour utiliser ta solution, il faudrait pouvoir extraire le nom de la feuille et les coordonnées de la cellule séparément et ça je ne sais pas le faire.

cs_Bidou · Answer

Déplacé sur vbfrance !














 



-Blog-

drikce06 · Answer

Nomme la plage de cellule et après range("NomDeLaCellule")

 Drikce 06

drikce06 · Answer

Petites exemples:

'Nommer une cellule
Range("A1").Name = "NomDeLaCellule")

'Sélectionner une cellule nommée
Range("NomDeLaCellule").Select

'Supprimer le nom de la cellule
ActiveWorkbook.Names("NomDeLaCellule").Delete

 Drikce 06

Tidauph0 · Answer

Donc si je comprends bien, je remplace "A1" de ta formule par la variable qui contient "moulage!$AU$33:$AW$33" ce qui me donne :

Range(Adresse).Name =  "Cellule"
Range("Cellule").Select
ActiveWorkbook.Names("Cellule").Delete

Adresse = variable qui contient  "moulage!$AU$33:$AW$33" 
Cellule  = nom que je veux donner temporairement au groupe de cellule que je recherche

Seulement VB plante et me dit : "La méthode select de la classe Range a échoué"

Sinon par rapport à ton précédent post, ça fonctionne en mettant simplement 
Range(adresse).Activate
Mais que si je suis sur la page qui contient la cellule recherchée. Hors il faut que je puisse la trouver même si je suis sur une autre page.

Sinon comment récupérer simplement la partie "moulage" à l'intérieur de la variable adresse? Mais ça me semble difficilement possible.

Je viens de m'apercevoir qu'il faut peut-être que je précise que certaine cellules que je cherche sont dans la feuille "moulage", mais j'en ai d'autres qui se trouvent dans d'autres feuilles d'où la nécessité de pouvoir rechecher quelque soit la feuille affichée
ex : "assemblage!$G$6:$I$6" (où assemblage est une autre feuille)

drikce06 · Answer

Je me penche sur ton probleme!
Tu fais un split sur ta variable addresse!
Essaye de voir avec cette fonction.

 Drikce 06

drikce06 · Answer

Tiens avec ça tu obtiens NomFeuille = "moulage"

Dim Adresse As String
Dim Splitnomfeuille() As String
Dim NomFeuille As String


Adresse = "moulage!$AU$33:$AW$33"
Splitnomfeuille() = split(Adresse, "!", -1, vbTextCompare)
NomFeuille = Splitnomfeuille(0)

 Drikce 06

drikce06 · Answer

Ce qui nous donne pour sélectionner cette feuille et la plage :

Dim Adresse As String
Dim Splitnomfeuille() As String
Dim NomFeuille As String
Dim Plage As String


Adresse = "moulage!$AU$33:$AW$33"
Splitnomfeuille() = split(Adresse, "!", -1, vbTextCompare)
NomFeuille = Splitnomfeuille(0)


Plage = Replace(Splitnomfeuille(1), "$", "", 1, -1, vbTextCompare)


Worksheets(NomFeuille).Range(Plage).Select

 Drikce 06

Tidauph0 · Answer

Je te remercie. J'étais parti du boulot quand tu m'a répondu donc je ne pourrais tester tout ça que demain. En tout cas, de vue comme ça, ça à l'air de coller même si je ne connais pas la fonction split (c'est d'autant plus interessant..  )

Je te donne des nouvelles demain

merci

Tidauph0 · Answer

salut,
ça bloque toujours. Sur la derniere ligne il me dit que la méthode select de la classe range a échoué.

J'ai essayé de remplacer la variable nomfeuille dans la formule par Feuil8.name (feuil8 étant la feuille moulage) et ça plante aussi.

Tidauph0 · Answer

J'ai compris!! Il faut le faire en 2 temps :

Worksheets(NomFeuille).Select
Range(plage).Activate

c'est super je vais pouvoir continuer...

drikce06 · Answer

Le dernier code que j'ai mis ne fonctionne pas chez toi? Parce que chez moi si je nomme une feuille moulage il marche très bien! Donne le code que tu as mis pour voir!

 Drikce 06

Tidauph0 · Answer

je ne t'envoi que la partie qui nous interesse :

   Adresse = Worksheets(feuille).Cells(Ligne, colonne + 30)
   Splitnomfeuille() = Split(Adresse, "!", -1, vbTextCompare)
   NomFeuille = Splitnomfeuille(0)
   plage = Replace(Splitnomfeuille(1), "$", "", 1, -1, vbTextCompare)
   Worksheets(NomFeuille).Select
   Range(plage).Activate

Tidauph0 · Answer

Je vais valider la réponse. En tout cas merci pour ton aide

drikce06 · Answer

Réessaye avec ça: j'ai pas testé mais cela doit fonctionner:

Adresse = Cstr(Worksheets(feuille).Cells(Ligne, colonne + 30).Value)
Splitnomfeuille() = Split(Adresse, "!", -1, vbTextCompare)
NomFeuille = Splitnomfeuille(0)
plage = Replace(Splitnomfeuille(1), "$", "", 1, -1, vbTextCompare)
Worksheets(NomFeuille).Range(plage).Select

 Drikce 06

Tidauph0 · Answer

Je suis déolé mais ça plante toujours sur la méthode select. Peut-être que ça vient de la version d'Excel.. J'ai Excel 2002 SP3

drikce06 · Answer

Oui peut être que c'est du à ça! Mais si ça marche avec:
   Worksheets(NomFeuille).Select
   Range(plage).Activate

C'est bon!

 Drikce 06

Donner focus à une cellule

19 réponses

Votre réponse

Discussions similaires