Comment réaliser une boucle????????

M

mamyfik

Guest

• 25 Août 2011

• #2

Re : Comment réaliser une boucle????????

Bonjour!

Un début de réponse pour la boucle :

Dim Cellule as Range

For each Cellule in Range("C9:C100")
If Cellule.Value = "x" then
[Lancer l'impression du fichier se trouvant en Range("A" & Cellule.Row)]
end if
next Cellule

++

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Août 2011

• #3

Re : Comment réaliser une boucle????????

Bonjour

VB:

Dim PlgSel As Range, L As Long
Set PlgSel = Fxxx.[C9:C12] ' Fxxx: le CodeName de la feuille, C9:C12: un nom serait mieux
For L = 1 To PlgSel.Rows.Count
   If PlgSel.Rows(L).Value = "x" Then ' ou mieux "ü": une coche en Wingdings
   Rem. vos instructions d'impressions
      Enf If
   Next L

Cordialement.

Bonjour mamifik

 

Vote positif 0 Vote négatif

A

aviateur

Guest

• 25 Août 2011

• #4

Re : Comment réaliser une boucle????????

Je te remercie de ton aide, dernière question comment faire pour activer cette boucle avec un bouton. C'est à dire une fois que la personne à mis le x sur toute les lignes qu'il désire imprimer, il faudrait qu'elle appuie sur un bouton pour lancer l'impression.
D'avance merci

Bonne matinée

Cordialement

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 25 Août 2011

• #5

Re : Comment réaliser une boucle????????

Mettre le code dans l'évènement Click du bouton de commande ou si c'est un bouton de formulaire dans une sub d'un module ordinaire qui sera affectée à sa propriété OnAction.
À+

 

Vote positif 0 Vote négatif

A

aviateur

Guest

• 25 Août 2011

• #6

Re : Comment réaliser une boucle????????

Merci pour tout l'ami. Ton travail correspond à ce que je voulais.

A+

 

Vote positif 0 Vote négatif