créer une boucle à partir d'un autofill

Lord Brett Sinclair · 28 Octobre 2010

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:

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

Efgé · 28 Octobre 2010

Re : créer une boucle à partir d'un autofill

Bonjour Lord Brett Sinclair,
Une proposition à adapter pour le nom de feuille et le nom du classeur (j'ai également réduit la plage):

Code:

[COLOR=blue]Sub[/COLOR] test()
[COLOR=blue]Dim[/COLOR] Fl [COLOR=blue]As String[/COLOR], Clsr [COLOR=blue]As String[/COLOR]
Fl = "Feuil1"
Clsr = "[Classeur1]"
Range("A4:A65").FormulaR1C1 = "=IF('" & Clsr & Fl & "'!R[4]C1="""","""",'" & Clsr & Fl & "'!R[4]C1)"
[COLOR=blue]End Sub[/COLOR]

Cordialement

Lord Brett Sinclair · 29 Octobre 2010

Re : créer une boucle à partir d'un autofill

Merci pour la réponse, je pense que ça correspond assez bien à ce que je cherche à faire.
Est-il possible de nommer la cellule afin que son adresse puisse être modifiée plus facilement?

Efgé · 29 Octobre 2010

Re : créer une boucle à partir d'un autofill

Bonjour Lord Brett Sinclair, le fil, le forum
En faisant pareil:

Code:

[COLOR=blue]Sub[/COLOR] test2()
[COLOR=blue]Dim[/COLOR] Fl [COLOR=blue]As String[/COLOR], Clsr [COLOR=blue]As String[/COLOR], Cel [COLOR=blue]As String[/COLOR]
Fl = "Feuil1": Clsr = "[Classeur1]": Cel = "R[4]C1"
Range("A4:A65").FormulaR1C1 = "=IF('" & Clsr & Fl & "'!" & Cel & "="""","""",'" & Clsr & Fl & "'!" & Cel & ")"
[COLOR=blue]End Sub[/COLOR]

Cordialement

Lord Brett Sinclair · 29 Octobre 2010

Re : créer une boucle à partir d'un autofill

Bonjour Efgé et merci pour ta réponse.
peut-on remplacer par "R[4]C1" Range("A8") par exemple?, faut-il alors mettre entre guillemets

Efgé · 29 Octobre 2010

Re : créer une boucle à partir d'un autofill

Re
Je m'atendais à ce type de modif. Je propose:

Code:

[COLOR=blue]Sub[/COLOR] test3()
[COLOR=blue]Dim[/COLOR] Fl [COLOR=blue]As String[/COLOR], Clsr [COLOR=blue]As String[/COLOR], Cel [COLOR=blue]As String[/COLOR]
Fl = "Feuil1": Clsr = "[Classeur1]": Cel = "A4"
Range("A4:A65").Formula = "=IF('" & Clsr & Fl & "'!" & Cel & "="""","""",'" & Clsr & Fl & "'!" & Cel & ")"
[COLOR=blue]End Sub[/COLOR]

Cordialement

créer une boucle à partir d'un autofill

Lord Brett Sinclair

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Lord Brett Sinclair

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Lord Brett Sinclair

XLDnaute Nouveau

Efgé

XLDnaute Barbatruc

Discussions similaires