Discussion :

[NEC14]

Bonjour,

J'ai donc 2 feuilles de calcul. Une nommée RIB et l'autre Compte.

Je souhaiterai faire une impression de la feuille RIB avec des données se trouvant dans la feuille Compte. Le bouton de commande est dans la feuille Compte

J'ai donc fais ceci mais ça ne marche pas, "Incompatibilité de type".
Je n'ai mis qu'une ligne des données à copier, mais il y en à d'autres.
Pouvez-vous me dire où j'ai commis une erreur ?
Merci par avance

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Private Sub CommandButton1_Click()
'j'active la feuille RIB
Sheets("RIB").Activate
'les données de la cellule B5 de la feuille compte vont se copier dans la cellule A7 de la feuille RIB
[A7].Value = Sheets("Compte").Cells("B5").Value
'ensuite j'imprime
Sheets("RIB").PageSetup.PrintArea = "$A$1:$I$65"
Sheets("RIB").Visible = True
Sheets("RIB").PrintOut Copies:=1
Sheets("RIB").Visible = False
End Sub

[aalex_38]

Et comme ça :

Code :

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

WorkSheets("RIB").range("A7") = workSheets("Compte").range("B5")

L'erreur je pense qu'elle est la :

Code :

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

Cells("B5").Value

[NEC14]

Bonjour aalex 38,

ça marche, c'est simple, mais je n'y ai pas pensé. On va chercher compliqué parfois.
Merci pour ton aide