copié collé d'une variable

[louloulapoisse]

Bonjour à tous,
Je bug!!(je sais, encore ..)
Voilà je souhaitais récupérer la valeur correspondant à une donnée.
Donc sur une feuille j'ai la donnée, et la case ou je veux écrire une correspondance,
et sur une autre j'ai un tableau avec les valeurs et leurs multiples correspondances
et là je bloque sur le copier coller ( j'ai testé une MsgBox et j'ai le bon résultat pour E).

Sub datedeconstruction()

'Pour déterminer la dernière Cellule des batiments en page "liaisons"
    k = 1
        Sheets("liaisons").Select
        While IsEmpty(Cells(k, 7)) = False
    k = k + 1
        Wend
    Findeligne = k - 1
   'la celule de la page "des bat" correspond à celle de la colonne en "liaison"
    batiment = Sheets("Des_Bat").Cells(3, 1).Value
 
    E = 0
        For i = 1 To Findeligne

        If Sheets("liaisons").Cells(i, 7).Value = batiment Then
    E = i
        End If
        Next

Cells(E, 9).Select
Sheets ("Des_Bat")
Cells(6, 3).Paste

j'ai aussi essayé ça

Sheets("liaisons").Select
Cells(E, 9).Copy
Sheets ("Des_Bat")
ActiveSheet.Paste

et ça

Cells(E, 9).Select
Sheets("Des_Bat").Cells(6, 3).Paste

Merci d'avance pour le coup de souris!

 

[herve62]

Re : copié collé d'une variable

Bonsoir
Bon avec le fichier complet joint ça irait mieux !!!! d'autant que c'est possible
De plus RAS LE BOL de déchiffrer un FRANCAIS truffé de fautes .... je ne peux tout citer (le coup de sourie! ???)
On est peut-être HAS BEEN mais les jeunes ont bien besoin de nous !!!

 

[louloulapoisse]

Re : copié collé d'une variable

Ok Herve62 message reçu, et je n'ai rien contre les vieux Has Been.
Sinon comme il s'agit d'un "copier coller" qui me semble dans les faits assez basique, il ne me semblais pas important de joindre un document.