Discussion :

[abj8077]

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

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

je ne récupere que les valeur de la dernière feuille

est ce que qu'un peut m' orienter ou je me plante c'est sympa

[casefayere]

Bonojur,
une idée comme une autre à adapter

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
Sub recuperer()
Dim v_colFeuil As Range
Dim v_colFeuilCla As String ' la concatenation des valeur de toutes les feuilles
Dim i As Integer, x As Integer, y As Integer
Dim Ws As Worksheet
 
For Each Ws In ThisWorkbook.Worksheets
y = 2
If Ws.Name = Sheets(1).Name Then y = 3
   i = Ws.Range("a" & Ws.Rows.Count).End(xlUp).Row
   Set v_colFeuil = Ws.Range("a2:a" & i)
   If v_colFeuilCla = "" Then v_colFeuilCla = Ws.Cells(2, 1).Value
   For x = y To i
      v_colFeuilCla = v_colFeuilCla & ":" & Ws.Cells(x, 1).Value
   Next x
Next Ws
   MsgBox v_colFeuilCla
 
End Sub

[abj8077]

merci pour ta réponse
mais c'est la même chose ,
à la sortie je récupère que las données d'une seule feuille pas les données
de trois feuilles

[casefayere]

Impossible, j'ai testé, il doit y avoir une erreur dans ton code quelque part