Discussion :

[Lephil00]

Bonjour tout le monde, j'espère que vous allez bien.

Je viens à vous car j'ai soucis dans un code que écris. J'ai débogué pas à pas et tout est bien mais la ligne que j'ai mis en évidence ça ne passe pas. Je reçois une erreur 1004. J'ai essayé toutes les syntaxes possibles mais ça ne passe toujours pas. Mais si je remplace les variables de la ligne par des chiffres le code s'exécute bien. Pouvez-vous m'aider à résoudre cela svp ?

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
Private Sub CommandButton3_Click()
Dim ds As Integer
Dim fs As Integer
 
    Columns("E:M").Select
    Selection.Copy
    Sheets("Ressources").Visible = True
    Sheets("Ressources").Select
    Worksheets("Ressources").Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    'Cells.Select
    'Selection.ColumnWidth = 10.86
    'Selection.ColumnWidth = 11
'    Range("C7").Select
    Sheets("Ressources").Visible = False
    Sheets("Données brutes").Select
 
 
    'regime stable
  '  Sheets("DONNEES TOTALES").Select
  '  ActiveWindow.SmallScroll Down:=75
    ds = Sheets("Données brutes").Range("D24").Value
    fs = Sheets("Données brutes").Range("D25").Value
    Sheets("DONNEES TOTALES").Visible = True
    Sheets("DONNEES TOTALES").Activate
 
    ActiveSheet.Range("A&ds:A&fs").EntireRow.Select             '(Voici la ligne)
 
    Selection.Copy
    Sheets("DONNEES STABILITE").Select
    Rows("2:2").Select
    Selection.Insert Shift:=xlDown
    Sheets("CALCULS").Select
 
 
End Sub

[Phil Free]

Bonjour,

mauvaise syntaxe !

ds et fs sont des valeurs qui ne doivent pas être entre les double quotes.
De plus le caractère '&' est ici utilisé pour la concaténation d'une chaîne avec une autre chaîne et/ou avec une variable.
Ce caractère ne dois, lui aussi pas se retrouver entre double quotes.

essais ceci :

Code :

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

ActiveSheet.Range("A" & ds & ":A" & fs).EntireRow.Copy

note aussi que à quelques exceptions près la méthode "Select" est inutile ! dans ton code l'exception sera "PasteSpecial" pour le reste tu peux t'en passer.

prend aussi l’habitude d'utiliser L'instruction 'With... End with' cela simplifie la lecture et l’écriture du code. par exemple :

Code :

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

1
2
    ds = Sheets("Données brutes").Range("D24").Value
    fs = Sheets("Données brutes").Range("D25").Value

peut être avantageusement remplacé par :

Code :

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

1
2
3
4
With Sheets("Données brutes")
    ds = .Range("D24").Value 'attention  sur cette ligne et la suivante le point devant Range est obligatoire ! il signale au vba que Range est associé à With Sheets("Données brutes")
    fs = .Range("D25").Value
End with

Philippe

[Lephil00]

Merci Phil Free pour tes explications. Je suis en train de refaire les lignes avec tes explications.