Boucle selon cellules selectionnées Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
j
jeremyz
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 mai 2015
Version d'Excel : 2010

Message par jeremyz » 10 octobre 2015, 09:51

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
Exemple.xlsm
(17.44 Kio) Téléchargé 8 fois
j
jeremyz
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 6 mai 2015
Version d'Excel : 2010

Message par jeremyz » 10 octobre 2015, 10:43

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
     
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message