après avoir pas mal galéré, je fais appel a vous pour me mettre sur la
voie :
j'ai, dans plusieurs feuilles des donnees que je dois recopier dans
une nouvelle feuille
ex
Feuille 1
pierre 24
feuille 2
pierre 17
feuille 3
pierre 48
le ( ou les problemes ) c'est que les données ne se trouvent pas au
meme endroit dans les differentes feuilles
et qu'il faut ramener un resultat sous
la forme
feuille resultat
pierre 24 17 48
et là je ne vois pas comment resoudre ce casse tete
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
JB
Bonsoir,
Sub chercheFindMultiFeuilles1() x = "Martin" temp = x For Each s In Array("Feuil1", "Feuil2", "Feuil3") With Sheets(s).Cells Set c = .Find(x, LookIn:=xlValues) If Not c Is Nothing Then temp = temp & " " & c.Offset(0, 1).Value End With Next s MsgBox temp End Sub
http://cjoint.com/?dowWq3XiAX
JB
On 14 mar, 19:12, titi wrote:
Bonjour
après avoir pas mal galéré, je fais appel a vous pour me mettre sur la voie :
j'ai, dans plusieurs feuilles des donnees que je dois recopier dans une nouvelle feuille
ex Feuille 1 pierre 24
feuille 2 pierre 17
feuille 3 pierre 48
le ( ou les problemes ) c'est que les données ne se trouvent pas au meme endroit dans les differentes feuilles et qu'il faut ramener un resultat sous la forme
feuille resultat pierre 24 17 48
et là je ne vois pas comment resoudre ce casse tete
Avez vous une petite idee ?
merci
Bonsoir,
Sub chercheFindMultiFeuilles1()
x = "Martin"
temp = x
For Each s In Array("Feuil1", "Feuil2", "Feuil3")
With Sheets(s).Cells
Set c = .Find(x, LookIn:=xlValues)
If Not c Is Nothing Then temp = temp & " " & c.Offset(0,
1).Value
End With
Next s
MsgBox temp
End Sub
http://cjoint.com/?dowWq3XiAX
JB
On 14 mar, 19:12, titi wrote:
Bonjour
après avoir pas mal galéré, je fais appel a vous pour me mettre sur la
voie :
j'ai, dans plusieurs feuilles des donnees que je dois recopier dans
une nouvelle feuille
ex
Feuille 1
pierre 24
feuille 2
pierre 17
feuille 3
pierre 48
le ( ou les problemes ) c'est que les données ne se trouvent pas au
meme endroit dans les differentes feuilles
et qu'il faut ramener un resultat sous
la forme
feuille resultat
pierre 24 17 48
et là je ne vois pas comment resoudre ce casse tete
Sub chercheFindMultiFeuilles1() x = "Martin" temp = x For Each s In Array("Feuil1", "Feuil2", "Feuil3") With Sheets(s).Cells Set c = .Find(x, LookIn:=xlValues) If Not c Is Nothing Then temp = temp & " " & c.Offset(0, 1).Value End With Next s MsgBox temp End Sub
http://cjoint.com/?dowWq3XiAX
JB
On 14 mar, 19:12, titi wrote:
Bonjour
après avoir pas mal galéré, je fais appel a vous pour me mettre sur la voie :
j'ai, dans plusieurs feuilles des donnees que je dois recopier dans une nouvelle feuille
ex Feuille 1 pierre 24
feuille 2 pierre 17
feuille 3 pierre 48
le ( ou les problemes ) c'est que les données ne se trouvent pas au meme endroit dans les differentes feuilles et qu'il faut ramener un resultat sous la forme
feuille resultat pierre 24 17 48
et là je ne vois pas comment resoudre ce casse tete