Copier automatiquement des valeurs différentes de 0 dans une feuille

[familymoteau]

Bonjour,

Je suis pas super douée sous excel du moins avec les macros, j'ai un soucis, je vous explique :

J'ai une 1ère feuille avec 2 colonnes (Colonne A : 1.2.3.... et colonne B ou il y a des valeurs "12.40" ou "35.14" ou "0") et je voudrais qui me copie sur la 2ème feuille (en A8) que les valeurs différentes de 0 automatiquement mais je ne sais pas faire.
Aidez moi s'il vous plait !!!!

 

[ralph45]

Re : Copier automatiquement des valeurs différentes de 0 dans une feuille

Bonsoir familymoteau,

Sous Excel 2007-2010, regarde le ruban Données, puis Filtre et à côté Avancé...
Tu trouveras ton bonheur (voir image). Si besoin d'un bouton pour effectuer tout ça, reviens ici demain.

A plus !

 

[Robert]

Re : Copier automatiquement des valeurs différentes de 0 dans une feuille

Bonsoir Familymoteau et bienvenue, bonsoir Ralph, bonsoir le forum,

Une proposition sur ton fichier modifié en pièce jointe :

 

[familymoteau]

Re : Copier automatiquement des valeurs différentes de 0 dans une feuille

Merci pour vos réponses.

Pour Ralph 45, il faut que je recopie dans la feuille 2 que la colonne B de la feuille 1. Si tu peux m'aider.

Et pour Robert, comment je peux récupérer la macro, car je dois l'installer au boulot et je voudrais comprendre du moins essayer de comprendre !!

 

[Robert]

Re : Copier automatiquement des valeurs différentes de 0 dans une feuille

Bonsoir le fil, bonsoir le forum,

Voici le code ci-dessous. Tu crées un CommandButton de la barre d'outil Boîte à outils Contrôle. Tu copies le code et tu le colles dans le composant VBA de l'onglet contenant le bouton (Feuil1(Feuil1)) par exemple...
Le code :

Private Sub CommandButton1_Click() 'bouton "Copier"
Dim cel As Range 'déclare la variable cel (CELlule)
Dim dest As Range 'déclare la variable dest (cellule de DESTination)

ActiveCell.Select 'enlève le focus au bouton
Application.ScreenUpdating = False 'masque les changements à l'écran
With Sheets("Feuil1") 'prend en compte l'onglet "Feuil1"
    'boucle sur toutes les cellules éditées cel de la colonne B
    For Each cel In .Range("B1:B" & .Cells(Application.Rows.Count, 2).End(xlUp).Row)
        If cel.Value <> 0 Then 'condition : si la cellule est différente de zéro
            'définit la cellule de destination (première cellule vide de la plage A8:I16
            Set dest = Sheets("Feuil2").Range("A8:I16").SpecialCells(xlCellTypeBlanks).Cells(1)
            cel.Copy 'copie la cellule cel
            dest.PasteSpecial (xlPasteValues) 'colle sa valeur dans dest
        End If 'fin de la condition
    Next cel 'prochaine cellule de la boucle
End With 'fin de la prise en compte de l'onglet "Feuil1"
Application.ScreenUpdating = True 'affiche les changements à l'écran
Application.CutCopyMode = False 'supprime le clignotement lié à la copie
End Sub

 

[familymoteau]

Re : Copier automatiquement des valeurs différentes de 0 dans une feuille

bonjour,


Merci robert pour le code mais je n'arrive pas intégrer la macro dans mon fichier, voici le fichier original, il faut que les infos de la colonne B sur la feuille1 se copient dans la feuille "Relevé" et après ce mettent automatiquement dans la feuille "Fiche 100 relevés", mais moi je n'y arrive pas en même temps je suis pas super calée !!!


Merci à toi ou aux autres !!!