Probleme boucle

ici je dois remplir des case de decision avec DNM ou MEETS

mais je dois faire le controle les experiences sur une autre feuille ( en gros voila on a 4 type d'experiences si le condidat echoue dans une seule donc la decision est DNM = Does not meat )

j'utilise un bouton pour faire ca mais mon probleme c'est que je recois bien les resultats mais pas dans les bonnes case parcontre dans la bonne colonme

voici mon code

Sub decision()

    Dim cell As Range

 For Each cell In Sheets("By Qualification").Columns("I:L").Cells.SpecialCells(xlCellTypeConstants)

 If cell.Value = "DNM" Then

 Sheets("Test1").Cells(cell.Row, "H") = "DNM"

   End If

Next
End Sub

Bonsoir,

à moins que je me trompe mais en général j'utilise les lettres avec Range et le chiffres avec Cells :

Range("A3")=> cellule A3

Range("A5:H8") => cellules de A5 à H8

Range("A" & variable_ligne) => cellule A numéro_de_ligne_de_la_variable

Cells(3,1) => cellule A3

Cells(Cells(5,1),Cells(8,8)) => cellules de A5 à H8

Cells(variable_ligne,1) => cellule A numéro_de_ligne_de_la_variable

La différence Range(colonne_ligne) et Cells(ligne, colonne)

@ bientôt

LouReeD

Merci pour votre initiative mais j'ai pas compris ce que je dois changer c'est un probleme de mise en forme :/

bonsoir,

voici mon idée (pas tester) :

Sub decision()
    Dim cell As Range
    For Each cell In Sheets("By Qualification").Columns("I:L").Cells.SpecialCells(xlCellTypeConstants)
        If cell.Value = "DNM" Then
            Sheets("Test1").Cells(cell.Row, 8) = "DNM" ' en effet la colonne H est la 8ième de la feuille et Cells je pense est numérique
        End If
    Next
End Sub

@ bientôt

LouReeD

Bonsoir

Avec un fichier cela serait mieux

D'après ce que j'ai compris