Macro excel

tu travaille avec quelle version d'excel et avec quelle langue (francais, anglais..)?

Excel 97 en français

Bonjour
Envoie-moi un exemple des deux feuilles, et j'essaierai de t'aider.
Bon courage
adresse mail ou tu peux envoyer : ouadah_kaidi@hotmail.com
KAIDI

Salut tous,

Vous êtes sur que vous avez besoin d'une macro pour ça ???

Une simple formule =RECHERCHE(...) fait amplement l'affaire non ? Cela est plus simple il me semble... Ou bien j'ai mal compris l'idée ??

@+

Je pense également qu'on n'a pas besoin d'une macro, mais pas d'avantage de "formule =RECHERCHE(...) "; car je ne vois pas trop comment elle pourrait obtenir ce qu'elle veut avec!! (??)

je ne peut pas envoyé les feuilles c confidentiel,
je ne peut pas non plus faire une recherche car ce que j'affiche est par rapport à deux chose, le numéro de contrat et la designation.

tu n'es pas obligé de divulguer des secrets !!! trafique les données, le but n'est pas le sens mais l'esprit !!! envoies-en juste un bout en changeant les données!! c'est pour toi, c'est toi qui voit!!

bonne chance!!

Bonjour,

'Exemple type :
'
' Feuil1
' Soit en Colonne A les contrats
'
' Feuil2
' Soit en colonne A les contrats, en colonne B les types
'
' Recherche linéaire
'
Sub ChercheType()

...Dim FleCont As String 'Feuille des contrat a associer
...Dim FleType As String 'Feuille contenant les types a rechercher
...Dim CodCont As String 'Code d'un contrat
...Dim CodType As String 'Code d'un type
...Dim Flag As Boolean

...FleCont = "Feuil1"
...FleType = "Feuil2"
...CodType = ""
...CodCont = ""

...Sheets(FleCont).Select
...Range("A1").Select
...CodCont = ActiveCell.Offset(0, 0).Value

...While (CodCont <> "") 'Tant que ligne n'est pas vide
......Sheets(FleType).Select
......Range("A1").Select
......Flag = True
......While ((ActiveCell.Offset(0, 0) <> "") And (Flag))
.........If (CodCont = ActiveCell.Offset(0, 0).Value) Then
............CodType = ActiveCell.Offset(0, 1).Value
............Flag = False
.........End If
.........ActiveCell.Offset(1, 0).Select
......Wend
......Sheets(FleCont).Select

......If (CodType <> "") Then
.........ActiveCell.Offset(0, 1).Value = CodType
.........CodType = ""
......End If

......'Incrémentation de la position Feuil1
......ActiveCell.Offset(1, 0).Select
......CodCont = ActiveCell.Offset(0, 0).Value
...Wend

End Sub
*********************************

N.B. Les points sont pour conserver la tabulation

Lupin

~L'essentiel est invisible pour les yeux~
~On ne voit bien qu'avec le coeur~

bonjour

En gardant la même structure, et dans la colonne B de la feuil1
on met la formule :

=RECHERCHEV(A1;Classeur1!types;2;FAUX)

avec"Classeur1" = nom du classeur

et "types" = le nom de la plage des types de la feuil2

et cela fonctionne avec tableau trié ou non.

merci à tous c'est sympa