Blocage

Signaler
-
 danizock -
Bonjour,

J'essaye de faire fonctionner un document, faire un copier coller d'un tableau à un autre en fonction d'un critère mais cela ne fonctionne pas.
Voici la formule que j'ai essayé :
Sub Actualisation()

Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Sheets("5 - Bilan Financier").Activate
Col = "A"
NumLig = 19

With Sheets("4 - Mon prévisionnel")
NbrLig = .Cells(200, Col).End(xlUp).Row
For Lig = 3 To NbrLig = 18

If .Cells(Lig, Col).Value = "Payé" Then
.Cells(Lig, Col).EntireRow.Copy NumLig = NumLig + 1
Sheets("5 - Bilan financier").Cells(NumLig, 1).Paste Shift:=xlDown
End If

Next
End With

End Sub


EDIT : Ajout des balises de code

Merci de m'aider si vous pouvez svp.

2 réponses

Messages postés
9349
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 janvier 2020
489
bonjour, "cela ne fonctionne pas": que peux-tu nous dire de plus?
je suis surpris par la ligne 13: que veux-tu y faire?
J'ai repris un modèle sur ce site.

Je souhaiterai faire un copier coller d'une ligne en fonction d'un critère.
yg_be
Messages postés
9349
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 janvier 2020
489 > danizock
comprends-tu le modèle que tu as repris?
pourquoi fais-tu cela?
> yg_be
Messages postés
9349
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 janvier 2020

Honnêtement, je ne le comprends pas vraiment.
J’essaye de copier une ligne d’un tableau et de la coller sur un autre tableau.
yg_be
Messages postés
9349
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
17 janvier 2020
489 > danizock
pourquoi fais-tu cela?
Je souhaiterai reporter une ligne d'un tableau sur une feuille à un autre tableau sur une autre feuille en fonction d'un critère / condition.