Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Chercher si la cellule active appartient à une plage de données

  • Initiateur de la discussion SaYaN
  • Date de début
S

SaYaN

Guest
Bonjour à tous, le forum,

Je pensais que le sujet avait déjà été traité mais je n'ai rien trouvé. Je m'en remet à vous les amis.
Je cherche à vérifier si ma cellule active appartient à une plage de données ou pas.
Mon but est d'executer du code si oui et si elle n'est pas dans la plage ne rien faire.

GSPR que vous saurez me répondre, je vais boire un café, alors à vos clavier lol.Et merci d'avance
 
J

Jean-Marie

Guest
Bonjour, SaYaN

Regarde ce code :

Sub ........

If ActiveCell.Row >= 1 And ActiveCell.Row <= 10 And ActiveCell.Column >= 1 And ActiveCell.Column <= 10 Then
' la cellule active est dans la plage désirée A1:J10
ton code ....
End If
End Sub

J'espère avoir répondu à ta question

Bonne journée

@+Jean-Marie
 
P

PhiBou

Guest
Salut SaYaN, Jean-Marie, Forum

Une autre version (comme ça on aura la totale !)

Si ta plage de données est A120

Sub Essai()
If Not Application.Intersect(ActiveCell, Range("A120")) Is Nothing Then
' Tes instructions
End If
End Sub

Bonne journée

PhiBou
 
S

SaYaN

Guest
Bonjour JM, Phibou, le forum,

Voici une autre méthode (la pause café m'a fait du bien lol !)
J'ai trouvé un moyen dans mon code pour vérifier si ma cellule active appartient à ma plage de données.
Etant donné que ma plage se situe strictement en A, je n'ai qu'à vérifier que le numéro de colonne soit le meme, c'est à dire "1". J'aurais pu écrire aussi "if W = "1" then...


W = ActiveCell.Column
For Each Cellule In Range("A7:A36")
If W = Cellule.Column Then...

C cool d'avoir répondu, meme si je n'ai pas eut besoin d'utiliser vos méthodes ca m'a appris des choses, et j'espere que ca serviera à d'autres.
Merci à tous les 2, et aux autres lol.@+

SaYaN
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…