Discussion :

[zoumzoum59]

Bonjour à tous

Sur le code suivant j'ai une erreur d'execution 1004 pas de cellules correspondantes.

Cette erreur se produit apparement quand les cellules sont vides, comment puis je eviter ou contourner le blocage de ma macro par cette erreur.

voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub efface()
 Dim t As Variant
 
 nb_lignes = selection.Rows.Count
 ActiveCell.EntireRow.Select
 ActiveCell.Offset(0, 0).Select
 
 t = ActiveCell.Address
 
Stop
 Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents
Range(t, Range(t).Offset(nb_lignes, 14)).SpecialCells(xlCellTypeConstants, xlTextValues).ClearContents
 
 End Sub

Merci d'avance

[SfJ5Rpw8]

et sur qu'elle ligne elle est l'erreur ..? .. , surement sur une des lignes ...SpecialCells... non ...? .. interesse-toi à la gestion d'erreur ... voir :

Code :

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

On Error resume next

as tu lu :

Cours : Programmer efficacement avec Excel en VBA (pdf, 46 pages, 711 Ko) par J-M Rabilloud

[zoumzoum59]

Merci bbil

Tu avais raison c'est bien sur ces lignes et ton code apparemment fonctionne.

Quant au document pdf j'etais tombé dessus en faisant une recherche sur google.
Mais je n'ai pas eu le courage de lire les 46 pages ce soir, mais promis je vais le faire en esperant que je ne vais pas trop pedaler dans la choucroute a cause du niveau des infos.