Copier le contenu d'une cellule dans une autre cellule

Bonjour!

Je suis coincé sur une macro depuis ce matin

Je débute en macro, les precedentes que j'avais pu faire ayant été effectuées avec l'enregistreur me semblaient bien plus simple

Dans le fond,

*je veux que ma macro verifie pour les lignes 5 à 10 de la feuille 1,

si le contenu a déja été repertorié dans la colonne 1 de ma feuille tableau de prod. Si oui, ca passe à la ligne suivante, si non, ca m'insere une ligne dans le tableau de prod, en inscrivant le contenu de la cellule testée dans la feuille 1.

J'espere que c'est assez clair et que quelqu'un volera q mon secour

Merci d'avance !

Sub Macro5()
'
' Macro5 Macro

    Sheets("Feuil1").Select

Dim variable As String, c As Variant

For i = 5 To 10
variable = Cells(i, 1)

For Each c In Sheets("Tableau PRODUCTION").Range("CodeCommande")
     If Not (c Like variable) Then
  Rows("6:6").Insert Shift:=xlDown

 Range("A7").Select
    ActiveCell.Formula = Sheets("Tableau PRODUCTION").Cells(i, 1).Value

     End If
   Next        

 Next

End Sub

 

Bonjour Azozo

essai ce code :

Sub gmb()

Dim I, Flag

Dim Variable As String, c As Variant

Sheets("Feuil1").Select

For I = 5 To 10

Variable = Cells(I, 1)

Flag = 0

For Each c In Sheets("Tableau PRODUCTION").Range("CodeCommande")

If (c Like Variable) Then

Flag = 1

Exit For

End If

Next

If Flag = 0 Then

Sheets("Tableau PRODUCTION").Range("A" & Rows.Count).End(xlUp)(2).Value = Variable

End If

Next