Boucle selon cellules selectionnées

Bonjour à tous;

Je souhaiterais effectuer une boucle dans l’écriture d'un fichier texte en vba.

Ma macro créer un fichier texte, écrit plusieurs ligne avec une variable qui correspond à ma cellule sélectionner, et le ferme.

N'etant vraiment pas un expert des boucles je fais appel à vous, je voudrais pouvoir faire la même chose mais avec plusieurs cellules sélectionnées (qui se trouveront toutes dans la même colonne mais pas forcement à la suite).

En sachant que je ne veut pas faire plusieurs fichier texte, mais bien écrire plusieurs fois les 4 lignes print en changeant la variable "ref"

La macro et un fichier d'exemple en piece jointe. :

Sub Launch()

Dim ref As String
ref = ActiveCell.Value

'Ouvre un fichier texte pour ecrire la imacros

Open "\\Mondossier\MacroCluster.iim" For Output As #1

Print #1, "URL GOTO=https://monlien.com?person=" & ref & "&action=edit"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas1.html ATTR=NAME:PE_cas1 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas2.html ATTR=NAME:PE_cas2 CONTENT=NO"
Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas3.html ATTR=NAME:PE_cas3 CONTENT=YES"

Close #1

End Sub

Cordialement,

Jérémy

8exemple.xlsm (17.44 Ko)

Bon bah après 2semaines à galerer la dessus j'ai trouver la solution, qui était toute bête... j'ai honte de moi !! Juste un For .. Each...

    Sub Launch()

    'Ouvre un fichier texte pour ecrire la imacros

    Open "\\Mondossier\MacroCluster.iim" For Output As #1

    For Each i In Selection
    Print #1, "URL GOTO=https://monlien.com?person=" & i & "&action=edit"
    Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas1.html ATTR=NAME:PE_cas1 CONTENT=NO"
    Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas2.html ATTR=NAME:PE_cas2 CONTENT=NO"
    Print #1, "TAG POS=1 TYPE=INPUT:CHECKBOX FORM=ACTION:cas3.html ATTR=NAME:PE_cas3 CONTENT=YES"

    Close #1

    End Sub
     
Rechercher des sujets similaires à "boucle selectionnees"