Ecriture dans une feuille en fonction de la présence d'une donnée dans une autre

**dianbobo** · 26/08/2010, 14h01

'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

**PPz78** · 26/08/2010, 15h37

Peux tu nous décrire ce qui ne marche pas.
- laisser l'écran se mettre à jour
- lancer en debug pas à pas
que se passe t-il?
où est l'erreur?

PPz

**dianbobo** · 26/08/2010, 16h38

disons qu'il n'ya pas d'erreur
sur ce code c'est juste qu'il est incomplet
du coup il ne fait pas ce que je veux

(je veux comparer deux colonnes de deux feuilles differentes et si je trouve qu'il manque une valeur sur la colonne de la feuille parametrage alors j'ajoute
les cellules A,D et E de la ligne de la feuille "synthèse" correspondante sur la feuille parametrage)

merci bien