> 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 participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
7,28 €Câble antivol Ewent EW1241 (1.5 m, à combinaison) à 7,28 €
Valable jusqu'au 26 Juillet

Amazon fait une promotion sur le câble antivol Ewent EW1241 qui passe à 7,28 € seulement au lieu de 12 €. Ce câble de 1,5 m est universel et facile à utiliser avec n'importe quel ordinateur portable ou de bureau avec un slot de sécurité. intégré. Protégez votre ordinateur contre le vol grâce à la serrure à combinaison à 4 chiffres.


> Voir l'offre
87,90 €Tondeuse à gazon électrique Bosch ARM 32 à 87,90 €
Valable jusqu'au 30 Juillet

Amazon fait une promotion sur la tondeuse à gazon électrique Bosch ARM 32 qui passe à 87,90 € livrée gratuitement alors qu'on la trouve ailleurs à partir de 109,99 €.  Avec la tondeuse à gazon ARM 32 Bosch, rien de plus facile que de bien entretenir sa pelouse en un minimum de temps. Équipée d’un puissant moteur de 1 200 W, elle tond sans effort et efficacement l’herbe haute ou dense et assure une tonte parfaite.

Sa grande légèreté et sa forme compacte permettent de contourner facilement les obstacles. Son guide herbe permet une tonte au ras des murs, des parterres de fleurs et des bordures.  La hauteur de coupe est réglable de 20 à 60 mm. Bac de ramassage de 31 litres. La tondeuse à gazon ARM 32 est par ailleurs peu encombrante. Le guidon peut être replié après utilisation.


> 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