Sur l'autre site tu as bien commencé à traiter ta question.. ne t'arrêtes pas là !
Sub test()
For I = 13 To 100
Cell_traitee = Sheets("Materiel").Cells(I, "C")
If Cell_traitee = "X" Then
MsgBox "La ligne " & I & " doit être traitée", vbOKOnly 'ligne a remplacer par la copie de la case correspondante
End If
Next
End Sub
Pour faire ton copier coller, tu peux : (dans ta boucle à la place de ta msgbox )
Selectionner la ligne (ou la cellule qui t'interesse) pour ensuite la copier/coller.
'exemple:
Cells(i,"A").select
Selection.Copy
Sheets("Materiel en commande").Select
Range("C16").Select ' a remplacer par la ligne ou coller
ActiveSheet.Paste
Sheets("Materiel").Select
Pour incrémenter automatiquement la N° de ligne ou coller tes données, tu peux rechercher une fonction qui te donne le N° de la dernière ligne d'une feuille.
NB : Plutot que d'utiliser du Copier/Coller, je passerai plutot par la récupération de la valeur (sauf si tu veux aussi la mise en forme..et non pas QUE la valeur de la cellule )
ce qui donnerait:
Sheets("Materiel en commande").range("C16").value=Sheets("Materiel").Cells(i,"A").value
Cordialement,
Jordane,
______________________________________________________
Règles du forum à lire avant de poster une question : ICI