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
A voir également:
- Cellule active
- Proteger cellule excel - Guide
- Comment activé - Guide
- Excel cellule couleur si condition texte - Guide
- Active partition disk - Télécharger - Stockage
- Npd activé c'est quoi - Guide
2 réponses
bonjour
j'ai supposé que tes plages zone1, zone2, zone3 etc .. doivent etre traitées de façon independante
bonne suite
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
