L
louloulapoisse
Guest
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).
j'ai aussi essayé ça
et ça
Merci d'avance pour le coup de souris!
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).
Code:
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).Pastej'ai aussi essayé ça
Code:
Sheets("liaisons").Select
Cells(E, 9).Copy
Sheets ("Des_Bat")
ActiveSheet.Pasteet ça
Code:
Cells(E, 9).Select
Sheets("Des_Bat").Cells(6, 3).Paste
Dernière modification par un modérateur: