recherche une valeur unique dans feuilles, copier cellules adjacentes

[papapaul]

Bonjour Forum
J'ai plusieurs feuilles. Dans la Feuil1("A10") j'ai une valeur.
Celle-ci est unique dans l'ensemble des colonnes A
de toutes les autres feuilles (il peut y avoir beaucoup de
feuilles).
Je sais trouver cette valeur dans 1 feuille : dans mon exemple,
elle est Feuil3 en "A3", je voudrais copier des cellules pas
forcément adjacentes de cette ligne dans des cellules précises
de la Feuil1 et pas en ligne.

Ici, faudrait que B3 et D3 de la Feuil3,
soit copié sur la Feuil1 en B11 et C12.

Je cherche à faire ca pour continuer la construction
d'une de mes usines.
Je m'y connais en usines, en VBA beaucoup moins.

J'ai trouvé des codes sur le forum qui permettent de
copier la ligne entière mais pas cellule par cellule avec décalage.

Si quelqu'un a ca dans un tiroir, chouette

Merci d'avance et Bon Week à tous, vive XLD

 

[Cousinhub]

Re : recherche une valeur unique dans feuilles, copier cellules adjacentes

Bonjour,
essaie avec ce code :

Sub cherche()
Dim sh As Object, c As Range
For Each sh In Sheets
    If sh.Name <> "Feuil1" Then
        With sh
        Set c = .Columns("A:A").Find([A10], lookat:=xlWhole)
        If Not c Is Nothing Then [B11] = c.Offset(, 1): [C12] = c.Offset(, 3): Exit Sub 'ou exit for si autre code
        End With
    End If
Next sh
End Sub

 

[papapaul]

Re : recherche une valeur unique dans feuilles, copier cellules adjacentes

Salut bhbh
Une fois de plus nickel de nickel !!
Je vais pouvoir moderniser mon usine.

Encore Milles mercis et n'oublie pas
quand même de profiter un peu du soleil.

Amitiés à tous

Au fait ? Lien supprimé