Discussion :

[Lientjie]

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

[BENNASR]

bonsoir

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

[BENNASR]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Lientjie]

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

[BENNASR]

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