Parcours d'une sélection cellule par cellule

Bonjour à tous,

Voilà j'ai une petite problématique que je n'arrive pas à régler en VBA et je souhaiterai un petit coup de main afin de m'aidez a mettre en place une macro.

Admettons que j'ai un fichier excel avec les données suivante :

colonne_1	colonne_2	colonne_3	colonne_4
a	b	c	d
e	f	g	h
i	j	k	l
l	m	n	o

et que je sélectionne sur excel les colonnes colonne_1, colonne_3 et colonne_4
je souhaiterai (par la macro) parcourir chaque cellules de la sélection colonne par colonne et effectué un traitement (exemple : afficher ça valeur).

Est-ce possible si oui comment ?
J'ai essayé avec un Selection.Area mais sa ne semble par être une bonne option.

Merci d'avance !

Bonsoir,

oui c'est possible mais cela veut dire quoi "afficher le contenu d'une colonne" ...?

pour parcourir les colonnes d'une sélection tu peu utiliser un For Each... sur la collection Columns de ta sélection.

Citation:

---

oui c'est possible mais cela veut dire quoi "afficher le contenu d'une colonne" ...?

---

Je veux dire afficher dans une Msgbox le contenu de la cellule d'une colonne

Je suis arrivé à un bout de la macro :

Code:

---

1 2 3 4 5 6 7

Sub parcours_selection() Dim d As Variant For Each d In Selection.Columns.Cells.Value MsgBox d Next d End Sub

---

Problème :
1 - Boucle infinie
2 - ne passe pas à la colonne suivante de la sélection

Supprime

Code:

---

.cells.value

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Sub parcours_selection() Dim d As Variant Dim ligne_max, i As Integer For Each d In Selection.Columns ligne_max = d.Cells(Cells.Rows.Count, 1).End(xlUp).Row 'parcours des cellules de la colonne For i = 1 To ligne_max MsgBox d.Cells(i) Next i Next d End Sub

---

Je suis parvenus à faire ma mini-macro merci de l'aide :D