Discussion :

[illight]

Bonjour,


Dans mon fichier Excel, j'ai nommé une plage de cellule, nommée plage qui représente par exemple :

Code :

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

Range("C3:Q17")

Cette plage de cellule, je l'ai nommée "Plage". Je voudrais en fait tout simplement savoir comment utiliser cette référence pour mes calculs. J'ai beau chercher un peu partout j'ai rien trouvé la dessus.

Faut-il écrire :

Code :

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

Plage.cells(1,1)

Par exemple pour avoir la cellule C3 ?

Et si une plage est dans une autre feuille, comment écrit-on un truc du genre :

Code :

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

sheets("Feuil1").Plage.cells(1,1)

Parce que j'ai essayé et ce code ne marche pas


Merci pour votre aide en tout cas

[ouskel'n'or]

Essaie ça sur une feuille renseignée

Code :

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

1
2
3
4
5
6
Sub TravailSurUnePlage()
Set plage = Range("C3:Q17")
For Each LaCell In plage
 MsgBox LaCell.Value
Next
End Sub

... et tires-en les conséquences
A+

[illight]

Bah le soucis c'est que je veux pas faire une boucle dessus moi je veux juste une cellule bien particulière qui appartient a cette plage.

De plus si c'est sur une feuille bien précise, je vois pas non plus comment faire...

Ah si je fais un :

Code :

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

Set P = Sheets("Feuil1").Range("C3:Q17")

ça marcherait

[ouskel'n'or]

Je complète

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub TravailSurUnePlage()
Dim Plage As Range
Set F1 = Worksheets("Feuil1")
Set Plage = F1.Range("C3:Q17")
For Each LaCell In Plage
 MsgBox LaCell.Value
Next
Set F1 = Nothing
Set Plage = Nothing
End Sub

A+

[ouskel'n'or]

Comment tu identifies la bonne cellule dans ta plage ?
Si tu peux faire un test, fais ça

Code :

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

1
2
3
4
5
6
7
8
9
For Each LaCell In Plage
 If LaCell.Value = "Coucou" then
'ou
   If LaCell.row = 5 then
'ou
   If LaCell.column = ...
'ou
   If LaCell.adress = ... 
Next

Précise ton tourment

[illight]

Je vais joindre un fichier tu vas comprendre

Tout est écrit dedans

[ouskel'n'or]

Ben, tu peux faire comme ça

Code :

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

1
2
3
4
5
Dim Cheval As Range
Dim Ecurie As Range
Set Cheval = Feuil1.Range("G11")
Set Ecurie = Feuil1.Range("D5")
Cheval.Copy Destination:=Ecurie