amarbaix
Nouveau membre
Bonjour
Dans ma colonne M (la colonne 13) de ma feuille "PLANS", j'ai fait une formule qui me donne un état de mes documents.
La formule de ma colonne M me donne 3 réponses possible : "Doc. en attente" ; "OK" ; " "
Idem avec la colonne M (la colonne 13) de ma feuille "Fiche technique".
Idem avec la colonne N (la colonne 13) de ma feuille "NC ; note de calcul".
La colonne 1 de ces trois feuilles donne le nom du document. La colonne 2, la version du document et la colonne 3, le nom
J'essaye depuis des jours de créer une macro qui me fait une liste (dans une feuille nommée "LISTE") des documents avec la valeur "Doc. en attente" et cela avec les trois feuilles ci-dessus (PLANS, Fiche technique, note de calcul)
J'ai essayé de faire une macro avec une feuille mais ça ne marche pas.
Sub Copy()
Dim Nom As String
Dim i, j As Integer
Sheets("PLANS").Select
i = 7
j = 2
Do
Nom = "Doc. en attente"
If Sheets("PLANS").Cells(i, 13).Value = Nom Then
Sheets("LISTE").Cells(j, 1).Value = Sheets("PLANS").Cells(i, 1).Value
i = i + 1
End If
j = j + 1
Loop While i = 1000
End Sub
Dans ma colonne M (la colonne 13) de ma feuille "PLANS", j'ai fait une formule qui me donne un état de mes documents.
La formule de ma colonne M me donne 3 réponses possible : "Doc. en attente" ; "OK" ; " "
Idem avec la colonne M (la colonne 13) de ma feuille "Fiche technique".
Idem avec la colonne N (la colonne 13) de ma feuille "NC ; note de calcul".
La colonne 1 de ces trois feuilles donne le nom du document. La colonne 2, la version du document et la colonne 3, le nom
J'essaye depuis des jours de créer une macro qui me fait une liste (dans une feuille nommée "LISTE") des documents avec la valeur "Doc. en attente" et cela avec les trois feuilles ci-dessus (PLANS, Fiche technique, note de calcul)
J'ai essayé de faire une macro avec une feuille mais ça ne marche pas.
Sub Copy()
Dim Nom As String
Dim i, j As Integer
Sheets("PLANS").Select
i = 7
j = 2
Do
Nom = "Doc. en attente"
If Sheets("PLANS").Cells(i, 13).Value = Nom Then
Sheets("LISTE").Cells(j, 1).Value = Sheets("PLANS").Cells(i, 1).Value
i = i + 1
End If
j = j + 1
Loop While i = 1000
End Sub