macro excel

[Alain]

Bonjour,

Voici mon problème: Dans l'onglet équipement, une fois le calcul de l'équipement effectué, j'appuie sur le bouton ajouter une pièce d'équipement ce qui a pour effet d'ajouter deux lignes dans le premier cadre plus bas, ligne 33-34 et une ligne pour la maintenance ligne 42. Cela fonctionne très bien pour le premier ajout. C'est à partir du second que ça ne fonctionne plus, au deuxième ajout la maintenance ne s'ajoute pas au bon endroit.

Des suggestions ???

Merci d'avance, Alain

 

[Jean-Marie]

Bonjour, Alain

Il faut nommer les lignes

1) sélectionne les lignes 34:35
2) clique sur le menu Insertion/Nom/Définir...
3) dans la boîte de dialogue, dans le champ du nom, tape ceci : Cadre1
4) valide
5) sélectionne la ligne 44
6) clique sur le menu Insertion/Nom/Définir...
7) dans la boîte de dialogue, dans le champ du nom, tape ceci : Cadre2
8) valide

change ton code (les parties en gras) :
Rows("Cadre1").Select
Selection.Insert Shift:=xlDown
Range("C17:K18").Select
Selection.Copy
Range("C34").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Rows("Cadre2").Select

@+Jean-Marie

 

[Alain]

Merci Jean-Marie,

MAIS, y a un blème. Apr`s avoir fait les modifications, je reçois le message suivant sur Rows ("Cadre1").select

Run-Time error '13'

Type mismatch