Discussion :

[explo_z]

Bonjour à toutes et à tous,

Je cherche à insérer une boucle dans une boucle (voir fichier). Je souhaite copier le nom de feuilles présentes dans une colonne (1ere partie du code) et insérer ce nom dans une cellule vide (2eme partie). Mais voilà je rencontre un problème car le nom de la feuille s'inscrit plusieurs fois (sur toute la ligne) alors que je désire le voir apparaitre qu'une seule fois puis passer au second nom. J'ai localisé le problème mais n'arrive pas à trouver la solution (Exit Sub ne convient pas car bien entendu cela arrête complètement la procédure).

Merci d'avance ...

[DeaD78]

Salut,

Voici ta macro :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub report()
'Report des noms des feuilles restantes
 
Dim R As Range
Dim val As Variant
Dim f As Variant
 
'Boucle sur chaque cellule de la plage NUM
For Each R In Range("R2:R309")
'Si la cellule contient la valeur <> "", on poursuit ....
    If R.Value <> "" Then
        f = R.Offset(0, 3).Value '3 colonne après le test
        val = R.Offset(0, 2).Value '2 colonne apres le test
        Sheets(f).Activate
        'inscription du nom dans la premiere cellule vide
        For l = 19 To 37 Step 3
            For c = 4 To 22 Step 6
                If Cells(l, c).Value = "" Then
                    Cells(l, c).Value = val
                    Cells(l, c).Offset(0, -1).FormulaR1C1 = "TRUE"
                    Exit For
                End If
            Next
            If Cells(l, c).Value = val Then
                Exit For
            End If
        Next
    End If
Next R
 
End Sub

Il y a simplement un soucis d'algo à ce niveau.

Bonne chance pour la suite.

[explo_z]

t'es un as ça marche au poil Nickel @ +