Discussion :

[hizoka]

Bonjour à vous,

pour des besoins pro, je découvre les macro excel, mes connaissances sont donc très limitées, mais les possibilités sont intéressantes...

Actuellement, j'ai créé une fonction qui me permet d'importer des valeurs depuis un autre fichier.
Mon code (qui suit) fonctionne, mais je souhaiterais utiliser une boucle (For Each ?) afin de l’alléger mais je me retrouve avec des erreurs 400.

Voici 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
Sub LoadInfo()
    fichier = "C:\Fichier-a-Utiliser.xlsm"    
    Set WorkBookLoaded = Workbooks.Open(Filename:=fichier, ReadOnly:=True)    
    Set SheetLoaded = WorkBookLoaded.Sheets("Compte-rendu")
 
    With ThisWorkbook.Sheets("Compte-rendu")
        .Range("L5").Value = SheetLoaded.Range("L5").Value
        .Range("L6").Value = SheetLoaded.Range("L6").Value
        ' et de nombreuses autres cellules
    End With
 
    WorkBookLoaded.Close savechanges:=False
End Sub

dans le with je souhaiterais une commande du genre (si j'ai bien pigé) :

Code :

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

1
2
3
4
5
    With ThisWorkbook.Sheets("Compte-rendu")
        For Each cellule in .Range("L5:L6, F5:F10")
            .Range(cellule).Value = SheetLoaded.Range(cellule).Value
        Next cellule
    End With

Et quand je lance j'ai le droit à une erreur 400...

Comment faire fonctionner ma boucle ?

Merci de votre aide et bonne journée à vous !

[unparia]

Bonjour

ta variable cellule est déjà un objet Range (bien que tu aies omis de déclarer cette variable en la typant)
Dès lors :

Code :

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

 .Range(cellule)

n'a plus aucun sens (l'objet Range d'un Range ... !)

[Menhir]

Code :

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

1
2
3
        For Each cellule in .Range("L5:L6, F5:F10")
            .Range(cellule).Value = SheetLoaded.Range(cellule).Value
        Next cellule

Un conseil : déclare tes variables (instruction Dim) et indique leur type.

Dans ton cas, "cellule" est un objet de type Range.
Il est donc inutile de le mettre dans un Range, puisque ça en est déjà un.
En fait, écrire Range(cellule) revient à aller chercher l'adresse du Range dans le contenu de la cellule "cellule".

Bref :

Code :

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

            cellule.Value = SheetLoaded.Range(cellule.Address).Value

Autre chose : le paramètre de Range ne peut pas être une zone morcelée.
Donc :

Code :

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

Union(Range("L5:L6"), Range("F5:F10"))

[hizoka]

Un conseil : déclare tes variables (instruction Dim) et indique leur type.

OK, j'avais lu que c'était facultatif du coup j'ai fait mon faignant...

Dans ton cas, "cellule" est un objet de type Range.
Il est donc inutile de le mettre dans un Range, puisque ça en est déjà un.
En fait, écrire Range(cellule) revient à aller chercher l'adresse du Range dans le contenu de la cellule "cellule".

Arf... le débile en effet... c'était logique...

Merci beaucoup à vous !

EDIT :

Autre chose : le paramètre de Range ne peut pas être une zone morcelée.

Pourtant cela fonctionne :

Code :

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

Range("L5:L6, F5:F10, A14:A19, B14")

il me remplit bien les valeurs.
Mais je garde en tête ta remarque en cas de problème !