Discussion :

[dianbobo]

'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]

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]

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

[PPz78]

Pourquoi .Range("a2:a171") alors que l'on ajoute des lignes à "Parametrage" ?

PPz

[dianbobo]

c'est une erreur
je dois normalement mettre

.Range("a2:a" & k) ou k es la derniere ligne du tableau

[PPz78]

Quand tu ajoutes une ligne il faudrait ensuite incrémenter lastrow

PPz

[dianbobo]

donc si j'ajoute l'incrementation tout devient correcte?

[Invité]

Bonsoir,

donc si j'ajoute l'incrémentation tout devient correct?

A priori, cela semble évident, et de plus, il suffit d'essayer et c'est à vous à le faire.

[dianbobo]

j'ai essayé ça ne marche pas

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
28
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
             lastrow = lastrow + 1
        Next Cel
    End With
End Sub

merci bien

[PPz78]

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

Pour moi quand le code ne fait pas ce que je veux, il y a une erreur.

Tant que tu nous écrira pas ce qui se passe, ce qui fonctionne comme tu veux et ce qui ne fonctionne pas comme tu veux on avancera très lentement.

Pour finir, il me semble que l'instruction

Code :

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

lastrow = lastrow + 1

n'est pas placée au bon endroit.

Bonne journée
PPz

[Invité]

Bonjour,

En effet, comme précisé par PPz78, ce ne doit pas être le bon endroit de plus l'adresse de la cellule ne peut être acceptée.

Code :

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

1
2
3
4
5
6
Sheets("Synthèse").Cells(i, 1).Value
                    Worksheets("parametrage").Cells(lastrow + 1, 2).Value = _
                    Sheets("Synthèse").Cells(i, "E"4).Value
                    Worksheets("parametrage").Cells(lastrow + 1, 3).Value = _
                    Sheets("Synthèse").Cells(i, "E"5).Value
'supprimer ce qui est en rouge, ajouter ce qui est en bleu 

et au lieu de :

Code :

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

1
2
3
4
5
6
Sheets("Synthèse").Cells(i, "E"5).Value 'supprimer ce qui est en rouge, ajouter ce qui est en bleu 
     End If
                    
     Next
    End With
     lastrow = lastrow + 1

Code :

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

1
2
3
4
5
6
Sheets("Synthèse").Cells(i, "E"5).Value
lastrow = lastrow + 1
    End If
                     
    Next
  End With