Utiliser la cellule active dans une plage de données restreinte

guilo49 · 26 Novembre 2014

Bonjour,

j'aimerais qu'à la sélection d'une cellule comprise entre J5 et Q64, une croix apparaisse directement mais pas dans le reste de la feuille, uniquement dans la plage déterminée; et bien sûr avant de sélectionner une cellule de la plage, elles sont vides.

Voilà ce que j'ai tenté en vba mais ça ne fonctionne pas ça met la croix pour la cellule active sans restriction.

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each cel In Sheets("SuiviCI1").Range("J5:Q64") '
ActiveCell.Value = "x"
Next
End Sub

Merci par avance pour votre aide.

vgendron · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonjour,

pas sur d'avoir tout compris
activecell.valeur="X" ne met une croix QUE dans la cellule active. normal. c'est ce que le code demande: ACTIVECell
toi. si j'ia bien saisi. tu veux une croix dans toute la range J5:Q64
for each Cel in....
Cel.Value="X"

qu'entends tu par. "Sans restriction"?

camarchepas · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonsoir à tous ,

Comme ceci par exemple

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Intersect(Range("J5:Q64"), Target) Is Nothing Then    Target = "X"
   

End Sub

Modeste geedee · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonsour®

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim XX
 Set XX = Intersect(Target, Range("J5:Q64"))
 If XX Is Nothing Then Exit Sub
 XX.Value = "X"
 End Sub

guilo49 · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonsoir à tous merci pour vos réponses.

La solution de camarchepas est celle que je recherchais. C'est exactement ce qu'il me fallait ! Le code est très propre en plus. Bravo !

Merci.

Modeste geedee · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonsour®

tsss... tsss...
que se passe-t-il si tu sélectionnes :
une plage à cheval sur la zone "J5:Q64" ??? (ex B2:L15)
une ligne ou une colonne complète ???

Le code est très propre en plus.

je n'ai pas vu le label "Mr Propre" (NaClO)

camarchepas · 26 Novembre 2014

Re : Utiliser la cellule active dans une plage de données restreinte

Bonsoir,

@ Modeste Geedee
: et oui ,

donc

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Not Intersect(Range("J5:Q64"), Target) Is Nothing Then Intersect(Range("J5:Q64"), Target) = "X"

End Sub

Utiliser la cellule active dans une plage de données restreinte

guilo49

XLDnaute Nouveau

vgendron

XLDnaute Barbatruc

camarchepas

XLDnaute Barbatruc

Modeste geedee

XLDnaute Barbatruc

guilo49

XLDnaute Nouveau

Modeste geedee

XLDnaute Barbatruc

Pièces jointes

camarchepas

XLDnaute Barbatruc

Discussions similaires