Discussion :

[moi244]

Bonjour,
Voici mon problème:
Je veux exporter des donnée avec un copier\coller de la feuil2 vers la feuil1. Quand je suis sur la feuil2 et j'éxécute la macro à partir de VBA ça marche très bien. Mais ce que je veux c'est d'appuyer sur un bouton à partir de la feuil1 mais ça ne marche pas.
Qu'est ce qui me manque? j'ai essayé sheets("Feuil1").activate en avant du code, j'ai aussi essayé select. mais ça ne marche pas plus.
Merci.

[SfJ5Rpw8]

Bonjour,

travailler avec des activate, select, feuille active est une mauvaise idée...

montre nous ton code .. et dis nous ou le nombre de classeurs excel concerné ainsi que l'emplacement de ton code .. (dans quel classeur ?)

[moi244]

Et Voilà

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
Worksheets("Feuil2").Activate
Worksheets("Feuil2").Range("A1").Select
.Range("X1:AA1") = "Coût toatl"
LastLigX = .Cells(.Rows.Count, "X").End(xlUp).Row
 
 
    .Range(Cells(2, 24), Cells(LastLigX, 24)).Select
    Selection.Replace What:=",", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=".", Replacement:=",", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
 
    For j = 2 To LastLigX
        Cells(j, 25) = Cells(j, 24) * 2 / 2
        Cells(LastLigX + 1, 25) = Application.WorksheetFunction.Sum(Range(Cells(2, 25), Cells(LastLigX, 25)))
    Next j
    Sheets("Feuil1").Activate
    Sheets("Feuil1").Cells(128, 6) = Sheets("Feuil2").Cells(LastLigX + 1, 25).Value

[SfJ5Rpw8]

ton code semble incomplet il y as des instructions commençant par un point (.range ) sans que l'on voit le With correspondant ..

utilise deux variables de type feuille .

Code :

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

1
2
3
4
5
6
 
Dim sh1 as worksheet
Dim sh2 as worksheet 
 
set sh1 = ThisWorkBook.Worksheets("Feuil1")
set sh2 = ThisWorkBook.Worksheets("Feuil1")

puis préfixe tous tes cells, range, ... avec la feuille correspondante.

Code :

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

 sh1.Cells(128, 6) = sh2.Cells(LastLigX + 1, 25).Value

et supprime toutes tes lignes Activate, Select ... inutiles ..

[moi244]

Merci beaucoup, ça marche!