Bonjour,
je me permet de demander de l'aide sur un problème qui me laisse tourner en rond
voilà : dans les trois feuilles du classeur je souhaite recuperer les valeur
de la première colonnes dec chaque feuille alors
je fais le code suivant
je ne récupere que les valeur de la dernière feuille
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28 sub recuperer() dim v_col as string 'la valeur de cellule dim v_nom as string ' le nom de la feuille dim v_colFeuil as string ' la concatenation des valeur de colonne dim v_colFeuilCla as string ' la concatenation des valeur de toutes les feuilles dim i as integer v_col = "" v_nom= "" v_colFeuil ="" v_colFeuilCla ="" i = 2 ' le i=1 represente les titres For Each feuil In Worksheets v_nom = feuil.name While Sheets(v_nom).Cells(i, 1) <> "" If Sheets(v_nom).Cells(i, 1) <> v_col Then v_col= Cells(i, 4) End If i = i + 1 v_colFeuil= v_colFeui & v_col Wend v_colFeuilCla = v_colFeuilCla & v_colFeui & chr(10) next msgbox v_colFeuilCla end sub
est ce que qu'un peut m' orienter ou je me plante c'est sympa
Partager