XL 2010 EntireRow dépasse la range à laquelle il est affecté.

g.milano

XLDnaute Junior
Bonjour,

Je rencontre un soucis avec EntireRow. J'ai une feuille excel avec 3 tableaux verticaux. Je dois insérer des lignes dans le premier de ces tableaux, mais l'insertion s'applique à toute la feuille. Je vous mets ci-dessous ma macro test reproduisant le problème.
J'ai cherché sur le net, mais on peut bel et bien affecter EntireRow à une range. Pour le moment, je ne n'avais utilisé cette commande que lors de masquage ou suppression complète, jamais dans une range qui n’était pas la feuille complète.

VB:
MShk = 332793 'valeur recherchée afin de la dupliquer
Set RiList = ActiveSheet.Columns("A:D") 'premier tableau
Retsu = RiList.Columns("A").Find(MShk, LookAt:=xlWhole).Row
RiList.Rows(Retsu).EntireRow.Copy
RiList.Rows(Retsu).EntireRow.insert Shift:=xlDown

Merci pour vos éclaircissements.
 

dg62

XLDnaute Barbatruc
Bonjour Fanch55

avec selection

VB:
MShk = "332793" 'valeur recherchée afin de la dupliquer
Set RiList = ActiveSheet.Columns("A:D") 'premier tableau
retsu = RiList.Columns("A").Find(MShk, LookAt:=xlWhole).Row
Range("A" & retsu & ":D" & retsu).Select
Selection.Copy
Selection.Insert Shift:=xlDown
 

Statistiques des forums

Discussions
311 725
Messages
2 081 940
Membres
101 845
dernier inscrit
annesof