[VBA-E]Déclaration d'une plage de données

**illight** · 02/02/2007, 14h32

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** · 02/02/2007, 14h48

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** · 02/02/2007, 14h52

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** · 02/02/2007, 14h53

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** · 02/02/2007, 15h00

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** · 02/02/2007, 15h12

Je vais joindre un fichier tu vas comprendre

Tout est écrit dedans

**ouskel'n'or** · 02/02/2007, 15h34

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

**illight** · 02/02/2007, 15h39

Tu fais exprès c'est ça hein avoue

**illight** · 02/02/2007, 15h54

Tiens en passant question subsidiaire : tu sais quel est le code Ascii de ce caractère justement (du cheval je parle) ? car quand je fais un "Asc" dessus, il me sort 63 (je crois, si mes souvenirs sont bons), mais si je fais un Chr(63), il me ressort pas mon caractère. Tu sais pourquoi ? ou comment le faire apparaitre en utilisant Asc, ou autre chose ? (genre un .Font ou un truc du genre)

(Pour information, ce caractère est présent, dans Word (j'ai fait un copier/Coller), dans caractères spéciaux > Arial Unicode MS > Dingbats divers (sous-ensemble) )