Cours préparatoire : cells ou range().select...

[Charly88]

Rebonjour, une cellule qui ne veut pas se sélectionner, c'est tellement simple que je ne vois pas où ça cloche :

Private Sub CommandButton1_Click()

Dim Feuillesource As String

Feuillesource= Sheets("Paramétrage").Range("B6").Value

For i = 1 To Sheets.Count 'vérification de la non-existence de la feuille
    If Sheets(i).Name = Feuillesource Then y = 1
Next i

If y = 0 Then
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
    Sheets("Paramétrage").Select
[B]'    Cells(6, 2).Select    '???? Qu'est-ce qui plante ?
    Range("B6").Select[/B]
Else
    Carma.Show
End If

End Sub

Evidemment les 2 possibilités fonctionnent dans une macro à part, je n'y comprends rien à nouveau. La page paramétrage se sélectionne correctement...
Dans les 2 cas, erreur 1004, select method class of range failed...

 

[Lii]

Re : Cours préparatoire : cells ou range().select...

Bonjour,

à tester :

...
    MsgBox "La feuille de base indiquée en paramètre n'existe pas."
   [B] Application.Goto (Sheets("Paramétrage").Range("B6"))[/B]
...

 

[PascalXLD]

Re : Cours préparatoire : cells ou range().select...

Bonjour

Si ton code se trouve dans le code d'une feuille et non dans un module cela va planter je pense
C'est peut-être là le problème

 

[Charly88]

Re : Cours préparatoire : cells ou range().select...

Bonjour Lii et merci.

Pascal : dans le bouton d'une autre feuille et c'est peut-être ça qui explique en effet, du coup j'ai 2 solutions, celle de Lii et celle-ci :

  Sheets("Paramétrage").Select
  Sheets("Paramétrage").Range("B6").Select

La seule 2è ligne suffirait logiquement mais je sais depuis longtemps qu'elle plante, il faut donc le positionner sur la bonne feuille et, dans ce cas précis, lui donner l'adresse complète.

Merci à tous les deux.

 

[Staple1600]

Re : Cours préparatoire : cells ou range().select...

Bonjour à tous


Comme cela aussi

With Sheets("Paramétrage")
.Activate
.Range("B6").Select
End With