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

adresse cellule

  • Initiateur de la discussion Initiateur de la discussion polo34
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

P

polo34

Guest
bonjour le forum,

Je fais appel à vous concernant un petit pb de localisation de cellule active.

En effet, je souhaite en VBA détecter si la cellule active se situe sur une colonne précise et si c'est le cas lancer une macro.

exemple: cellule active est A2 rien ne se passe
cellule active est B2 ou B4 ... alors elle est placée sur la colonne B donc je lance une macro

Une autre question si je peux abuser:

une cellule contient la chaine "a,b,c". Je voudrai l'éclater sur d'autres cellules afin que celles-ci soient égales à "a" pour la 1ere, "b" pour la 2e etc... Comment puis-je faire même dans le cas ou la longueur de chaine initiale n'est pas constante.

merci de votre aide.
 
Bonjour le forum
Bonjour Polo34

Réponse à la question 1 :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B:B")) Is Nothing Then
MsgBox "Tu as cliqué en" & Target.Address
End If
End Sub


Bonne semaine à toutes & à tous

@ + Eric C
 
bonjour Polo34,

en réponse à ta question 2,
voici une macro qui te permet "d'éclater" une plage (ici A1:A50) dans les cellules adjacentes avec comme séparateur la virgule :

--------------------------------------------------------------------------------
Sub eclate()
Application.ScreenUpdating = False
For Each c In Range("A1:A50")
part = Split(c, ",", , vbTextCompare)
For i = 0 To UBound(part)
c.Offset(0, i + 1) = part(i)
Next
Next
End Sub
---------------------------------------------------------------------------------

amicalement
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

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