Copier lignes si elle existe pas VBA

Version imprimable

02/06/2018, 15h41
xaviou99

Copier lignes si elle existe pas VBA

Bonjour,

J'ai actuellement une feuille de calcul avec un tableau composé de 4 colonnes différentes et déjà un certains de lignes dedans. Je voudrais que depuis une autre feuille, les lignes existent déjà dans la feuille contenant le tableau soient supprimer et celle qui n'existent pas soit copier à la suite dans l'autre feuille de calcul. Malheureusement je trouve pas les codes nécessaires à cette tâche sous forme de macro.

Merci de votre aide et bon weekend.
02/06/2018, 18h06
BENNASR

Bonsoir

Citation:

Je voudrais que depuis une autre feuille, les lignes existent déjà dans la feuille contenant le tableau soient supprimer

ça veut dire supprimer toutes les lignes du tableau .. alors supprimer tout le tableau non ???

Citation:

et celle qui n'existent pas soit copier à la suite dans l'autre feuille de calcul

: pas claire du tout au moins pour moi !! 8O 8O
essayer de bien présenter ton soucis et si nécessaire joindre un capture écran pour les données de départ et un capture écran pour le résultat attendu
Le titre de la discussion est bizarre pour moi : copier ligne si elle n'existe pas :roll:
Bonne fin de journée à toutes et à tous
02/06/2018, 18h23
patricktoulon

1 pièce(s) jointe(s)

re

re
pas tout a fait BENNARS;)
c'est presque ca

en fait il peut faire une chose tres simple avec tres peu de vba
il copie la plage a tester en dessous la plage de destination et il fait un simple remove duplicate sur la colonne de son souhait

exemple apres la copie sur destination

Code:

ActiveSheet.Range("$A$1:$B$9").RemoveDuplicates Columns:=1, Header:=xlNo

demo
Pièce jointe 385470
03/06/2018, 11h50
xaviou99

1 pièce(s) jointe(s)

Je pense que je me suis mal exprimé. Pour cela je vous fait parvenir un fichier excel pour exemple
En gros j'ai 4 colonnes différentes correspondant à critères différents avec dans chaque colonne des noms ou des chiffres qui sont très variables. En gros, je réalise un copier/coller depuis une autre feuille de calcul dans mon tableau de la feuille "Donnée variable". Jusqu'à présent je m'amuse à rechercher dans ma feuille "Donnée fixe" si les 4 critères d'une ligne existe pas déjà ce qui est très long quand on a énormément de ligne à réaliser. Ce que je voudrais c'est grâce à un simple clique, mon macro face une recherche ligne par ligne pour qu'à la fin toutes les lignes inexistantes soient créaient dans ma feuille données fixes.
Le résultat entendu est dans la feuille nommée "Après macro". J'ai mis des commentaires sur mes feuilles de calculs pour vous faciliter la compréhension.

Merci d'avance et merci d'avoir pris du temps de me répondre
03/06/2018, 12h08
patricktoulon

re

re
d'accords ce que tu appelle doublons c'est les lignes complete identique c'est ca ?
03/06/2018, 12h35
xaviou99

Si c'est les 4 critères d'une seule et même ligne que tu appelles doublons, c'est bien ça

re adapte ta colonne pour les deux plages
j'ai commenté chaque ligne de code

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub test()
    Set plagefinal = Sheets(2).Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)    'on prend la colonne"A" du sheets de destination jusque qu'a la derniere ligne utiliséee de la colonne
    Set plageoff = Sheets(1).Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)    'on prend la colonne"A" du sheets de destination jusque qu'a la derniere ligne utiliséee de la colonne
    For Each celX In plageoff    'on boucle donc sur toute les cellules utilisée de la colonne"A" du sheets a récupérer
        ok = False    'on met ok a false
        ligne1 = Application.Index(celX.Resize(1, 6).Value, 1, 0)    'on créé une chaine avec toutes les valeurs de la ligne (celX.row) du sheets a récupérer
        For Each celZ In plagefinal    'on boucle donc sur toute les cellules utilisée de la colonne"A" du sheets de destination
            If celZ = celX Then    'si la celz=la celX
                ok = True    'on met ok a true ca veut dire que cette valeur en "A" existe sur les deux sheets
                ligneoff = Application.Index(celZ.Resize(1, 6).Value, 1, 0)    'on créé une chaine avec toutes les valeurs de la ligne (celZ.row) du sheets de destination
'                on teste maintenant les 2 chaines completes
                If Join(ligne1) <> Join(ligneoff) Then Debug.Print "il faut transférer la ligne " & celX.Row & " du Sheets(1) dans le  Sheets(2)"
            End If
        Next
        'ici on traite ceux qui ont une valeur en "A" qui n'existe pas en sheets(2)grace a ok qui nous le signal
        If ok = False Then Debug.Print "il faut transférer la ligne " & celX.Row & " du Sheets(1) dans le  Sheets(2)"
    Next
End Sub

je supose que les lignes identifiées tu saura faire pour transférer;)
si tu pige pas pose des questions ;)

03/06/2018, 18h18
xaviou99

Je te remercie pour ta réponse si rapide

Le "ok" n’apparaît pas est-ce normal? Est-il possible qu'à la place d'une alerte qui nous signal les lignes à copier, que notre macro copie directement à la suite du tableau final les lignes inexistantes?

Merci pour ton implication.
03/06/2018, 20h42
patricktoulon

re

re
le ok n'est pas pour apparaitre mais pour signaler a la macro(dans 2d if) que la valeur en colonne"A" n'existe pas dans le sheets (2) donc la ligne est a copier

pour copier la ligne directement a la place des debug ,tu a presque la solution dans le code avec l'index sur celX.resize
je laisse toujours un peu de travail de reflexion afin de ne pas avoir a dire "q u il faut que je face tout" tu comprends ;)

si tu comprends le code que je t'ai donné tu saura faire si tu le comprends pas faudra peut etre revoir les bases ;)
04/06/2018, 09h26
xaviou99

1 pièce(s) jointe(s)

Voilà ce que j'ai essayé de faire mais malheureusement ça ne marche pas