XL 2013 VBA export de fichier+ modification de colonne

vgendron à dit:

Hello

juste une question pour commencer
dans ta feuille source... en ligne 1000 et 1001, il y a des donnée qui semblent perdues toutes seules..
est ce que c'est un cas qu'on peut avoir, ou c'est juste un reliquat de tes essais ?

Cliquez pour agrandir...

vgendron à dit:

les NON dans la feuille Modif... il faut les INSERER (= ajouter des lignes) ou REMPLACER le OUI..
si on remplace.. c'est quoi la condition? il faut que la Reference site (colonne C) soit la meme?

Cliquez pour agrandir...

vgendron à dit:

c'est pas très clair comme besoin
insérer - remplacer
dans le post 1 ce sont les OUI qui deviennent des NON
dans le post 5, ce sont les NON qui deviennent des OUI..

ref colonne.. ?? quelle colonne?

voir macro sur le BOUTON 1

Cliquez pour agrandir...

vgendron à dit:

Hello

J'ai été obligé d'enlever ta formule Alea.entrebornes et mettre des références à la main dans la feuille "à modifier" pour etre sur que les lignes à modifier sont bien dans la feuille source

pour identifier plus facilement les lignes modifiées, au lieu de mettre "OUI", j'ai mis "Modifié à OUI"

si ca te convient
regarde le code: il suffit de modifier le texte à mettre.

Cliquez pour agrandir...

vgendron à dit:

avec les commentaires
d'habitude, je les mets, mais la. j'étais pressé

VB:

Sub remplacerOUINON()
Dim TabSource() As Variant 'on déclare un tableau vba qui contiendra les données source'
Dim TabModif() As Variant'on déclare un tableau vba qui contiendra les données à modifier

With Sheets("A modifier") 'dans la feuille "A modifier"
TabModif = .Range("A1").CurrentRegion.Value 'on met les données dans le tablo==> CurentRegion est équivalent à un Ctrl+A sur la cellule A1'
End With

With Sheets("Source") 'avec la feuille Source'
TabSource = .Range("A1").CurrentRegion.Value 'on met dans le tablo'
End With
For i = LBound(TabModif, 1) To UBound(TabModif, 1) 'pour chaque référence à modifier du tableau TabModif'
For j = LBound(TabSource, 1) To UBound(TabSource, 1) 'pour chaque ligne du tableau TabSource'
If TabSource(j, 1) = TabModif(i, 1) Then 'si on est sur la référence à modifier'
TabSource(j, 4) = "O" 'on met un O dans la 4eme colonne du tableau =colonne D'
End If
Next j
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource 'on colle le résultat dans la feuille "Resultat"'
End Sub

Cliquez pour agrandir...

vgendron à dit:

Hello

on est d'accord que le 1er cas, correspond à la macro déjà proposée avant? (si c'est pas le cas.. c'est que je n'ai pas compris...)

voici donc deux macro, une par bouton

VB:

Sub PremierCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
    TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
    TabSource = .Range("A1").CurrentRegion.Value
End With
For i = LBound(TabModif, 1) To UBound(TabModif, 1)
    For j = LBound(TabSource, 1) To UBound(TabSource, 1)
        If TabSource(j, 1) = TabModif(i, 1) Then
            TabSource(j, 4) = "modifié en O"
        End If
    Next j
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub

Sub DeuxièmeCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
    TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
    TabSource = .Range("A1").CurrentRegion.Value
End With
For i = LBound(TabModif, 1) To UBound(TabModif, 1)
    For j = LBound(TabSource, 1) To UBound(TabSource, 1)
        If TabSource(j, 1) = TabModif(i, 1) Then
            TabSource(j, 4) = "modifié en O"
        Else
            TabSource(j, 4) = "N"
        End If
    Next j
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub

Cliquez pour agrandir...

vgendron à dit:

quand tu parles de décalage, c'est sur la ligne d'entete??
c'est du au fait que les boucles (for i, for j) commencent dès le début du tableau "lbound()" ce qui inclut les lignes d'entetes

si tu ne veux pas prendre en compte les entetes, il suffit de changer le début des boucles
for i= lbound() + 1

VB:

Sub PremierCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
    TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
    TabSource = .Range("A1").CurrentRegion.Value
End With
For i = LBound(TabModif, 1) + 1 To UBound(TabModif, 1)
    For J = LBound(TabSource, 1) + 1 To UBound(TabSource, 1)
        If TabSource(J, 1) = TabModif(i, 1) Then
            TabSource(J, 4) = "modifié en O"
        End If
    Next J
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub

Sub DeuxièmeCas()
Dim TabSource() As Variant
Dim TabModif() As Variant

With Sheets("A modifier")
    TabModif = .Range("A1").CurrentRegion.Value
End With

With Sheets("Source")
    TabSource = .Range("A1").CurrentRegion.Value
End With
For i = LBound(TabModif, 1) + 1 To UBound(TabModif, 1)
    For J = LBound(TabSource, 1) + 1 To UBound(TabSource, 1)
        If TabSource(J, 1) = TabModif(i, 1) Then
            TabSource(J, 4) = "O"
        Else
            TabSource(J, 4) = "N"
        End If
    Next J
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub

Cliquez pour agrandir...