Cellule active
Prodelapanne
Messages postés
2
Statut
Membre
-
Prodelapanne Messages postés 2 Statut Membre -
Prodelapanne Messages postés 2 Statut Membre -
Bonjourà tous,
je suis nouveau sur le forume et de plus je découvre Excel ( et son langage).
j' ai récuper une code sur le net, que j'ai modifié , il me permet de donner une valeur de 1 à la cellule activée et de 0 lors que l'on la desactive.
je souhaiterai que sur un groupe de cellule (D16:G16) de la même ligne on ne puisse activer qu'une celulle, en gros si D16 est activée et que l'on clic sur E16, D16 se desactive.
Et j'aimerai répéter cette formule pour d'autres lignes distinctes (lignes 16, 18,21) .
voici le code que j'utilise
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <= 0 Then
ActiveCell = 1
Else
ActiveCell = 0
End If
End Sub
merci
je suis nouveau sur le forume et de plus je découvre Excel ( et son langage).
j' ai récuper une code sur le net, que j'ai modifié , il me permet de donner une valeur de 1 à la cellule activée et de 0 lors que l'on la desactive.
je souhaiterai que sur un groupe de cellule (D16:G16) de la même ligne on ne puisse activer qu'une celulle, en gros si D16 est activée et que l'on clic sur E16, D16 se desactive.
Et j'aimerai répéter cette formule pour d'autres lignes distinctes (lignes 16, 18,21) .
voici le code que j'utilise
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell <= 0 Then
ActiveCell = 1
Else
ActiveCell = 0
End If
End Sub
merci
2 réponses
-
bonjour
j'ai supposé que tes plages zone1, zone2, zone3 etc .. doivent etre traitées de façon independante
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Range("zone1"), Target) Is Nothing Then Range("zone1").Value = 0 Target.Value = 1 End If If Not Intersect(Range("zone2"), Target) Is Nothing Then Range("zone2").Value = 0 Target.Value = 1 End If If Not Intersect(Range("zone3"), Target) Is Nothing Then Range("zone3").Value = 0 Target.Value = 1 End If End Sub
bonne suite -
bonjour ccm81
c'est exactement ce que je cherchais, merci pour ta rapidité
à bientôt
