Titre du sujet : Re: Savoir quelle case est active
par myDearFriend! le 26/04/2010 12:41:06
Bonjour vodkaddict, le Forum,
Pour connaître l'adresse d'une cellule ("A1" par exemple), il convient d'utiliser la propriété Address comme suit :
MsgBox ActiveCell.Address
'renvoie $A$1
MsgBox ActiveCell.Address(False)
'renvoie $A1
MsgBox ActiveCell.Address(, False)
'renvoie A$1
MsgBox ActiveCell.Address(False, False)
'renvoie A1
Pour tout savoir sur les arguments acceptés par cette propriété Address, consulter l'aide VBA (curseur d'édition sur le mot clé Address et appui sur la touche F1)
Cela dit, je te propose peut-être une autre façon de faire, que tu retrouveras dans le module de code de la feuille 1 dans ton fichier modifié en retour :
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
'myDearFriend! - www.mdf-xlpages.com
Set Target = Target(1) 'Evite plantage si plusieurs cellules sélectionnées
If Not Application.Intersect(Target, Columns(3)) Is Nothing Then 'Contrôle colonne C
If Target.Value <> "" Then
With Rows(Target.Row + 1).EntireRow
If .Hidden Then
.Hidden = False
End If
End With
End If
End If
End Sub
Cordialement,
|
Didier FOURGEOT