Erreur de compil

[BRUNO62]

Bonsoir,

Je souhaite associer ces macros mais problème.
Erreur de Compil.
Avez vous une idée ?


Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

With Sheets("Feuil1")
Columns("V:V").Select
ActiveWindow.SmallScroll ToRight:=9
Selection.Copy
Columns("J:J").Select
ActiveWindow.SmallScroll ToRight:=-8
ActiveSheet.Paste

With Sheets("Feuil4")


For i = Range("J65536").End(xlUp).Row To 2 Step -1
If Cells(i, 10).Value = "11" Or Cells(i, 10).Value = "22" Or Cells(i, 10).Value = "33" Or Cells(i, 10).Value = "44" Or Cells(i, 10).Value = "55" Or Cells(i, 10).Value = "66" Or Cells(i, 10).Value = "77" Or Cells(i, 10).Value = "88" Or Cells(i, 10).Value = "99" Then
Cells(i, 2).EntireRow.Delete Shift:=xlUp
End If
Next i
Range("X6").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0)"
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0)),0,VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0))"
Range("X6").Select
Selection.AutoFill Destination:=Range("X6:X4500")
Range("X6:X4500").Select
End With
End Sub
a+

 

[ERIC S]

Re : Erreur de compil

Bonjour

manque peut-être un end with juste avant With Sheets("Feuil4")

 

[ROGER2327]

Re : Erreur de compil

Bonjour BRUNO62, ERIC S

Ecrit comme ceci :

[COLOR="DarkSlateGray"][B]Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
Dim i&

   With Sheets("Feuil1")
      .Columns("V:V").Copy Destination:=.Columns("J:J")
   End With

   With Sheets("Feuil4")
      For i = .Range("J65536").End(xlUp).Row To 2 Step -1
         With .Cells(i, 10)
            If .Value = "11" Or .Value = "22" Or .Value = "33" Or _
               .Value = "44" Or .Value = "55" Or .Value = "66" Or _
               .Value = "77" Or .Value = "88" Or .Value = "99" Then
               .Cells(i, 2).EntireRow.Delete Shift:=xlUp
            End If
         End With
      Next i
      .Range("X6").FormulaR1C1 = _
      "=IF(ISNA(VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0)),0,VLOOKUP(RC[-18],Feuil3!R[-4]C[-22]:R[2494]C[-14],9,0))"
      .Range("X6").AutoFill Destination:=.Range("X6:X4500")
   End With
   
   Cancel = True
   
End Sub[/B][/COLOR]

ça s'exécute...
Mais sans savoir ce que doit faire ce code, difficile de dire si ce qui s'exécute est ce qui est attendu. Ce ne plus de l'entraide, ça, c'est de la divination...​

ROGER2327
#3390

13 Floréal An CCXVIII
2010-W17-7T21:39:00Z

 

[BRUNO62]

Re : Erreur de compil

Bonsoir,

Grand merci, ROGER2327 c'est OK.
a+