Bonjour a tous,
tout d'abord, je tiens a precise que je ne m'y connais que tres peu en matiere de VBA. Donc, mon probleme qui me semble absolument trivial mais que je n'arrive pas a resoudre est le suivant.
En voila le debut:
Voila. je pense que c'est tout bete, mais je n'y arrive pas.
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 Private Sub CommandButton1_Click() Dim cells_to_print As String 'la, je fais un double d'une feuille excel pour pouvoir manipuler les donnees sans toucher a l'original Sheets.Add Type:="C:\Documents and Settings\leroux01\Application Data\Microsoft\Templates\Accord.xlt" Sheets("Registration").Select Cells.Select Selection.Columns.AutoFit Selection.Copy Sheets("Accord").Select ActiveSheet.Paste Sheets("Accord").Activate 'c'est ici que le programme bloque(ci-dessous), alors que je veux simplement selectionner la premiere ligne afin de l'effacer Range("1:1").Select Selection.Delete Cells.Select AxlGetChemistryPicture Columns("A:A") Columns("G:H").Select Selection.Delete Shift:=xlToLeft Columns("G:G").Select Selection.NumberFormat = "0.00" Columns("V:V").Select ... ...
Je vous remercie d'avance pour votre aide.
Fred.
Partager