Rechercher : dans
Par :

Exce : sélection variable de cellules par VBA

Dernière réponse le 12 avr 2009 à 14:02:04 Rocky1286, le 11 avr 2009 à 11:09:06 
 Signaler ce message aux modérateurs

Bonjour,


Je cherche une macro pour réaliser l'action suivant sur un feuillet Excel :

Dans un tableau B1 à C10, comment faire sélectionner une cellule en indiquant son N° de colonne en cellule A1 et son N° de ligne en cellule A2.
Je veux préserver ces variables et ne pas désigner à l'avance la cellule à sélectionner dans les instructions de la macro.

Merci beaucoup de votre aide.

Configuration: Windows XP
Internet Explorer 7.0

Meilleures réponses pour « Exce : sélection variable de cellules par VBA » dans :
Tableur - La sélection des cellules Voir Sélection de cellules Le tableur est un formidable outil pour manipuler des données. Ainsi, pour pouvoir manipuler les données il est nécessaire de disposer d'outils permettant de sélectionner rapidement toutes les cellules dont on a...
[Excel] Colorer des cellules sur conditions VoirIl existe dans Excel des fonctions très pratiques mais peu connues et peu utilisées. Exemple : vous souhaitez qu'une cellule se colore automatiquement en rouge (ou autre mise en forme de police, de bordure, de trame) selon une condition : un...
[Excel] Ajouter une date fixe dans une cellule VoirSi vous souhaitez insérer la date du jour en cours dans une cellule, au format JJ/MM/AAAA, et que celle-ci reste fixe, sans remise à jour à chaque ouverture du fichier (par exemple pour indiquer la date de création du fichier): Tapez simplement ...
Sélection de cellules VoirSélection de cellules Un tableur est un formidable outil de manipulation de données. Qu’il s’agisse toutefois de référencer des cellules isolées ou des plages de cellules, que ce soit pour les besoins d’une formule, pour leur attribuer un format de...

1

 Lupin.A, le 12 avr 2009 à 14:02:04

Bonjour,

Nommer une nouvelle feuille [ Position ].

Placer cette macro derrière la feuille de la région B1 à C10.

La partie du message vous permets de savoir comment connaître
la ligne, et la colonne de la sélection.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim Plage As Range, Intersection As Range
    Dim Message As String, LaColonne As String
    Dim Position As Long
    
    Set Plage = Range("B1:C10")
    
    Set Intersection = Application.Intersect(Target, Plage)
    
    If Not (Intersection Is Nothing) Then
    
        ' Sauvegarde de la sélection
        Position = Sheets("Position").Range("A65536").End(xlUp).Row
        Sheets("Position").Cells(Position + 1, 1).Value = Target.Address
        
        ' Message d'information
        Message = "La sélection de l'utilisateur est :" & vbLf & vbLf
        Message = Message & "Ligne   : " & Target.Row & vbLf
        
        LaColonne = Mid(Target.Address, 2)
        LaColonne = Mid(LaColonne, 1, (InStr(1, LaColonne, "$", vbTextCompare) - 1))
        
        Message = Message & "Colonne : " & LaColonne & " - " & Target.Column & vbLf
        MsgBox Message
        
    End If

End Sub
'



Lupin
~L'essentiel est invisible pour les yeux~
  ~On ne voit bien qu'avec le coeur~

Répondre à Lupin.A
Collection CommentÇaMarche.net