High-Tech Santé Médecine Droit-Finances

Grippe A

Que dois-je faire ?

Rechercher : dans
Par :

VBA récupérer coordonnée sélection

Dernière réponse le 3 jui 2007 à 15:25:35 win1515, le 2 jui 2007 à 09:03:42 
 Signaler ce message aux modérateurs

Bonjour,

Qqn pourait il me dire quelle est l'instruction en VBA qui permet de récupérer dans des variables, les coordonnées d'une sélection de plusieurs cellules.

Je sais que pour une cellule l'instruction est de type suivante :
ligne = ActiveCell.Row: colonne = ActiveCell.Column

Mais pour une selection de cellules.... mystère...

Si vous avez des idées.... n'hésitez pas

Configuration: Windows XP
Internet Explorer 7.0

Posez votre question Répondre

1

aquarelle, le 2 jui 2007 à 23:23:02

Bonsoir,
il faut utiliser par exemple :

Pour la sélection d'une plage de cellules sur une ligne faire : 

Range("A1:K1").Select
sélectionne dans la ligne 1 les cellules de A à K

Pour la sélection d'une plage de cellules sur une colonne faire : 
Range("A1:A28").Select
sélectionne dans la colonne A les cellules de 1 à 28

Pour la sélection d'une plage de cellules sur plusieurs colonnes et lignes faire : 
Range("A1:K28").Select
sélectionne dans les colonnes A à K les cellules de 1 à 28

Voilà, j'espère que cela pourra t'aider.

Bonne nuit.

   
Répondre à aquarelle

2

OngNoi, le 3 jui 2007 à 10:37:25

Quand on connait les références de la plage, c'est relativement facile avec les exemples de Aquarelle.
Mais si l'on ne connait pas les coordonnées de la cellule active ni celles de la plage , comment faire ?
Quelqu'un peut-il me donner le code pour:
A partir de la cellule active (dont les coordonnées sont variables), sélectionner la cellule qui se trouve 3 lignes suivant et dans la 2è colonne à droite. Ex: si la cellule active est D9, dire à la macro de sélectionner G11 ?
Merci

   
Répondre à OngNoi

3

aquarelle, le 3 jui 2007 à 13:26:37

Bonjour,
En ce qui concerne ton exemple avec cette macro appelée ici essai(), cela sélectionne à partir de la cellule active, la cellule située 3 colonnes après et 2 lignes plus bas (comme ton exemple soit si D9 active sélection de G11) 

Sub essai()
ActiveCell.Offset(rowOffset:=2, columnOffset:=3).Activate
End Sub

Voilà, je te souhaite une bonne journée.

   
Répondre à aquarelle

4

 Lupin.A, le 3 jui 2007 à 15:25:35
  • +2

Bonjour,

Autre exemple de sélection : 

'Effectuer une sélection de cellule pendant l'appel
Sub Capture_Selection()

    Dim Plage As Range, Cellule As Range
    
    Set Plage = Application.InputBox("Sélectionner une plage", "SÉLECTION", Type:=8)
    
    For Each Cellule In Plage
        MsgBox "Adresse = " & Cellule.Address & vbCrLf & "Valeur = " & Cellule.Value
    Next Cellule
    
End Sub
'

'Effectuer une sélection de cellule avant l'appel
Sub Capture_Saisie()

    With Selection
        MsgBox Selection.Address
    End With
    
End Sub
'


Lupin

   
Répondre à Lupin.A
Posez votre question Répondre
Ils ont besoin de votre aide