Bonjour,
je cherche à executer une macro pour mettre à jour les données d'un tableau dynamique.
Je m'explique dans une premiere feuille j ai les données de mon tableau dynamique qui est généré dans une seconde feuille
Dans cette seconde feuille pour chaque ligne j ai une liste deroulante avec 2 choix : OK et NON
je voudrais pouvoir si l'on passe la valeur de cette liste à OK supprimer la valeur de la ligne du tableau dynamique dans ma base de données
J'ai deja écrit cette macro qui ne fonctionne que lorsque la liste deroulante est selectionnée
voila je cherche donc à rendre cette execution de macro automatique à chq fois que je change la valeur de ma liste deroulante à OK.
si quelqu'un a une idee, elle sera la bienvenue.
Merci
je cherche à executer une macro pour mettre à jour les données d'un tableau dynamique.
Je m'explique dans une premiere feuille j ai les données de mon tableau dynamique qui est généré dans une seconde feuille
Dans cette seconde feuille pour chaque ligne j ai une liste deroulante avec 2 choix : OK et NON
je voudrais pouvoir si l'on passe la valeur de cette liste à OK supprimer la valeur de la ligne du tableau dynamique dans ma base de données
J'ai deja écrit cette macro qui ne fonctionne que lorsque la liste deroulante est selectionnée
Code:
Sub Suppr_ligne()
Dim ref As String
Sheets("Tableau Analyse").Select
If ActiveCell.Value = "OK" Then
DateLue = Range("E" & ActiveCell.Row).Value
ref = Range("B" & ActiveCell.Row).Value
Sheets("Données").Select
Set rngTrouve = ActiveSheet.Columns(1).Cells.Find(what:=ref)
If rngTrouve Is Nothing Then
MsgBox "Pas trouvé"
Else
rngTrouve.Activate
MsgBox rngTrouve.Address
If (DateLue = Range("E" & ActiveCell.Row).Value) Then
ActiveCell.EntireRow.Delete
ActiveSheet.PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
Else
rngTrouve = ActiveSheet.Columns(1).Cells.FindNext().Activate
End If
End If
Set rngTrouve = Nothing
End If
End Sub
voila je cherche donc à rendre cette execution de macro automatique à chq fois que je change la valeur de ma liste deroulante à OK.
si quelqu'un a une idee, elle sera la bienvenue.
Merci