Déplacer des lignes

[Dolichotis]

Bonjour,

Mon problème est simple mais bizarre...

Afin de ne pas écraser des informations situées sur certaines lignes, je les déplace de x lignes.
Ne sachant pas comment faire j'ai utilisé l'enregistreur de macros, j'ai fait des modifications pour le mettre dans mon programme mais ça ne marche pas !!
Le code s'exécute, aucune erreur d'exécution, mais les lignes disparaissent ! aucune trace !


J'ai essayé sur un autre classeur, seulement cette macro, ça marchait...

'déplacer les zones grises
            ActiveSheet.Rows("9:25").Select
            Selection.Cut Destination:=Rows("" & ligI & ":" & ligJ & "")
            ActiveSheet.Rows("" & ligI & ":" & ligJ & "").Select

Si vous pouvez me dire ce qui cloche, parce que j'ai beau chercher, je trouve pas. Merci !

 

[Dolichotis]

Re : Déplacer des lignes

Peut-être que vous aurez aussi besoin de ceux-là...

 

[pierrejean]

Re : Déplacer des lignes

bonjour Dilichotis

A toute premiere vue , et sans avoir consulté les fichiers:

Est-ce qu'il ne manquerait pas un Paste par hasard ??

 

[Dolichotis]

Re : Déplacer des lignes

bonjour Dilichotis

A toute premiere vue , et sans avoir consulté les fichiers:

Est-ce qu'il ne manquerait pas un Paste par hasard ??

Bonjour pierrejean !

Où est-ce qu'il faudrait mettre le paste ?

Parce que j'ai utilisé l'enregistreur de macros, j'ai obtenu ce code et j'ai essayé exactement le même code avec des variables aussi dans un classeur ne contenant que cette macro et là, ça marchait...

 

[Dolichotis]

Re : Déplacer des lignes

Le truc, c'est que je ne comprends pas pourquoi ça marche nickel dans un classeur (avec uniquement cette macro + déclaration de variables bien sûr) et pas dans l'autre (en PJ). Trop de code ? Trop de variables ?

Je dois partir maintenant, j' espère que je (ou vous) trouverai (ez) la solution ce week-end !

Merci pour vos réponses !

 

[pierrejean]

Re : Déplacer des lignes

Re

A tester:

Rows("9:25").Cut
Cells(ligI,1).Select
ActiveSheet.Paste

Bien verifier Que ligI est un nombre

 

[Dolichotis]

Re : Déplacer des lignes

Bonjour, pierrejean. J'espère que tu as passé un bon week-end !

J'ai essayé ton code en remplacement du mien mais nouvel échec ! Ton code est censé couper et coller les lignes 9 à 25 à la ligI etc ? J'ai bien mis ligI comme integer (ça devrait suffire non ?) il ne me signale aucune erreur non plus (sauf quand je l'ai fait tourner la première fois.

Je comprends pas du tout pourquoi ça ne marche pas dans ce classeur ! J'ai essayé exactement le même dans un autre classeur et ça marche. Y a-t-il interférence avec mon programme ?
Quand je regarde les valeurs en passant sur les variables pendant l'exécution pas à pas, il me donne bien les valeurs que j'attendais et je regarde à l'endroit où la zone devrait apparaitre mais rien !

Ca reste un mystère...

 

[Dolichotis]

Re : Déplacer des lignes

J'ai peut-être un début d'explication, j'ai vu où ont disparu les lignes...
Je teste pour voir !

 

[Dolichotis]

Re : Déplacer des lignes

J'ai remplacé :

'déplacer les zones grises
            ActiveSheet.Rows("9:25").Select
            Selection.Cut Destination:=Rows("" & ligI & ":" & ligJ & "")
            ActiveSheet.Rows("" & ligI & ":" & ligJ & "").Select

par :

  ActiveSheet.Rows("9:25").Select
            Set wsOutil = wbOutil.Worksheets("" & TypeComp & "")
            Selection.Cut Destination:=wsOutil.Rows("" & ligI & ":" & ligJ & "")
            wsOutil.Rows("" & ligI & ":" & ligJ & "").Select

En fait, les lignes allaient se mettre dans la feuille 2 du classeur et non dans la feuille où j'étais...

Bon, j'ai encore beaucoup à apprendre... Merci, pierrejean de ton aide !