Lecture dans un range dynamique

1 pièce(s) jointe(s)

Bonjour à tous,

Je souhaiterais un petit peu d'aide concernant un problème.

Après avoir défini un range dans une feuille Excel (XL 2010) je souhaite parcourir les cellules de la 1ère colonne.

Par exemple :
Code:

1 2 3 4 5 6 Dim mRange as range Dim maFeuille as Workseets set maFeuille : thisworkbook.sheets("Résultat") set mRange = maFeuille.range("C5:F15")
Maintenant je souhaite lire les cellules de la colonne 1 de mRange (soit la colonne C).

Le mRange.Row(1) fonctionne mais uniquement si la feuille en question est active. Ce qui m'embète puisque je ne souhaite pas ajouter du ".activate" dans mon code.

L'idée étant de lire les cellules d'une colonne afin de fusionner toute celles qui sont identiques (les données sont déjà triées de A à Z).
Le nombre d'éléments peut être variable.

Pour cela, je souhaite passer par un range dynamique car j'ai plusieurs tableaux dans différents endroits / différentes pages qui nécessite le même traitement. J'ai déjà le code me permettant de trouver chaque tableau et définir son range (longeur / largeur)

En PJ un exemple du format brut et du format recherché.

Merci par avance de vos avis, je sèche un peu sur la méthode la..
Bonne journée à tous

Bonjour.

Pour lire chaque cellule de la colonne 1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub tt()
 
Set maFeuille = ThisWorkbook.Sheets("Résultat")
 
Set r = maFeuille.Range("d9:g23")
r.Select
Stop
 
'Examiner chaque cellule de la colonne 1
col = 1
For ligne = 1 To r.Rows.Count
 
 r.Cells(ligne, col).Select
 Stop
 
Next
 
End Sub

Bonjour,

Merci pour ce code. J'ai finalement préféré redéfinir mon range à la colonne qui m'interessais.

Bonne journée