Pb avec sheets et range

Version imprimable

Bonjour,
Voici 2 petitS bout de code
Le premier ne renvoie rien ?

Code:

1
2
3
4
5
6
7
8
9
10
Sub P_CreaInsert()
Dim vPlage As String, vNomFeuil As String
Dim vTabPlage As Range, vCell As Variant
vNomFeuil = InputBox("Entrez le nom de la feuille :", "Nom Feuille ?")
vPlage = InputBox("Entrez la plage de cellule", "Plage ?")
Set vTabPlage = Sheets(vNomFeuil).Range(vPlage)
For Each vCell In vTabPlage
    MsgBox vCell.Value
Next
End Sub

Le second renvoie les valeurs de la plage

Code:

1
2
3
4
5
6
7
8
9
10
Sub P_CreaInsert2()
Dim vPlage As String, vNomFeuil As String
Dim vTabPlage As Range, vCell As Variant
'vNomFeuil = InputBox("Entrez le nom de la feuille :", "Nom Feuille ?")
vPlage = InputBox("Entrez la plage de cellule", "Plage ?")
Set vTabPlage = Range(vPlage)
For Each vCell In vTabPlage
    MsgBox vCell.Value
Next
end Sub

Je suis sous excel 2007 et windows vista
Je ne vois pas ce qui ne va pas ??
Merci de votre aide

08/07/2009, 17h41
Fvandermeulen

Salut,
A priori dans le second, le code fonctionne avec la feuille active.
Donc il faut que tu vérifies, dans ton premier code, ce que renvoi ta variable vNomFeuil dans la ligne:

Code:

Set vTabPlage = Sheets(vNomFeuil).Range(vPlage)

A+
08/07/2009, 22h24
olaxius

Le même code fonctionne sous Excel 2000 !:help::furieux::fou:

Une façon de vérifier ce que dit Fvandermeulen dont je partage l'idée :

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub P_CreaInsert2()
Dim vPlage As String, vNomFeuil As String
Dim vTabPlage As Range, vCell As Variant
    'vNomFeuil = InputBox("Entrez le nom de la feuille :", "Nom Feuille ?")
    vPlage = InputBox("Entrez la plage de cellule", "Plage ?")
    Set vTabPlage = Range(vPlage)
    Msgbox ActiveSheet.name
    For Each vCell In vTabPlage
         MsgBox vCell.Value
    Next
end Sub