Discussion :

[julius999]

hi dudes

J'aimerai créer une boucle qui me permette de supprimer le "autofill". Dans le cas présent, il s'agit d'un classeur qui va chercher des infos dans un autre classeur. Je voudrai créer une boucle pour que je puisse changer par la suite plus facilement changer les noms des fichiers.
En fait je voudrais ensuite pouvoir déclarer en début de code le nom du fichier et pouvoir réutiliser le code dans d'autres macro juste en changeant les variables au début

Possible?

Code :

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

1
2
3
4
5
Range("A4").Select
    ActiveCell.FormulaR1C1 = _
        "=IF('[TEST.xls]Sheet1'!R[4]C1="""","""",'[TEST.xls]Sheet1'!R[4]C1)"
    Range("A4").Select
    Selection.AutoFill Destination:=Range("A4:A65530"), Type:=xlFillDefault

[helas]

Bonjour
avec des variables

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
'variables
NomFichier="TEST.XLS"
zone="A4:A65530"
 
formule =  "=IF('[" & NomFichier & "]Sheet1'!R[4]C1="""","""",'[" & NomFichier & "]Sheet1'!R[4]C1)"
 
 Range("A4").Select
 ActiveCell.FormulaR1C1 = formule
 Range("A4").Select
 Selection.AutoFill Destination:=Range(zone), Type:=xlFillDefault