Discussion :

[froggyaz]

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:

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
    ...
    ...

Voila. je pense que c'est tout bete, mais je n'y arrive pas.
Je vous remercie d'avance pour votre aide.

Fred.

[JackOuYA]

Bonjour, Fred,

pas besoin de selection :

Code :

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

Sheets("Accord").rows(1).delete

[froggyaz]

Merci beaucoup JackOuYA. en effet, ca me permet d'avancer dans mon programme (et de buter sur d'autres bugs...mais je les garde pour un autre jour). J'imagine que je peux aussi utiliser la forme condensee pour d'autres fonction (copy,paste, etc) et applicable a d'autres selections(rows, columns, cells)!

Merci encore.

Fred.