Copier coller des données avec un code VBA sauf si cellule vide.

Bonjour,
je souhaite copier des données contenus dans la plage 'D64:F71' de la feuille "Quick Update" puis coller ces données dans la plage 'E137:G144' de la feuille "Farm ID".
Cependant, si la plage 'D64:F71' contient des cellules vides, celles-ci ne doivent pas être collées.



Pouvez-vous m'aider s'il vous plait ?

Merci par avance de votre aide

Cordialement

bonsoir

Citation:

---

Cependant, si la plage 'D64:F71' contient des cellules vides, celles-ci ne doivent pas être collées

---

normalement toutes la ligne à ignorer non si non y a pas de sens de copier coller une vide

c'est le weekend et je dois quitter et a cette occasion bonne weekend mes amis
voila le principe à adapter

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Sub test() Dim Sh As Worksheet Set Sh = Sheets("Farm ID") Dim Tablo Dim i As Long Tablo = Sheets("Quick Update").Range("D64:F71") k = 137 For i = LBound(Tablo, 1) To UBound(Tablo, 1) If Tablo(i, 1) <> "" Then MsgBox Tablo(i, 1) Sh.Range("D" & k) = Tablo(i, 1) k = k + 1 End If Next i End Sub

---

Merci pour votre réponse.
Ce code coller seulement une colonne. Seulement dans la colonne D. Or j'ai 3 colonne à copier D, E et F

Avant le k=k+1 ajoute sh.range("e" k) = tablo(i,2)
idem pour la ligne suivante
(Remplacer le d par e puis par f dans la range et le 1 par 2 puis 3 ds tablo
Je réponds depuis ma téléphone et je m excuse de la qualité de la réponse