Selection de feuille avec un nom variable

Version imprimable

Bonjour je voudrais sélectionner des feuilles, leurs noms sont dans une feuille, un nom par cellules!
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Sub repartir() Dim j As Double Dim m As String For j = 0 To 7 If Cells(4 + j, 2) <> "" Then m = Cells(4 + j, 2) Worksheets(m).Select Else End If Next End Sub
le problème doit venir du m parce que quand je remplace m par le nom de la feuille qui est dans la cellules ça marche...

Merci

23/10/2008, 14h10
jmh51

Bonjour,

Tu dois remplacer m = Cells(4 + j, 2)

par

m = Cells(4 + j, 2).Value

et je pense que ça devrait aller
23/10/2008, 14h11
Godzestla

Bonjour,

quand tu prends M en debug quand ton code se plante, qu'est-ce qu'il vaut ?

(Tu mets le pointeur de ta souris sur la variable dans le code)
23/10/2008, 14h23
kakov

m = Cells(4 + j, 2).Value
ça ne marche pas

en debug j'ai m = "OESX NOV08" et dans ma cellule il est ecrit OESX NOV08 et ma feuille s'appelle bien OESX NOV08 ,de plus quand je remplace m par "OESX NOV08" ça marche...

j'utitlise la version 6.3 de VB

Merci
23/10/2008, 14h49
Invité
Bonjour,

En ce qui me concerne, votre procédure fonctionne parfaitement.

Compte tenu du fait que pour vous cela fonctionne quand vous remplacez la variable par le nom de la feuille êtes vous tout à fait certain que dans l'intitulé écrit dans la cellule, il n'y a aucune confusion de caractères :

-OESX NOV08 : du genre "O" remplacé par 0 ou vice-versa ?
-un espace en plus ?

si vous testez en ajoutant ce code :
Code:

1 2 3 If Cells(4 + j, 2) <> "OESX NOV08" Then msgbox "Erreur" end if

Hello,

voici un exemple de procédure en passant une plage (verticale) en argument

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub SheetSelectionByRange(ByVal r As Range)
 
Dim tmp() As Variant
Dim i As Integer
 
Sheets(1).Select
tmp = r.Cells
For i = LBound(tmp, 1) To UBound(tmp, 1)
    If i = LBound(tmp) Then
        Sheets(tmp(i, 1)).Select
    Else
        Sheets(tmp(i, 1)).Select (False)
    End If
Next i
 
End Sub

23/10/2008, 15h50
kakov

Merci a tous!

Merci Jean Jacques mon probleme etait en effet que dans la cellule il y avait un espace apres OESX NOV08 du coup le nom de ma feuille n'etait pas reconnu...

C'est bête mais ça ma pris la journée!!!:evilred: