on error resume next

[natbru]

Bonjour le forum,

Je reviens vers vous car je voulais créer une macro pour insérer une ligne en recopiant la ligne du dessous et en supprimant les constantes et conserver les formules.
Seulement concernant la selection des constantes, cela semble lui poser problèmes kan il y en a pas. Alors j'ai mis 'On error Resume next' mais il faudrait que ce code s'applique à
aux deux lignes suivantes (cf code ci dessous' car sinon il zappe la partie ou je demande de selectionner les constantes mais pas celle ou je demande de supprimer et donc il me supprime tout (meme les formules)

Sub INSERERLIGNES()

    Rows('5:5').Select
    Selection.Insert Shift:=xlDown
    Rows('6:6').Select
    Selection.Copy
    Rows('5:5').Select
    ActiveSheet.Paste
    
    On Error Resume Next
    Selection.SpecialCells(xlCellTypeConstants, 23).Select
    Selection.ClearContents
    
    Range('A5').Select

End Sub
[quote]

 

[natbru]

Désolé mauvaise manip, j'ai pas pu finir le post.

Pourriez vous me dire comment faire ?

Je peux éventuellement joindre le fichier si besoin.

Merci à tous.

 

[deudecos]

Salut Natbu, le forum,

Plutot que On error resume next
Pourquoi ne pas faire On error goto C?

Rows('5:5').Select
Selection.Insert Shift:=xlDown
Rows('6:6').Select
Selection.Copy
Rows('5:5').Select
ActiveSheet.Paste

On Error Goto C
Selection.SpecialCells(xlCellTypeConstants, 23).Select
Selection.ClearContents
C:
Mais ptete que j'dis une betise... (j'en suis pas a la premiere ! )

Bonne journee

Olivier

 

[natbru]

C super merci beaucoup ca marche.

Sauf que j'ai pas compris ce que ca voulait dire (je suis débutante en vba)

J'ai du rajouter à la fin

Application.CutCopyMode = False

Car sinon il laissait la ligne dans le presse papier (cellules encadrées par des pointillés)

Si tu veux bien m'expliquer ce serait sympa.

D'autant plus que mon fichier ne se trouve pas sur C: ??? mais sur F:

En tout cas encore merci

 

[deudecos]

Re Natbru, le forum,

Desole, je suis alle au plus rapide et j'ai un peu omis d'expliquer... Honte sur moi !

Donc On error goto C

ca veut dire que si une erreur se presente, le 'compilateur' zappe toutes les lignes de code se trouvant entre la ligne de depart, c'est a dire : On error goto C, et l'endroit ou se trouve la reference d'arrivee, a savoir 'C:', qui n'est pas une reference a ton disque dur, mais un nouveau point de depart a ta macro.

Bonne journee

Olivier

 

[natbru]

Ok merci beaucoup pour ton exlication.