adresse cellule

[polo34]

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.

 

[Eric_C]

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

 

[OnErrorResumeNext]

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

 

[polo34]

bonjour le forum

Merci pour vos réponses rapides et votre aide

A bientot

polo