Discussion :

[pilounet54]

BONJOUR J'ai ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Worksheet_Activate()
Dim NewLig As Long
Dim C As Range
 Application.ScreenUpdating = False
With Worksheets("Cotisations pas payées")
    NewLig = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
 
    Application.EnableEvents = False
For Each C In Worksheets("Bilan").Range("plagevaleurpositive")
    If C.Value = "inférieur" And C.Offset(0, -10).Value = "Cotisations" Then
        C.EntireRow.Copy
        .Range("A" & NewLig).PasteSpecial Paste:=xlPasteValues    '''''''''''ok
        .Range("A" & NewLig).PasteSpecial Paste:=xlFormats
    Application.CutCopyMode = False
 
            NewLig = NewLig + 1
        End If
    Next C
End With
Application.EnableEvents = True
 Worksheets("Cotisations pas payées").Select
Worksheets("Cotisations pas payées").Cells(3.2).Select

je souhaite avoir les "inférieur" + sauf les "Cotisations" donc different du mot cotisations
merci aux pationnés