Excel vba - pas de bug... mais pas d'action

RE

j'ai modifié la macro car ma synthaxe etait fausse (je crois!). Il ne faut pas mettre de else!

bref cela ressemble a ca (je ne colle q'un bloc if ici pou te montrer):

If IsError(Range("AENAsc")) Then
Range("AENA").EntireRow.Delete
End If


Par contre cela ne résoud pas le problème expliqué dans mon dernier post... snif

Bonsoir,

Non, suite à ta dernière correction (sur les else) je ne comprends pas pourquoi ça ne fonctionne pas. Si tous les else sont bien transformés en End if et si tous ces noms définis sont bien sur des lignes différentes...et tous dans ta feuille de départ.

Il faut quand même mettre le on error goto FIN au début et le FIN: juste avant les 2 dernières instructions. On ne sait jamais car sinon les événements ne marchent plus.

Sinon je n'ai pas d'idée pour le moment..

A+

Petite question bête:

Est ce que quand je défini un nom ex: "ABC" qui renvoie à la page B1:C1,

si je supprime la ligne A la référence du nom s'adapte t elle automatiquement et devient A1:B1?

j'ai regardé l'evolution de mes noms après la suppression les lignes pour la zone "AIBUS" (cf mes derniers posts - première occurence avec IsError) et ils s'adapte bien (les références suivent les données en d'autres termes...).

Je poste ma macro entière ici si vous avez une idée par rapport à mon prroblème du post 5

merci


Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
Application.EnableEvents = False
ActiveSheet.Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = "sauvegarde"
Sheets(Range("A1").Value).Activate

If IsError(Range("AENAsc")) Then
Range("AENA").EntireRow.Delete
End If

If IsError(Range("AIBUSsc")) Then
Range("AIBUS").EntireRow.Delete
End If

If IsError("AENIAsc") Then
Range("AENIA").EntireRow.Delete
End If

If IsError("FSsc") Then
Range("FS").EntireRow.Delete
End If

If IsError("SNAsc") Then
Range("SNA").EntireRow.Delete
End If

If IsError("NAVsc") Then
Range("NAV").EntireRow.Delete
End If

If IsError("EUCONTROLsc") Then
Range("EUCONTROL").EntireRow.Delete
End If

If IsError("REQEUNTISsc") Then
Range("REQUENTIS").EntireRow.Delete
End If

If IsError("ONEYWELLsc") Then
Range("ONEYWELL").EntireRow.Delete
End If

If IsError("NDRAsc") Then
Range("NDRA").EntireRow.Delete
End If

If IsError("ATMIGsc") Then
Range("ATMIG").EntireRow.Delete
End If

If IsError("ATSsc") Then
Range("ATS").EntireRow.Delete
End If

If IsError("ORACONsc") Then
Range("ORACON").EntireRow.Delete
End If

If IsError("EACsc") Then
Range("EAC").EntireRow.Delete
End If

If IsError("ELEXsc") Then
Range("ELEX").EntireRow.Delete
End If

If IsError("TALESsc") Then
Range("TALES").EntireRow.Delete
End If

Application.ScreenUpdating = True
Application.EnableEvents = True
End Sub