Discussion :

[hassenssas]

Bonjour,

je suis un peu nouveau dans le domaine d'excel vb et, ai donc une question.

Je voudrais rechercher dans une colonne(col1) d'une feuille(feuil1) si une donnée est présente dans une autre colonne(col2) d'une autre feuille(feuil2). Si il y a concordance, je veux qu'elle me renvoi des information de feuil2 dans feuil1 (style nom, prenom de la feuil2 dans une colonne de feuil1).

Quelqu'un aurait une idée???

[Hagendorf]

Bonjour,


Ce que tu demandes ressemble à une rechercheV ou H. pourquoi n'essaye tu pas une recherche avec un si du genre "=SI rechercheV(valeur,table, index,0)=valeur de la colonne1; nom feuille;"").

[pyrene]

Je voudrais rechercher dans une colonne(col1) d'une feuille(feuil1) si une donnée est présente dans une autre colonne(col2) d'une autre feuille(feuil2).

as tu essayé de boucles for?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
for i= 1 to fin_colonne1
  for j= 1 to fin_colonne2
    cel1=worksheets("feuil1").cells(i,"A")
    cel2=worksheets("feuil2").cells(j,"A")
    if cel1=cel2 then
      action
    end if
  next j
next i

je sais pas si c'est tres clair (ni juste) ce que je viens d'ecrire!
cela ne te permettra que de savoir si il y a des cellules identiques!

Si il y a concordance, je veux qu'elle me renvoi des information de feuil2 dans feuil1 (style nom, prenom de la feuil2 dans une colonne de feuil1).

alors là...? je ne vois pas trop...
si je comprend bien : si il y a 2 cellules identiques (le contenu) tu veux mettre dans feuille 1, les parametres de la cellule jumelle (qui est dans feuille2)?
il doit exister une formule vba excel qui te permet de recupere le style de la mise en forme d'une cellule mais je ne sais pas laquelle!

j'espere que ca t'aidera

pour la question du style :

va donc voir dans l'aide de vb et tape : TextEffectFormat
tu dois pouvoir recuperer les données en faisant un truc du style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
police=worksheets("feuil2").cells(ligne,colonne).TextEffect.FontName

et ainsi de suite

[hassenssas]

En fait je connais comment faire ca en calcul excel, c'est une formule style:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
=SI(ESTERREUR(RECHERCHEV($B20;Feuil2!A$2:A$10;1;FAUX));"OK";"KO")

mais je veux essayer de faire ca en macro. Malheureusement je ne connais pas assez les macros.

j'ai essayé... :

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
 
Sub MonCode()
Dim c As Range
Dim numclient As String
    numclient = "blabla"
    With Worksheets("Feuil2").Range("a1:a500")
    Set c = .Find(numclient, LookIn:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With
End Sub

... sans succes. Un coup de main??

[maxxgraph]

Essaye ceci ca devrait t'aider j'ai posé une question tres proche voire identique de la tienne !

http://www.developpez.net/forums/sho...50#post3261950