selectionner colonne selon critere dans cellule [Résolu]

[BLACKHAYES]

Bonjour le forum,

Je voudrais savoir si il existe une formule qui me selectionnerait une cellule selon la valeurs d'une autre.

Voila dans "feuil2 C30" = "Feuil1 B18", et je voudrais que dans feuil2 selon la valeur dans C30, cela recherche la cellule dans ma plage (C8:AE8) et vienne se positionner dessus sans changer de feuil.
juste que quand j'irais sur feuil2 ma cellules oit deja selectionner.

merci d'avance,
BLACKHAYE's

 

[phlaurent55]

Re : selectionner colonne selon critere dans cellule

Bonjour Blackhayes,

avec ce code à mettre dans ThisWorkBook

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = ("Feuil2") Then Cells(8, Cells(30, 3) + 2).Select
End Sub

à+
Philippe

 

[BLACKHAYES]

Re : selectionner colonne selon critere dans cellule

Bonjour phlaurent55,

Votre code fonctionne tres bien dans votre example "fichier 111" ,
mais dans mon fichier ca ne fonctionne pas.
par contre j'ai peut etre fait une betise en ne disant pas que mes cellules C8:AE8 et C30 en Feuil2 sont du texte.
serait-ce la mon probleme que le code ne fonctionne pas !!! ?

BLACKHAYE's

 

[phlaurent55]

Re : selectionner colonne selon critere dans cellule

Re,

par contre j'ai peut etre fait une betise en ne disant pas que mes cellules C8:AE8 et C30 en Feuil2 sont du texte.

Le fait que ces cellules soient du texte n'a aucune influence sur le fonctionnement

Par contre, est-ce que les cellules (B18 en feuille 1) et ( C30 en feuille 2) sont en numérique avec des valeurs de 1 à x

Autre piste: le code a-t-il été mis à la bonne place (dans ThisWorkBook)
Autre piste 2: est-ce que le sh.Name est correct (le nom qui apparaît dans l'onglet)

à+
Philippe

 

[BLACKHAYES]

Re : selectionner colonne selon critere dans cellule

re phlaurent55,

Non mes cellules en B18 et C30 sont du texte aussi !!
oupss desolé (j'ai fait mon exemple avec du numerique) pardon, je n'ai pas reflechi
et mes feuil sont verrouillées

Amicalement,
BLACKHAYE's

 

[phlaurent55]

Re : selectionner colonne selon critere dans cellule

Re,

Non mes cellules en B18 et C30 sont du texte aussi !!
oupss desolé (j'ai fait mon exemple avec du numerique) pardon, je n'ai pas reflechi
et mes feuil sont verrouillées

Ma boule de cristal refuse obstinément de m'aider tant qu'elle ne pourra voir un fichier représentatif

à+
Philippe

 

[BLACKHAYES]

Re : selectionner colonne selon critere dans cellule

re phlaurent,

re voici mon fichier
j'ai remplacé mes chiffres par des lettres;
et renommées comme dans mon fichier d'origine
sachant que mes feuilles seront protegées.

Cordialement,
BLACKHAYE's

 

[phlaurent55]

Re : selectionner colonne selon critere dans cellule

Re,

avec ce code:

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Commentaire" Then
For Each cellule In Range("C8:AE8")
If cellule = Cells(30, 3) Then
Cells(8, cellule.Column).Select
Exit Sub
End If
Next cellule
End If
End Sub

à+
Philippe

 

[BLACKHAYES]

Re : selectionner colonne selon critere dans cellule

RE, phlaurent55

j'ai un conflit de code, quand j'insere votre il me dit qu'il manque une variable;
mais quand je retire le code qui est avant le votre dans "thisworkbbok" et dont j'ai besoin ca fonctionne !!???
ce code est ci dessous,
**********************************
Option Explicit
Private Sub Workbook_Open()
Sheets("Audits Joelle").Protect "toto", userinterfaceonly:=True, AllowFiltering:=True
Range("E24").Select
End Sub
*************************************

et dans thisworkbook il y a 3 codes differents dont le votre en dernier
voici tout ces codes, :
___________________________________________________
Option Explicit
Private Sub Workbook_Open()
Sheets("Audits Joelle").Protect "toto", userinterfaceonly:=True, AllowFiltering:=True
Range("E24").Select
End Sub
______________________________________________________
Private Sub Worksheet_Calculate()
Me.Unprotect "toto"
Rows("25:" & Rows.Count).AutoFit
Me.Protect "toto"
End Sub
_________________________________________________________
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If Sh.Name = "Commentaire" Then
For Each cellule In Range("C8:AE8")
If cellule = Cells(30, 3) Then
Cells(8, cellule.Column).Select
Exit Sub
End If
Next cellule
End If
End Sub
_______________________________________________
les 2premieres codes sont pour la feuil1 (Audit joelle)

si tout ca peut vous aider a trouver mon probleme
cordialement,
BLACKHAYE's

 

[phlaurent55]

Re : selectionner colonne selon critere dans cellule

Il sufut d'ajouter

Dim cellule as Range
Juste après. Private Sub Work .......
..

 

[BLACKHAYES]

Re : selectionner colonne selon critere dans cellule

re, phlaurent55,

Ouf grand merci, ca y est, ca fonctionne super bien.
Exactement ce que je voulais;

Encore désolé de ne pas avoir emis toutes les données au depart;

merci a vous et bonne soirée,
BLACKAHYE's