VBA : copier une cellule sous condition d'une page à une autre

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:

---

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:

---

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

SAlut,

des modifications a faire a deux niveaux :
- la boucle sur le range en precisant la feuille P1
- vu que le range est implicitement dans la feuille => pas besoin de Sheets devant
- utiliser une variable a incrementer

Code:

---

1 2 3 4 5 6 7 8 9 10

Sub orga() Dim i As Integer i = 1 For Each nom_machine In Worksheets("P1").Range("D1:D1200") If nom_machine.Value = "APTSTCOMP" Then Sheets("P2").Range("A" & i).Value = nom_machine.Value i=i+1 End If Next End Sub

---

Bonjour,

Ici,

Code:

---

Sheets("P2").Range("A1").Value = Sheets("P1").nom_machine.Value

---

Je pense que tu devrais retirer cette partie :

Code:

---

Sheets("P1").

---

Ici,

Code:

---

For Each nom_machine In Range("D1:D1200")

---

tu devrais peut-être spécifier quelle feuille

Code:

---

Sheets("P1").

---

?

Bon ben voilà en retard.

Bonjour !

Vu le besoin le plus efficace et ce en moins de dix lignes de code serait l'utilisation d'un filtre avancé !

___________________________________________________________________________________________________________

Je suis Paris, Egypte, Stockholm, London, Istanbul, Berlin, Nice, Bruxelles, Charlie, …

Merci, ça fonctionne parfaitement.

J'aimerais connaître la signification de ("A"& i) dans

Code:

---

Range("A" & i)

---

D'ailleurs en attendant j'ai essayé avec une boucle for qui fonctionne aussi

Code:

---

1 2 3 4 5 6 7

Sub orga1() For i = 1 To 1200 If Cells(i, 4).Value = "APTSTCOMP" Then Sheets("P2").Range("A5").Value = Cells(i, 4).Value End If Next i End Sub

---