recherche et insertion de donnée vba

[Seb]

Bonsoir à tous..

Je viens vers vous pour un soucis avec une macro.

Je voudrais pouvoir insérer une donnée qui se trouve dans un textbox (textbox4) dans une autre feuille (Repertoire N) mais pas n'importe ou.

Dans "Repertoire N" j'ai: B5:B370 =jours de l'année

Dans mon Userform textbox3 est une date. Textbox4 la valeur que je veux inserer 1 colone apres la valeur textbox3 retrouvée dans la feuille "Repertoire N" (b5:B370)

J'ai fait :

vtexbox4 = (TextBox4)
Set Cel = .Find(CDate(TextBox3), LookIn:=xlValues)
If Not Cel Is Nothing Then Cel.Activate
ActiveCell.Offset(0, 1) = vtextbox4
End If


mais rien a faire ça bloque...

Quelqu'un a une idée??

Merci encore

Seb

 

[Excel-lent]

Re : recherche et insertion de donnée vba

Bonsoir Seb,

Tu écris :

.Find...

donc je suppose que plus haut tu as :

With ...

et plus bas tu as :

End With

Oui?

Essaye en remplacant :

vtexbox4 = (TextBox4)

par :

vtexbox4 = TextBox4.Value

Ne pouvant le tester sur ton fichier, je ne garantie rien.

Bonne soirée

 

[Guest]

Re : recherche et insertion de donnée vba

Bonjour Seb,

Avec find sur une date il faut passer la date en mois jour année
Voici un exemple qui recherche un date dans la colonne A de Feuil1:

    Dim c As Range
    Dim dte As String
    dte = "17/02/2009"
    Set c = Feuil1.Range("A:A").Find(What:=Format(dte, "m/d/yyyy"), LookIn:=xlValues)
        If Not c Is Nothing Then MsgBox c.Address

A+

 

[Seb]

Re : recherche et insertion de donnée vba

Bonsoir Excel-lent et Hasco

Merci pour avoir répondu.. je viens d'essayer et ça buggue toujours. En fait comment je pourrais faire pour que ma macro me trouve la valeur de textbox3 dans la feuille "Repertoire N" B5:B370 ? Faudrait qu'elle me la trouve est la selectionne, comme ça apres avec la fonction activecell.offset() je m'en sortirais plus facilement... Mais la ça buggue !! SNIIIF

 

[Guest]

Re : recherche et insertion de donnée vba

Re bonsoir Seb,

donnes nous un fichier exemple qu'on puisse voir cela de plus près. Nous irons plus vite.

Sinon, si dans ta plage tu n'as pas trop de ligne tu peux faire une boucle pour comparer chaque valeur.

Dim Ligne As Long
With Feuil1
   For Ligne = 1 to 500
   If .Cells(Ligne,1).Text=MaDateText then 
       set C=.Cells(Ligne,1)
       Exit For
   End if
   Next
End with

A+

 

[Seb]

Re : recherche et insertion de donnée vba

Voila un morceau de mon tableau.