Blocage

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

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    bonjour, "cela ne fonctionne pas": que peux-tu nous dire de plus?
    je suis surpris par la ligne 13: que veux-tu y faire?
    0
    1. danizock
       
      J'ai repris un modèle sur ce site.

      Je souhaiterai faire un copier coller d'une ligne en fonction d'un critère.
      0
      1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > danizock
         
        comprends-tu le modèle que tu as repris?
        pourquoi fais-tu cela?
        0
      2. danizock > yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention  
         
        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.
        0
      3. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   1 588 > danizock
         
        pourquoi fais-tu cela?
        0
  2. danizock
     
    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.
    0