Déplacer des lignes

D

Dolichotis

XLDnaute Occasionnel

• 30 Mai 2008

• #2

Re : Déplacer des lignes

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

 

Pièces jointes

• falpha.zip

  12.3 KB · Affichages: 37

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Mai 2008

• #3

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 ??

 

Vote positif 0 Vote négatif

D

Dolichotis

XLDnaute Occasionnel

• 30 Mai 2008

• #4

Re : Déplacer des lignes

pierrejean à dit:

bonjour Dilichotis

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

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

Cliquez pour agrandir...

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...

 

Vote positif 0 Vote négatif

D

Dolichotis

XLDnaute Occasionnel

• 30 Mai 2008

• #5

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 !

 

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 30 Mai 2008

• #6

Re : Déplacer des lignes

Re

A tester:

Code:

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

Bien verifier Que ligI est un nombre

 

Vote positif 0 Vote négatif

D

Dolichotis

XLDnaute Occasionnel

• 2 Juin 2008

• #7

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...

 

Vote positif 0 Vote négatif

D

Dolichotis

XLDnaute Occasionnel

• 2 Juin 2008

• #8

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 !

 

Vote positif 0 Vote négatif

D

Dolichotis

XLDnaute Occasionnel

• 2 Juin 2008

• #9

Re : Déplacer des lignes

J'ai remplacé :

Code:

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

par :

Code:

  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 !

 

Vote positif 0 Vote négatif