Discussion :

[anthov]

Bonjour

Je souhaite mettre à jour la colonne destination 24 de la feuille Sheet1, avec les données de la colonne 11 de la feuille Feuil5

J'ai crée une macro :

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
 
Sub updPPG()
Dim lastrow As Long, erow As Long
 
lastrow = Feuil5.Cells(Rows.Count, 1).End(xlUp).Row
For i = 2 To lastrow
 
Feuil5.Cells(i, 11).Copy
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
Feuil5.Paste Destination:=Worksheets("Sheet1").Cells(erow, 24)
 
Next i
 
Application.CutCopyMode = False
Sheet1.Columns.AutoFit
Range("A1").Select
 
End Sub

Il ne se passe rien. Les données de la colonne destination ne sont pas écrasées.

Merci de m'éclairer

[Theze]

Bonjour,

Dans ton code, une chose m'intrigue ! Tu as cette ligne de code :

Code :

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

1
2
 
lastrow = Feuil5.Cells(Rows.Count, 1).End(xlUp).Row

et cette ligne de code :

Code :

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

1
2
 
erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

Je suis surpris que tu puisses avoir et Feuil5 et Sheet1 ? Si Excel est en Français, tu devrais avoir Feuil1 et non Sheet1 et si en Anglais Sheet5 et non Feuil5 ?
C'est bien ce que tu as dans la fenêtre "Explorateur de projets (en haut à gauche) ?

[anthov]

Tout à fait,

Mon fichier xls de départ avec ma premiére macro est un fichier dl en anglais

Ensuite, pour développer, j'ai rajouté des feuilles (Feuil in French!)

[Theze]

Ok, je comprends mieux !

Dans ton code ligne 9 tu fait la recherche sur la colonne A mais tu n'y inscrit pas de valeur donc elle sera la même tout au long de la boucle car les valeurs sont inscrites en colonne X. Il te faut d'abords récupérer la première position par rapport à la colonne A puis ensuite, te référer à la colonne X :

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
 
Sub updPPG()
 
    Dim lastrow As Long, erow As Long
    Dim I As Integer
 
    lastrow = Feuil5.Cells(Rows.Count, 1).End(xlUp).Row
 
    'd'abords sur la colonne A...
    erow = Sheet1.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
    For I = 2 To lastrow
 
        Sheet1.Cells(erow, 24) = Feuil5.Cells(I, 11).Value
        'ensuite sur la colonne X
        erow = Sheet1.Cells(Rows.Count, 24).End(xlUp).Offset(1, 0).Row
 
    Next I
 
    Application.CutCopyMode = False
    Sheet1.Columns.AutoFit
    Range("A1").Select
 
End Sub

[anthov]

Je comprends ton raisonnement, mais cela ne fonctionne pas !

Ci-joint fichier complet :

Colonne Total feuille PROJ

sur FPPG feuille Sheet1

Merci par avance

[anthov]

Je me suis aperçu que le coller s'est effectué à la ligne 189 de la colonne suivante X .....

Pourquoi? Je ne vois pas

[Theze]

Tu me parles de "Colonne Total feuille PROJ" mais la feuille "PROJ" a pour module "Feuil7" et non module "Feuil5" qui lui est le module de la feuille "FW".
Je pense qu'il est préférable d'utiliser les noms des feuilles plutôt que les noms de leurs modules :

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
 
Sub updPPG()
 
    Dim lastrow As Long, erow As Long
    Dim I As Integer
 
    lastrow = Worksheets("PROJ").Cells(Rows.Count, 1).End(xlUp).Row
 
    'd'abords sur la colonne A...
    erow = Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
 
    For I = 2 To lastrow
 
        Worksheets("Sheet1").Cells(erow, 24) = Worksheets("PROJ").Cells(I, 11).Value
        'ensuite sur la colonne X
        erow = Worksheets("Sheet1").Cells(Rows.Count, 24).End(xlUp).Offset(1, 0).Row
 
    Next I
 
    Worksheets("Sheet1").Columns.AutoFit
    Range("A1").Select
 
End Sub