recherche une valeur unique dans feuilles, copier cellules adjacentes

  • Initiateur de la discussion Initiateur de la discussion papapaul
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

papapaul

XLDnaute Impliqué
🙂 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
 

Pièces jointes

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

Bonjour,
essaie avec ce code :

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
 
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é
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
195
Réponses
5
Affichages
406
Retour