> Tous les forums > Forum Bureautique
 problème avec la fonction recherche
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
kenda
  Posté le 20/08/2007 @ 12:01 
Aller en bas de la page 

salut les amis

je cherche une méthode pour rechercher des infos sur une feuille pour la mettre sur une autre feuile.

j'ai une feuille nommé suspens titres dans laquelle j'ai une liste de données et une seconde liste de données nommée

nommée CPTE 2093. mon souci est de faire correspondre le champ "date de bourse"

de CPTE 2093 à la liste de données SUSPENS TITRES.

DC LE problème est de faire correspondre les dates de bourse de CPTE 2093 au champ "libellé" de SUSPEND TITRES.

CAR JE ME CASSE LA TETE.

je vous envoie le lien suivant:http://cjoint.com/?iul6itK1yb

le fichier y est.

merci d'avance pour vos réponses.

Publicité
galopin01
 Posté le 20/08/2007 à 17:16 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonsoir,

moi j'y verrais bien avec quelques lignes de VBA mais pitetre bien que les AMIS vont nous concocter une putain_de_formule_de_la_mort_qui_pête...

A+

JièL Goubert
 Posté le 21/08/2007 à 23:36 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien
Bonjour
j'ai regardé votre fichier, mais sincèrement je n'ai pas compris grand chose
Pour essayez d'avancer, je voudrais savoir comment vous feriez "à la main" pour trouver la bonne info à mettre dans la colonne "date de bourse"dans la feuille "suspens titres"
Heum... Galopin, tu ferais ça comment toi ? parce que la, moi je ne vois pas
galopin01
 Posté le 22/08/2007 à 05:18 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

bonjour,

Ben... J'ai pas eu le temps de beaucoup creuser le problème !

J'ai pas trop compris non plus, mais voilà ce que j'ai imaginé :

Sub test()
Dim Ws1 As Worksheet
Dim Ws2 As Worksheet
Set Ws1 = Worksheets("SUSPENS TITRES ")
Set Ws2 = Worksheets("CPTE 2093")
k = Ws1.Range("H1").End(xlDown).Row
'à la hache !
For Each o In Ws1.Range("E2:E" & k)
With Ws2.Columns("H:H")
Set c = .Find(o.Value, LookIn:=xlFormulas)
If Not c Is Nothing Then
firstAddress = c.Address
Do
If c.Offset(0, 2).Value = o.Offset(0, 2).Value Then
o.Offset(0, 1).Value = c.Offset(0, -2).Value
End If
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
Next
End Sub

A+



Modifié par galopin01 le 22/08/2007 05:18
Page : [1] 
Page 1 sur 1

Vous devez être connecté pour poster des messages. Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !


Les bons plans du moment PC Astuces

Tous les Bons Plans
169,99 €Lot de 2 écrans 24 pouces Samsung S24F354 (Full HD, PLS, 4 ms, FreeSync) à 169,99 €
Valable jusqu'au 20 Février

RueDuCommerce propose actuellement le lot de 2 écrans 24 pouces Samsung S24F354 à 169,99 € alors qu'on les trouve ailleurs à partir de 110 € l'unité. Ces écrans disposent d'une dalle PLS Full HD (1920x1080) et offrent un temps de réponse de 4 ms. Ils possèdent des entrées VGA et HDMI ainsi que des fonctions d'anti scintillement et anti lumière bleue.


> Voir l'offre
92,35 €Disque dur externe portable Maxtor M3 USB 3.0 4 To à 92,35 €
Valable jusqu'au 20 Février

Amazon propose actuellement le disque dur externe portable Seagate M3 4 To à 92,35 € livré gratuitement. Le disque dur dispose d'une connectique USB 3.0 compatible USB 2.0 et offre des débits d'environ 115 Mo/s en lecture et écriture. Seagate ayant racheté les branches disques durs de Samsung et Maxtor, vous pouvez donc trouver le logo Maxtor, Samsung ou Seagate sur ce disque dur M3. 


> Voir l'offre
599,99 €Portable 15,6 pouces HP (FullHD, Core i5, 8 Go, SSD 128 Go + DD 1 To, GTX 1050 3 Go) à 599,99 €
Valable jusqu'au 18 Février

Cdiscount fait une belle promotion sur l'ordinateur portable HP Pavilion 15-bc511nf qui passe à 599,99 € livré gratuirement alors qu'on le trouve ailleurs autour de 700 €. Ce portable possède un écran 15,6 pouces HD Full HD (1920x1080), un processeur Intel Core i5 9300H, 8 Go de RAM, un SSD de 128 Go, un disque dur de 1 to et une carte graphique dédiée GeForce GTX 1050 3 Go. Le tout tourne sous Windows 10.


> Voir l'offre

Sujets relatifs
problème avec myPDFconverter et/ou recherche d'une autre soft
Problème Fonction recherche
renvoi d'un lien hypertext avec fonction recherche
pb avec fonction recherche sous excel 2000
problème avec open office sous Windows 8
B50211 Problème de guillemets avec Word 2007
Probleme avec microsoft office 2010
Problème avec Word illisible ..pour moi
Probléme avec Acronis
fonction SI avec trois critères - cellule en format [h]mm
Plus de sujets relatifs à problème avec la fonction recherche
 > Tous les forums > Forum Bureautique