Discussion :

[Lordvoldman]

Bonjour,

Ma macro qui devrait copier quelques colonnes de ma feuille1 à ma feuille2 ne fonctionne pas. Pourriez vous m'aider svp?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
46
47
48
Sub Penalties()
 
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.DisplayAlerts = False
Application.DisplayStatusBar = False
 
 
 
 
 
 
lr = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
        'COPY DATA
        On Error Resume Next
 
 
        ThisWorkbook.Sheets("Feuil1").Range("A2", Range("A" & lr)).Copy Destination:=Sheets("Penalties").Range("K")
        ThisWorkbook.Sheets("Feuil1").Range("B2", Range("B" & lr)).Copy Destination:=ThisWorkbook.Sheets("Penalties").Range("B2")
        ThisWorkbook.Sheets("Feuil1").Range("C2", Range("C" & lr)).Copy Destination:=ThisWorkbook.Sheets("Penalties").Range("C2")
        ThisWorkbook.Sheets("Feuil1").Range("D2", Range("D" & lr)).Copy Destination:=ThisWorkbook.Sheets("Penalties").Range("D2")
        ThisWorkbook.Sheets("Feuil1").Range("F2", Range("F" & lr)).Copy Destination:=ThisWorkbook.Sheets("Penalties").Range("E2")
        ThisWorkbook.Sheets("Feuil1").Range("G2", Range("G" & lr)).Copy Destination:=ThisWorkbook.Sheets("Penalties").Range("F2")
 
lr4 = Sheets("Penalties").Range("A" & Rows.Count).End(xlUp).Row
 
 
   For i = lr4 To 2 Step -1
 
   If ThisWorkbook.Sheets("Penalties").Range("F" & i) >= ThisWorkbook.Sheets("Penalties").Range("G" & i) Then
        ThisWorkbook.Sheets("Penalties").Range("F" & i).EntireRow.Delete
    Else
        'do nothing
    End If
Next i
 
 
 
 
ThisWorkbook.Sheets("Penalties").Columns.AutoFit
MsgBox "Task Completed..."
 
Application.ScreenUpdating = True
Application.DisplayStatusBar = True
Application.Calculation = xlCalculationAutomatic
Application.DisplayAlerts = True
 
End Sub

[Lordvoldman]

Aussi, j'ai oublié de préciser que dans ma feuille 2 (penalties), j'essaye de coller dans un format tableau prédéfini, pour pouvoir avoir des colonnes calculés automatiquement a partir de ces colonnes qui seront collées.

[BENNASR]

bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("A2", Range("A" & lr)).Copy Destination:=Sheets("Penalties").Range("K")

manque pas 2 ?? K2 non?

essayez avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ThisWorkbook.Sheets("Feuil1").Range("A2:A" & lr)).Copy Destination:=Sheets("Penalties").Range("K2")

[Lordvoldman]

Bonjour,

Bravo à vous, le code fonctionne. Mais, une fois de plus rien n'est affiché.
Quand je le passe au F8, le contenu est collé mais il me semble que la boucle IF le supprime, pourquoi donc ?

[BENNASR]

bonsoir
cette partie de code ne pose aucun problème et tu peux la tester dans un code séparé
ou bien toutes les lignes sont conformes à la condition : hisWorkbook.Sheets("Penalties").Range("F" & i) >= ThisWorkbook.Sheets("Penalties").Range("G" & i)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
lr4 = Sheets("Penalties").Range("A" & Rows.Count).End(xlUp).Row
 
 
   For i = lr4 To 2 Step -1
 
   If ThisWorkbook.Sheets("Penalties").Range("F" & i) >= ThisWorkbook.Sheets("Penalties").Range("G" & i) Then
        ThisWorkbook.Sheets("Penalties").Range("F" & i).EntireRow.Delete
    Else
        'do nothing
    End If
Next i

si non ajouter comme ligne 29 et dire ce que ça donne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Sheets("Penalties").activate