Blocage [Fermé]

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
13891
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2021
782
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.
Messages postés
13891
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2021
782 > danizock
comprends-tu le modèle que tu as repris?
pourquoi fais-tu cela?
>
Messages postés
13891
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2021

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.
Messages postés
13891
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
15 janvier 2021
782 > 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.