Bonjour,
Je débute dans VBA et je souhaiterai copier une cellule de la page 1 s'il y a un caractère bien spécifique dans la page.
J'ai pour objectif de traiter des données et de les réorganiser.

J'ai fait avec deux manières différentes cependant j'ai toujours le même message d'erreur 438, " propriété ou méthode non gérée par cette objet ".
Le problème vient de la ligne "Sheets("P2").Range("A1").Value = Sheets("P1").nom_machine.Value".
Mon programme fonctionne seulement si je change nom_machine par Sheets("P1").Range("D3").Value ce qui perd tout son intérêt car j'ai des tableaux différents tous les jours mais avec les même caractère.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub orga()
 
 
    For Each nom_machine In Range("D1:D1200")
        If nom_machine.Value = "APTSTCOMP" Then
        Sheets("P2").Range("A1").Value = Sheets("P1").nom_machine.Value
        End If
    Next nom_machine
 
 
 
End Sub
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
Sub orga2()
    Do
        i = i + 1
        If i > 1000 Then Exit Do
    Loop While Cells(i, 4) <> "APTSTCOMP"
    Sheets("P2").Range("A1").Value = Sheets("P1").nom_machine.Value
 
End Sub
Cordialement