Discussion :

[quentin9]

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 !

[SfJ5Rpw8]

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.

[quentin9]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

Supprime

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.cells.value

[quentin9]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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