XL 2010 Copier des valeurs d'une plage contenant des blancs

[fattah_5791]

Bonsoir,

merci de m'aider à surmonter ce petit truc !
je veux un code VBA pour copier des données une plage connue d'une feuille (baseCC) à une autre feuille (base) dans le mm classeur.
le prblm est que la plage à copier peut contenir des blancs qu'il faut sauter, et la plage de destination contient des cellules fusionnées (obligatoire).

fichier joint:
- la plage source contient des blancs qui changent de position selon le deroulement de l'applicatif.
- la 1ere valeur trouvée (texte1) dans la plage source [A4:I4] en commencant de droite vers la gauche sera stockée dans la cellule fusionnée O1 de la plage de destination [E1:O1], la éeme valeur trouvée sera stockée en M1 et la 3eme en K1,...

Merci infiniment

 

[Bebere]

bonjour
Fattah à tester

Public Sub Transfert()    'fattah
    Dim c As Long, col As Byte
    col = 15
    For c = 9 To 2 Step -1
        If Feuil1.Cells(4, c) <> "" Then
            Feuil2.Cells(1, col).Value = Feuil1.Cells(4, c).Value
            col = col - 2
        End If
    Next
End Sub

 

[fattah_5791]

Merci Bebere, avec des petites modifications, le code a bien marché.

Merci