Boucle pour copier cellule selon valeur d'une autre cellule

Bonjour,

Cela fait un moment que je n'arrive pas à faire ma macro, je suis une grande débutante, et donc c'est la grande galère.

Voilà j'ai un tableau de 30 colonnes. Je veux dans une nouvelle feuille, copier les celulles des colonnes 3,4, et 5, si et seulement si la cellule de la colonne 30 de la ligne correespondante est différent de 0.

J'ai commencé à coder en m'inspirant du web, mais je ne sais pas comment selectionner uniquement les colonne 3,4 et 5. Voilà ce que je j'ai codé.

Dim ligne As Integer

Sub copiecondition()

Sheets("histo").Select
Range("ab6").Select

Do While ActiveCell.Value <> ""
    If Not ActiveCell.Value Then
        ligne = ActiveCell.Row

        Sheets("presynthese").Activate
        Range("B2").Select
        If ActiveCell.Offset(1, 0).Value = "" Then
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets("histo").Select
            ActiveCell.Offset(1, 0).Select
        Else
            Selection.End(xlDown).Select
            ActiveCell.Offset(1, 0).Select
            ActiveSheet.Paste
            Sheets("histo").Select
            ActiveCell.Offset(1, 0).Select
        End If
    Else
        ActiveCell.Offset(1, 0).Select
    End If
Loop

End Sub

Si quelqu'un peut éclairer ma lanterne...

46exemple-xls.xlsx (11.63 Ko)

Bonjour et bienvenue sur le forum

Un essai à tester. Te convient-il ?

Bye !

411essai-v1.xlsm (24.08 Ko)

Il semble que oui! un grand merci

Rechercher des sujets similaires à "boucle copier valeur"