Problème pour appliquer la meme fonction VB

[seb34]

Bonjour,

J'ai un problème pour appliquer deux fonctions identiques sous VB.

La première version marche impec:

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("B9:B65536").Copy Destination:=Sheets("Feuil2").Range("B4")
Sheets("Feuil2").Range("B4:B4000").SpecialCells(xl CellTypeBlanks).EntireRow.Delete
End Sub

Ok

Mais je souhaite appliquer cette fonction deux fois avec des valeurs différentes

Je tente ça mais ça marche mal :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("B9:B65536").Copy Destination:=Sheets("Feuil2").Range("B4")
Sheets("Feuil2").Range("B4:B4000").SpecialCells(xl CellTypeBlanks).EntireRow.Delete
Range("C9:C65536").Copy Destination:=Sheets("Feuil2").Range("C4")
Sheets("Feuil2").Range("C4:C4000").SpecialCells(xl CellTypeBlanks).EntireRow.Delete
End Sub

😕

 

[porcinet82]

Re : Problème pour appliquer la meme fonction VB

Salut,

Essaye avec le code suivant :

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Range("B9:[COLOR=red][B]C[/B][/COLOR]65536").Copy Destination:=Sheets("Feuil2").Range("B4")
Sheets("Feuil2").Range("B4:[B][COLOR=red]C[/COLOR][/B]4000").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

@+