Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Excel > Macros et VBA Excel
Macros et VBA Excel Vos questions relatives aux macros Excel, à l'utilisation de VBA et à l'automatisation de vos classeurs Excel.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 13/11/2011, 14h27   #1
 
Inscription : juillet 2009
Messages : 21
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 21
Points : -5
Points : -5
Par défaut Coordonnées d'une cellule

Bonjour,

est ce qu'il est possible de stocker les coordonnées d'un cellule dans une variable ?

J'ai essayé ce code mais j'ai une erreur.

Code :
1
2
3
4
Dim macellule As Control
macellule.Row = ActiveCell.Row
macellule.Column = ActiveCell.Column
macellule.Value = "OK"
Quelqu'un peut m'aider ?
Sterne est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/11/2011, 14h36   #2
Expert Confirmé Sénior
 
Avatar de mercatog
 
Inscription : juillet 2008
Messages : 5 848
Détails du profil
Informations forums :
Inscription : juillet 2008
Messages : 5 848
Points : 13 907
Points : 13 907
Bonjour

Tu as déjà la collection Cells
__________________
Cordialement.
mercatog est déconnecté   Envoyer un message privé Réponse avec citation 10
Vieux 13/11/2011, 14h49   #3
 
Inscription : juillet 2009
Messages : 21
Détails du profil
Informations forums :
Inscription : juillet 2009
Messages : 21
Points : -5
Points : -5
en fait,

je souhaiterais créer 5 variables qui correspondent à 5 cellules et modifier les valeurs de ces cellules avec ces variables. C'est possible ?
Mon problème est que je ne sais pas comment déclarer ces cellules.

Code :
1
2
3
4
Dim macellule As Control ????
macellule.Row = ActiveCell.Row
macellule.Column = ActiveCell.Column
macellule.Value = "OK"
Sterne est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 13/11/2011, 15h58   #4
Expert Confirmé Sénior
 
Avatar de mercatog
 
Inscription : juillet 2008
Messages : 5 848
Détails du profil
Informations forums :
Inscription : juillet 2008
Messages : 5 848
Points : 13 907
Points : 13 907
Code :
1
2
3
4
5
6
7
8
9
Dim Plage as Range
 
Set Plage=Worksheets("Feuil1").Range("B14")
'Dans Plage tu as la cellule B14
 
'Set Plage=Worksheets("Feuil1").Cells(14, 2)
 
'à la fin
Set Plage=Nothing
__________________
Cordialement.
mercatog est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 07h03.


 
 
 
 
Partenaires

Hébergement Web