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...