'bonjour
'soit 2 feuilles synthèse et parametrage
'sur la feuille parametrage il y a dejà une base de données construite a l'aide
'des données de la feuille synthèse a mettre a jour
'sur la feuile synthèse il y a un tableau
'je veux faire la chose suivante :
'1)verifier si le numero en cellule A(i) de ma feuille synthèse est present sur ma feuille
'de parametrage si tel est le cas on ne fait rien
'mai si ce numero n'existe pas sur ma feuille de parametrage alors j'ajoute la ligne correspondante
'sur mafeuille parametrage

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
Sub tableau()
Dim Cel As Range, Lg As Byte
Dim i As Long, L As Long, k As Long
Dim j As Long, nombre As Long
Dim lastrow As Long
   Application.ScreenUpdating = False
    k = Sheets("Synthèse").Cells.Find("*", , , , xlByRows, xlPrevious).Row
     lastrow = Sheets("parametrage").Cells.Find("*", , , , xlByRows, xlPrevious).Row
    With Sheets("parametrage")
 
        For Each Cel In .Range("a2:a171")
            With Sheets("Synthèse")
                For i = 6 To k
                    If .Cells(i, "A") <> Cel Then
                    worksheets("parametrage").Cells(lastrow + 1, 1).Value = _
                    Sheets("Synthèse").Cells(i, 1).Value
                    worksheets("parametrage").Cells(lastrow + 1, 2).Value = _
                    Sheets("Synthèse").Cells(i, "D").Value
                    worksheets("parametrage").Cells(lastrow + 1, 3).Value = _
                    Sheets("Synthèse").Cells(i, "E").Value
                    End If
                Next
            End With
 
        Next Cel
    End With
End Sub
'et j 'ai ecris le code ci-dessus mais il est faux
'comment le corriger?
'merci bien