Discussion :

[kakov]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[jmh51]

Bonjour,

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

par

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

et je pense que ça devrait aller

[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)

[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

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[cafeine]

Hello,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[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!!!