Boucle tant que cellule non vide

Résolu/Fermé

Sam2021 Messages postés 1 Date d'inscription vendredi 5 février 2021 Statut Membre Dernière intervention 5 février 2021 - 5 févr. 2021 à 13:42
yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 - 9 févr. 2021 à 15:37

Bonjour

je n'arrives pas à faire une boucle A la place de ("AB2:AB11") je voudrais faire une boucle tant que cellule non vide, filtrer et coller dans nouveau classeur.

Sub filtreetclasseurOK()
'sélectionner la plage à filtrer
  Range("A7").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Selection.AutoFilter
    
'filtre en fonction de l'année et de la direction
For Each cell In Range("AB2:AB11")
Worksheets("Travail RAR").Range("A$7").AutoFilter _
 Field:=27, _
 Criteria1:=cell.Value, _
 VisibleDropDown:=True

'copie le filtre dans une nouvelle feuille

ActiveSheet.AutoFilter.Range.Copy
Workbooks.Add.Worksheets(1).Paste
chemin = ThisWorkbook.Path
ActiveWorkbook.SaveAs Filename:=chemin & "\" & cell.Value & ".xls"
Workbooks(cell.Value & ".xls").Close

 Next cell

End Sub

je vous remercie

Cordialement
Sandie

A voir également:

Vba boucle tant que cellule non vide
Coeur vide ✓ - Forum Réseaux sociaux
Formate pour taxer client frigo vide ✓ - Forum Vos droits sur internet
Vba dernière colonne non vide ✓ - Forum VB / VBA
Mon pc s'allume et s'éteint en boucle - Forum Matériel & Système
Vba récupérer valeur cellule ✓ - Forum VB / VBA

2 réponses

Réponse 1 / 2

yg_be Messages postés 22692 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 16 avril 2024 1 471
5 févr. 2021 à 15:26

bonjour,
sans avoir fait attention à ce qui se trouvait dans la boucle:

set cell = Range("AB2")
do while cell <> ""
    ' ...
    set cell=cell.offset(1)
loop

Discussions similaires

Interrompre Boucle si cellule vide dans la colonne A

[VBA] Détection cellule vide

Comment sortir de boucle for quand condition atteinte

faire une boucle sans VBA

sortir d'une boucle for

Excel VBA : Boucle For Each, Do While

Discussions similaires

Newsletters