Recherche valeurs et copie dans une feuille

[thekyj]

Bonjour,

tout d'abord merci de l'aide qu vous voudrez m'apporter, je ne m'y connais pas du tout en programmation Excel, j'ai fait surtout du scripting shell et de la programmation classique.
Mon problème :
J'ai un classeur excel avec deux feuilles, je souhaite "balayer" la colonne 9 de ma première feuille afin d'y lire les valeurs et pour chacune de ces valeurs, aller regarder dans la feuille2 à la colonne 75 voir si elle existe, si elle existe je récupère la ligne correspondante et je souhaite "copier" les valeurs contenues dans les colonnes 1 et 5 de la feuille2 pour les "coller" dans la feuille1 dans les colonne 2 et 3.

A noter que dans la feuille2-col75, la valeur de la cellule "balayée" peut être présente plusieurs fois et donc chacune de ces valeurs devra être recopiée.

Un organigramme pourrait être :
-Lire la colonne 9.feuille 1 à partir de la ligne B
-Comparer la valeur à celle de la colonne75.feuille2
-Si existe alors récuperer valeur de ligne "trouvée".col1.feuille2 et copier dans feuille1.col3 et recupérer valeur de ligne"trouvée".col5.feuille5 et copier dans feuille1.col3
- si n'existe pas laisser la feuille1.col3 à vide et feuille1.col3 à vide
fin de la lecture de la colonne 9

Merci d'avance

 

[afroweb]

Re : Recherche valeurs et copie dans une feuille

je suis a la recherche d'une aide pour le meme probleme
Je suis débtutant et j'ai souvent recourt à votre forum pour trouver des solutions mais hélas depuis quelques jours j'ai beau parcourir le site mais rien ne solutionne mon soucis.
mois j'ai une feuille avec une base de donnée je veux pacourir et comparer son contenu avec avec celui de ma deuxieme feuille si le contenu est egale je copie les lignes correspondant dans ma deuxime feuille
voila

 

[thekyj]

Re : Recherche valeurs et copie dans une feuille

J'ai essayé de créer un code en m'inspirant de ce que j'ai trouvé sur le net :

Sub Rechandcopie()
Dim Nom As String
Dim i, j As Integer
Dim Condition As Boolean
Sheets(2).Select
i = 5
Do
Nom = Sheets(2).Cells(i, 9).Value
j = 4
Condition = False
Do
 If Nom = Sheets(3).Cells(j, 75).Value Then
  Sheets(2).Cells(i, 2).Value = Sheets(3).Cells(j, 1).Value
  Sheets(2).Cells(i, 3).Value = Sheets(3).Cells(j, 5).Value
  Condition = True
 End If
 j = j + 1
 Loop While (Sheets(3).Cells(j - 1, 75) <> "" And Condition = False)
 i = i + 1
 Loop While (Sheets(2).Cells(i - 1, 9) <> "")

End Sub

Je balaie bien la colonne 9 de la feuille 2, mais j'ai un souci pour lui indiquer de lire entièrement la colonne 75 avant de passer à i+1, si quelqu'un peut m'indiquer où est l'erreur dans ma boucle.

 

[thekyj]

Re : Recherche valeurs et copie dans une feuille

Pas beaucoup de réponses ou d'idées à a question...🙁🙁,
Je continue néanmoins mes recherches, j'ai trouvé où était mon souci (une feuille cachée 😎) et j'ai modifié ma macro ainsi :

Sub Rechandcopie()
Dim Nom As String
Dim i, j, k As Integer
Dim Condition As Boolean
Sheets(2).Select
i = 5
Do
Nom = Sheets(2).Cells(i, 9).Value
j = 4
Condition = False
k = i
Do
 If Nom = Sheets(4).Cells(j, 75).Value Then
  Sheets(2).Cells(k, 2).Value = Sheets(4).Cells(j, 1).Value
  Sheets(2).Cells(k, 3).Value = Sheets(4).Cells(j, 5).Value
  Condition = True
  k = k + 1
 End If
 j = j + 1
 Loop While (Sheets(4).Cells(j - 1, 75) <> "")
 i = i + 1
 Loop While (Sheets(2).Cells(i - 1, 9) <> "")

End Sub

Cela marche bien, par contre j'aimerais l'améliorer et je souhaite savoir s'il existe une commande pour l'insertion de cellules ou le décalage de lignes vers bas.

Merci pour votre aide.