vba : comment renvoyer le n° de colonne correspondant à la cellule active ?

Bonjour,

Je m'explique :

Je voudrais exécuter du code vba si la cellule dont la valeur vient d'être modifiée se trouve seulement dans une colonne et pas dans les autres...

Dans le genre :

Code:

---

1 2 3

if mysheet.col = 3 then (...) endif

---

J'ai pas mal cherché dans le forum et la faq vba / excel mais rien dans ce sens...

J'ai fait du vb6 il y a longtemps, j'ai pas mal oublié et je redémarre en vba...

J'ai le code qui marche mais actuellement quelle que soit la colonne et ça je veux éviter... :P

Merci.

bonjour

en utilisant l'interruption worksheet_change, tu as un paramette qui passe en meme temps : Target c'est un objet range, qui est la cellule ayant fait l'objet de la modification

donc :

Code:

---

1 2 3 4 5 6

if target.column = 3 then . . . . end if

---

Merci Wil. C'est tout à fait ce que je cherchais...

Avant mon code marchait sur l'évènement selection_change et pas sur worksheet_change et j'ai trouvé pq mais maintenant, le pb est que le code est déclenché par la validation de la cellule en cours et comme la sélection passe à droite après validation, la valeur de la cellule précédente traitée par mon code est entrée dans la cellule à sa droite...

Donc, je voudrais un truc qui permette de pouvoir entrer le résultat du code dans la cellule voisine de gauche de la cellule qui a obtenu le focus visuel, sans toucher à ce focus... Suis pas sûr d'être assez clair... 8O

Tu es très clair mais ce n'est pas le principe à adopter. Selon le mode de saisie, quand tu valides une ligne, tu peux passer à la cellule voisine, à droite ou en dessous...
Je déclarerais une variable Adres en Public dans la feuille de code, à laquelle j'affecterais l'adresse de Target dans Worksheet_SelectionChange et placerais ton code dans Worksheet_Change.
pour éclairer cette méthode, teste ça :

Code:

---

1 2 3 4 5 6 7 8 9

Public Adres   Private Sub Worksheet_Change(ByVal Target As Range) MsgBox Range(Adres).Value End Sub   Private Sub Worksheet_SelectionChange(ByVal Target As Range) Adres = Target.Address End Sub

---

Après, tu adaptes ;)
A+

Super... ça marche ! :yaisse2:

Merci.

Bon... j'avais déjà mis le tag résolu mais comme j'ai encore une question concernant la navigation dans les colonnes, je l'ai enlevé pour regrouper ce genre de questions, ça peut être utile pour les autres... 8O

Comment faire si je suis en colonne 5 et que je veux, après validation un retour en colonne un et à la ligne suivante ?

... une piste ? ...un bout de code ? ;)

Merci.

Bonjour,
Si j'ai bien compris:

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) ligne = Target.Row   Range("A" & ligne + 1).Activate End Sub

---

Je complète juste

Code:

---

1 2 3 4

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 5 Then _ Cells(Target.Row, 1).Offset(1, 0).Select End Sub

---

Citation:

---

Envoyé par Jean-Pierre49

Bonjour,
Si j'ai bien compris:

Code:

---

1 2 3 4 5

Private Sub Worksheet_Change(ByVal Target As Range) ligne = Target.Row   Range("A" & ligne + 1).Activate End Sub

---

---

Impeccable... Merci. ;)

@ ouskel'n'or ---> j'ai pas encore testé ton code, je viens de le voir à l'instant... verrai ça asap ;)

J'ai simplement ajouté un test sur le N° de colonne ;)