Décaler et remplacer si la case et vide

Question

Bonjour, je cherche a faire une formule qui me renvoie les données d'une colonne de 2 lignes, la première ligne est le code, la 2ème est la somme. Donc je cherche la bonne formule qui me prend juste les valeurs <> de 0 mais sans me laisser de case vide. le premier tableau est ma base de donnée avec 2 lignes et plusieurs colonnes, le 2ème tableau doit m'afficher le résultat final sans prendre en considération la colonne avec la case 0, et sans me laisser une case vide. j'ai essayé cette formule mais ca ne marche pas: =SI(FB1<>0;B1;n+1) et en plus je n'arrive pas a prendre le code qui va avec le bon chiffre. si vous pouriez m'aider ce la me fera un grand plaisir et me permettra d'avancer sur mon travail. je vous remercie d'avance. ciao Anushka Configuration: Windows XP / Internet Explorer 7.0

eriiic · Answer

Bonjour, 

Pas claire ton explication...
Fais un fichier exemple de qcq lignes de données avec ce que tu veux et où.
Dépose-le sur cijoint.fr et colle ici le lien fourni
eric

eriiic · Answer

Bonsoir,

Adapte source et dest en fonction de ton besoin.
La macro partira de source et traitera en horizontal jusqu'à ce qu'elle rencontre une cellule vide.
Sub CopieSans0()
    Dim source As Range, dest As Range, c As Range, col As Long
    'cellule supérieure gauche des données source
    Set source = Worksheets("Feuil1").[A2]
    'cellule supérieure gauche de la destination
    Set dest = Worksheets("Feuil2").[A2]
    col = 0
    For Each c In Range(source, source.End(xlToRight))
        If c.Offset(1, 0) <> 0 Then
            dest.Offset(0, col) = c.Value
            dest.Offset(1, col) = c.Offset(1, 0).Value
            col = col + 1
        End If
    Next c
End Sub

eric

Décaler et remplacer si la case et vide

2 réponses

Discussions similaires

Newsletters