Discussion :

[MLvba]

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

[Jean-Philippe André]

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 :

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

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

[MLvba]

Merci, ça fonctionne parfaitement.

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

Code :

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

Range("A" & i)

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

Code :

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

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

[QuestVba]

Bonjour,

Ici,

Code :

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

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

Je pense que tu devrais retirer cette partie :

Code :

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

Sheets("P1").

Ici,

Code :

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

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

tu devrais peut-être spécifier quelle feuille

Code :

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

Sheets("P1").

?

Bon ben voilà en retard.

[Marc-L]

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, …