Bonjour,

Bien qu'ayant réalisé plusieurs macro, je me qualifie toujours de débutant ^^.

Voila mon problème :

J'ai un classeur excel comportant plusieurs onglets (49 au total). Les 2 premiers sont des onglets de présentation, le 3eme est celui sur lequel j'aimerai travailler. Les autres onglets comporte un tableau (le même pour tous) mais avec des valeurs différentes.
J'aimerai mettre dans l'onglet 3 certaines valeurs de ces tableaux ou chaque lignes correspond à un onglet différend.

Voila mon code :

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
Private Sub CommandButton1_Click()
 
'Variables
Dim i As String
Dim j As String
Dim numonglet As String
 
'Activation
Workbooks("Tableaux de synthèse v06.xlsm").Sheets("Profil énergétique").Activate
 
'Préparation
numonglet = 4
j = 5
 
'Copie des données
For i = 4 To 45
    Sheet("Profil énergétique").Cells(j, 2).Value = Sheet(i).Range("I3")
    Sheet("Profil énergétique").Cells(j, 3).Value = Sheet(i).Range("I24")
    Sheet("Profil énergétique").Cells(j, 4).Value = Sheet(i).Range("I25")
    Sheet("Profil énergétique").Cells(j, 5).Value = Sheet(i).Range("I26")
    Sheet("Profil énergétique").Cells(j, 6).Value = Sheet(i).Range("I27")
    Sheet("Profil énergétique").Cells(j, 7).Value = Sheet(i).Range("I28")
    Sheet("Profil énergétique").Cells(j, 8).Value = Sheet(i).Range("I29")
    Sheet("Profil énergétique").Cells(j, 9).Value = Sheet(i).Range("I30")
    Sheet("Profil énergétique").Cells(j, 10).Value = Sheet(i).Range("I31")
    Sheet("Profil énergétique").Cells(j, 11).Value = Sheet(i).Range("I32")
    Sheet("Profil énergétique").Cells(j, 12).Value = Sheet(i).Range("I33")
    Sheet("Profil énergétique").Cells(j, 13).Value = Sheet(i).Range("I34")
    Sheet("Profil énergétique").Cells(j, 14).Value = Sheet(i).Range("I35")
    Sheet("Profil énergétique").Cells(j, 15).Value = Sheet(i).Range("I36")
    Sheet("Profil énergétique").Cells(j, 16).Value = Sheet(i).Range("I37")
    Sheet("Profil énergétique").Cells(j, 17).Value = Sheet(i).Range("I38")
    Sheet("Profil énergétique").Cells(j, 18).Value = Sheet(i).Range("I39")
    Sheet("Profil énergétique").Cells(j, 19).Value = Sheet(i).Range("I40")
    Sheet("Profil énergétique").Cells(j, 20).Value = Sheet(i).Range("I41")
    Sheet("Profil énergétique").Cells(j, 21).Value = Sheet(i).Range("I15")
 
    Sheets("Profil énergétique").Rows(j + 1).Resize(1).Insert Shift:=xlDown
    j = j + 1
Next i
 
End Sub
Le problème c'est que lors du lancement j'ai une erreur de compilation "incompatibilité de type" et cela me surligne la première ligne !!!

je ne comprends pas du tout pourquoi...

Y aurait il quelqu'un pour me dépêtrer de cette affaire ??

En vous remerciant,

Ptibot