Debutant Macro

[breizh3]

Bonjour,
Voila je me suis lancé dans ma première macro, mais la je sèche.
mon but est simple lorsque la valeur de ma colonne Q en feuil 1103 est inférieur a 0 je voudrais qu íl me remplisse la feuil dec 13
avec la macro que j’ai fais il trouve bien les valeurs mais je n'arrive pas a sélectionner que les colonnes dont j'ai besoin et je ne veut copier que les valeurs
macro:
Sub copier()

Dim ligne As Long
With Sheets("1103")
For ligne = 2 To .Range("A" & Rows.Count).End(xlUp).Row
If .Range("Q" & ligne) > 0 Then
.Range("A" & ligne & ":N" & ligne).Copy _
Sheets("DEC 13").Cells(Rows.Count, 1).End(xlUp)(2).Resize(, 3)
End If
Next ligne
End With
End Sub

Merci pour votre aide

 

[Staple1600]

Re : Debutant Macro

Re


Si tu lances la macro quand tu es sur la feuille 1103, qu'affiche le MsgBox?

EDITION: Je viens de voir que ton fichier exemple, les colonnes A et B sont masquées
Quand tu les affiches, on voit que la dernière cellule non vide est A26
Donc voilà qui explique le 26 😉

Donc il faudrait modifier la colonne dans cette partie de la macro
Range("C" & Rows.Count).End(xlUp).Row et non pas A

 

[breizh3]

Re : Debutant Macro

Merci beaucoup