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