[XL-2010] Problème avec suppr/décaler [Résolu]

[tompom3108]

Bonjour à tous,

J'ai un code qui fonctionne à peu prés comme je veux, le seul problème
c'est que quand j'effectue le

Code :

selection.Delete Shift:=xlUp

Il m'efface les formules de contenu dans certaines colonnes alors que si je fais la manip en manuel il me décale la selection avec les formules ?
C'est dommage c'était presque parfait...

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub Recup()
Dim rep As Boolean
If Not InitFait Then init
If Ouvert(NcWbs) Then Wbsource.Close
Workbooks.Open Filename:=NcWbs
 
Set Wbdest = ThisWorkbook
Set Wbsource = Workbooks("CC2011T.xlsx")
Set pilote = Workbooks("CC2011T.xlsx").Worksheets("Pilote")
pilote.Activate
 
If pilote.Range("A4").Value = "" Then
 MsgBox ("Il n'y a pas de nouveaux devis")
 Wbsource.Close
 Exit Sub
End If
 
    For ligne = 4 To 10000
    If IsEmpty(Cells(ligne, 1)) Then Exit For
    Next ligne
 
acop = ligne - 1
 
Set selection = Range(Cells(4, 1), Cells(acop, 48))
selection.Select
selection.Cut
 
Wbdest.Worksheets("CC2012").Activate
 
For ligne = 4 To 10000
 
    If IsEmpty(Cells(ligne, 1)) Then Exit For
    Next ligne
 
ThisWorkbook.Worksheets("CC2012").Cells(ligne, 1).Activate
 
ActiveSheet.Paste
 
Wbsource.Activate
selection.Delete Shift:=xlUp  ' c'est la que ça bloque
Wbsource.Close
Wbdest.Save
 
 
End Sub

Un grand merci à ceux qui prennent le temps de répondre.

[Daniel.C]

Bonjour,

Il m'efface les formules de contenu dans certaines colonnes

Est-ce que tu peux donner un exemple, j'ai du mal à comprendre...

[tompom3108]

Bonjour DanielC,

Je vais essayer d'être clair. Je vais prendre l'exemple de la colonne E
J' ai une formule sur cette colonne. La barre de titre va de ligne 1 à 3 danc le "tableau" commence ligne 4.
Donc E4 = B4*C4 par exemple.

Or je me sers de ce classeur comme plaque tournante de donnée (ordi en réseaux). Les lignes de données peuvent s'accumuler de 4 à x
Le classeur de destination sur lequel il y a la macro recup() doit récupérer ces données.

Donc j'ai utilisé cut le problème c'est que cut m'enlève les formules du coup j'ai rajouter delete shift:=xlup pour remplacer les lignes coupées qui ont perdu les formules par celles dessous qui les ont encore. Manuellement ça fonctionne. Peut être je devrais juste faire copier et clear.contents je vais essayer.

Bon Clearcontents c'est la même chose ...

[Daniel.C]

Tu dois avoir une erreur sur la ligne suivante :

Code :

Set Selection = Range(Cells(4, 1), Cells(acop, 48))

Mets plutôt :

Code :

Range(Cells(4, 1), Cells(acop, 48))

[tompom3108]

Bon ça roule je comprends pas trop pourquoi mais l'essentiel c'est que ça marche
Merci beaucoup Daniel.C