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

 

[fhoest]

Re : Debutant Macro

Bonjour,
pas mauvais comme début,
il te suffit juste d’enlever les couleurs de tes cellules de la feuille dec 13 (regarde plus bas tu comprendras que la ligne trouvé n'est pas la bonne)
si je comprends bien ce que tu souhaites.

A bientôt.

 

[Docmarti]

Re : Debutant Macro

Bonjour.

Si j'ai bien compris :

For ligne = 5 To .Range("A" & Rows.Count).End(xlUp).Row 'Il me semble que ca doit commencer à la ligne 5
             
If .Range("Q" & ligne) > 0 Then ' Tu veux inférieur ou supérieur à 0
           
Set LR = Range("Tableau2").ListObject.ListRows.Add(AlwaysInsert:=True)

LR.Range.Cells(1, 1) = Sheets("1103").Cells(ligne, "C").Value
LR.Range.Cells(1, 2) = Sheets("1103").Cells(ligne, "D").Value
LR.Range.Cells(1, 3) = Sheets("1103").Cells(ligne, "G").Value
LR.Range.Cells(1, 4) = Sheets("1103").Cells(ligne, "j").Value
             
End If

Next ligne

Cordialement

Docmarti

 

[breizh3]

Re : Debutant Macro

Merci de vouloir m'aider
mais cela ne fonctionne pas
sur la ligne:
Set LR = Range("Tableau2").ListObject.ListRows.Add(AlwaysInsert:=True)
Erreur exécution 91
je récapitule je voudrais obtenir que lorsque dans mon tableau 1103 ma valeur de la colonne Q est supérieur a 0
il remplisse ref,désignation,prix et la valeur Q de la même ligne
j’espère être suffisamment claire

 

[breizh3]

Re : Debutant Macro

MERCI
cela fonctionne il suffit d'ouvrir les yeux

 

[breizh3]

Re : Debutant Macro

Bonjour,
Docmarti
quand j'utilise ta macro il ne me copie que 25 lignes et pas plus si tu as une idee je suis preneur
merci

 

[Staple1600]

Re : Debutant Macro

Bonjour à tous

Une petite question:
Inférieur ou Supérieur? car ...

mon but est simple lorsque la valeur de ma colonne Q en feuil 1103 est inférieur a 0 je voudrais
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

EDITION: Désolé, je viens de voir que Docmarti avait déjà fait la remarque dans les commentaires de son code 😱

 

[breizh3]

Re : Debutant Macro

Superieur a 0 je confirme

 

[Staple1600]

Re : Debutant Macro

re


Dans ton exemple, il n'y a que trois lignes à copier
(8,12,14) car seules 3 cellules en colonne Q sont supérieures à zéro, non ?

 

[breizh3]

Re : Debutant Macro

oui pour l'exemple pas pas de problème mais je voudrais qu’il puisse le faire autant qu'il y a de ligne
la macro fonctionne bien, juste que je suis limiter en nombre de ligne et je ne trouve pas pourquoi

 

[Staple1600]

Re : Debutant Macro

Re

Si tu appliques un filtre automatique (avec comme critére > 0) sur la colonne Q, le filtre te renvoie combien de lignes?

PS: N'y a-t-il pas des cellules vides en colonne A? car il y en a dans ton fichier exemple (A424)
ce qui peut fausser la détermination de la dernière cellule non vide de la colonne A.
For ligne = 5 To .Range("A" & Rows.Count).End(xlUp).Row

 

[breizh3]

Re : Debutant Macro

j 'ai actuellement 88 lignes

 

[Staple1600]

Re : Debutant Macro

Re

Sur ton fichier exemple, je fais ce test, le MsgBox renvoie 26
Sub a()
MsgBox Range("A" & Rows.Count).End(xlUp).Row
End Sub
Et si on retire l’entête on tombe sur 25

 

[breizh3]

Re : Debutant Macro

il me renvoie 401. ce qui correspond au tableau 2

 

[breizh3]

Re : Debutant Macro

petite info supplémentaire lorsque l'on active la macro il range en bas du tableau
ex: si le tableau comprends 125 ligne il range de 125 a 100 mais pas de 1 a 25