Discussion :

[olaxius]

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

Code :

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

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 :

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

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

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

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

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

A+

[olaxius]

Le même code fonctionne sous Excel 2000 !

[ouskel'n'or]

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

Code :

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

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