Microsoft 365 îPb code VBA

looky62

XLDnaute Junior
Bjr à tous

Je vs expose mon pb
J ai ce code qui me permets de renseigner, de modifier des espaces clients sur un CRM en fonction que le client nous donne son accord ou pas sur son portefeuille , le vba fonctionne entre les oui et non sur Resultat
J aimerai mettre ds un nv onglet des nv sites que le client aurait omis de nous donner cad si la réf n est pas présente ds la source et me mets la réf ds nv onglets
Si qq un pourrait m éclairer je pense si la ref est différent de la source la mettre ds nv onglet

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 DeuxiemeCas()
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 j = LBound(TabSource, 1) + 1 To UBound(TabSource, 1) 'on met tout à N
TabSource(j, 4) = "N"
Next j
For i = LBound(TabModif, 1) + 1 To UBound(TabModif, 1) 'on ne remet à O que les codes à modifier
For j = LBound(TabSource, 1) + 1 To UBound(TabSource, 1)
If TabSource(j, 1) = TabModif(i, 1) Then
TabSource(j, 4) = "O"
End If
Next j
Next i
Sheets("Resultat").Range("A1").Resize(UBound(TabSource, 1), UBound(TabSource, 2)) = TabSource
End Sub"
 

Discussions similaires