Microsoft 365 Modif BDD en fonction de 2 critéres via un bouton

[GADENSEB]

Bonjour Le forum,
Je cherche à modifier une Bdd, via un bouton, en fonction de 2 critères.

Le but est de faire changer en colonne AA (tableau "COMPTES" de l'onglet "COMPTES" en fonction de des critéres en colonne C (onglet "ANALYSE") via un bouton
Dans l'exemple ici, on va changer dans le table "COMPTES", en colonne AA, toutes les lignes avec les critéres
- COMPTE (colonne F) : ALPHA
- LIGNE (Colonne I) : BETA
--> le changement dans la colonne AA sera de passer toutes les valeurs à 1

Bonne am à vous
Seb

 

[sousou]

tu peux essayer ce code
Sub deb()
compte = Sheets("ANALYSE").Range("c3")
ligne = Sheets("ANALYSE").Range("c4")
ver=Sheets("ANALYSE").Range("c5")
With Sheets("COMPTES").ListObjects("COMPTES")
For Each i In .DataBodyRange.Columns(6).Rows

If i = compte And i.Offset(0, 3) = ligne Then i.Parent.Cells(i.Row, 27) = ver

Next
End With
End Sub

 

[GADENSEB]

Hello,
Ca marche nikel sur mon fichier test !!

un grand merci
Bonne am