Discussion :

[Djromé]

Salut les Kracks,

Je souhaiterai savoir si il est possible de nommer plusieurs feuille de mon classeur en une variable (ou procédure?) afin de raccourcir ma macro, du genre (très mauvais je sais mais c'est là que vous intervenez ;-):

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim mavariable as sheet
mavariable = (mafeuille2;mafeuille6;etc...)
For each mavariable "dans chaque feuilles représentées par ma variable et non toutes celles du classeur
and for each cellsvalue <> "" in Range("P10:P")& Range("h6").Value + 9) " je souhaiterai copier sur une nouvelle feuille la ligne entière si une valeur se trouve dans une cellule (ou plusieurs qui ne sont pas forcément consécutives) défini en Range("P10:P")& Range("h6").Value + 9)

Pour scinder, je veux créer un rapport me permettant d'obtenir toutes les lignes dont il y a un contenu dans une colonne spécifiée et pour un certain nombre d'onglet!
Espérant vous avoir été le plus clair possible,

[mercatog]

Un début

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim TabSht
Dim c As Range
Dim i As Integer
Dim k As Long
 
TabSht = Array("Feuil1", "Feuil3", "Feuil4")
For i = LBound(TabSht) To UBound(TabSht)
    With Sheets(TabSht(i))
        k = .Cells(Rows.Count, "P").End(xlUp).Row
        For Each c In .Range("P10:P" & k)
            'traitement
        Next c
    End With
Next i

[Djromé]

Merci beaucoup Mercatog,

Je vais m'atteler à la copie de la ligne entière