Problème sélection cellule à coordonnées variables

[Galien]

Bonjour !

J'ai créé ce bout de programme afin de rechercher une cellule suivant les valeurs d'une autre cellule. Tout marche bien jusqu'à la partie en rouge : il refuse d'activer la cellule trouvée. A totu hasard, j'ai essayé d'activer àpartir de cet endroit une celulle bidon genre "range("I9").select", ça ne marche pas non plus.

Quelqu'un saurait-il pourquoi ?

Dim ref As String
Dim recherche As Range
Dim alpha As Integer
' alpha est la valeur à la dernière valeur du lot alph à partager entre Rem et marie avant le passage en série.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Value = "Alpha" Then
macro1
ElseIf Target.Value = "Série" Then
ActiveCell.Offset(0, -5).Select
ref = ActiveCell
Sheets("calculs").Select
Set recherche = Columns("A:A").Find(What:=ref, lookat:=xlWhole)
Range("D" & recherche.Row).Select
Macro2


Else
End If
End Sub


D'avance merci !
Galien

 

[tototiti2008]

Re : Problème sélection cellule à coordonnées variables

Bonjour Galien,

Dans le code évènementiel d'une feuille, il n'est pas bon d'activer une autre feuille, et ça ne fonctionne pas toujours bien...
Explique nous ce que le code doit faire , avec un fichier exemple contenant quelques valeurs

 

[Guest]

Re : Problème sélection cellule à coordonnées variables

Bonjour,

Essaie ceci:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Value = "Alpha" Then
        macro1
    ElseIf Target.Value = "Série" Then
        ActiveCell.Offset(0, -5).Select
        ref = ActiveCell
        Set recherche = Sheets("calculs").Columns("A:A").Find(What:=ref, lookat:=xlWhole)
        If Not recherche Is Nothing Then Application.Goto Sheets("calculs").Range("D" & recherche.Row)
        Macro2
    Else
    End If
End Sub

A+

[Edit] ceci dit, TotoTiti a raison d'autant plus qu'on ne sait pas ce que fait MACRO2 ensuite.

 

[Pierrot93]

Re : Problème sélection cellule à coordonnées variables

Bonsoir Galien

A priori tu es dans une procédure événementielle placée dans le module d'une feuille et tu active une autre feuille "Sheets("calculs").Select", en l'état de ton code, pas de précision sur le nom de la feuille sur laquelle la recherche doit s'effectuer, elle s'effectue sur la feuille où se trouve ta macro....

Il faut donc préciser le nom de ta feuille sur les objets "range" concernés...

Set recherche = Sheets("calculs").Columns("A:A").Find

A noter également qu'en vba les "select" sont rarement utiles...
bonne soirée.
@+

Edition : Un peu en retard moi, bonsoir Hasco, toto

 

[Galien]

Re : Problème sélection cellule à coordonnées variables

Merci pour vos réponses.
Alors ça marche si je prog comme ça :
Sheets("calculs").Select
Set recherche = Columns("A:A").Find(What:=ref, lookat:=xlWhole)
If Not recherche Is Nothing Then Application.Goto Sheets("calculs").Range("D" & recherche.Row)


En fait je dois mettre à jour ce tableur.

Nous avons deux types de lot Alpha (pré-série) et Série.
Sur une de mes feuilles chacune des reférences dispose d'un liste déroulante : Alpha ou Série. Quand je passe en Série, j'ai toute une série de données à isoler pour la ref en question et elle-seule.

Bon maintenant tout cela devrait s'éclaircir. Merci encore !