Bonjour à toutes et à tous,
Dans le but de modifier le contenu d'une cellule par rapport a sa référence j'ai écris cette macro:
Sub te12
For a = 2 To 1800
If Sheets("Extraction").Cells(d, 6).Value = 43606120 Then
Sheets("Extraction").Cells(d, 4).FormulaR1C1 = "TE1"
End If
Next
End sub
Pour expliquer plus clairement, je travaille sur SAP, dû à des informations mal saisie que je ne peux changer, je dois changer pour des articles précis le type qui est de base "TE2" en "TE1". Et comme j'ai masse référence pour lesquelles je dois changer cette donnée j'avais pensé à faire ceci pour la première ligne de macro
If Sheets("Extraction").Cells(d, 6).Value = Array ( tous mes articles) Then
Mais cela ne marche pas. Et dans le but d'alléger la macro - car actuellement j'ai ces 6 lignes de code pour chaque article - j'aurais besoin de votre science !
Merci par avance,
Amicalement,
Ybae