Supprimer la valeur d'une cellule

[BOCARAMEL]

Bonsoir a tous 🙂

est-il possible par VBA 😕

dans mon fichier ci-joint si je change par exemple la valeur de la cellule
"B2" P207 2222AA22 par la valeur "Z" cela me supprime automatiquement
la valeur des cellules (C4 - D4 - E4 - F4 - I4)
et ceci pour n'importe quel véhicule de ma liste

Merci de votre Aide
Et bonne soirée a tous

bocaramel

 

[Excel-lent]

Re : Supprimer la valeur d'une cellule

Bonsoir Bocaramel,

Beau-caramel... mais est-il bon au moins 🙂

Sinon, plus sérieusement, oui, ce que tu demande est possible en VBA.

Regarde le fichier ci-joint.

si je change par exemple la valeur de la cellule
"B2" P207 2222AA22 par la valeur "Z" cela me supprime automatiquement
la valeur des cellules (C4 - D4 - E4 - F4 - I4)...

Je suppose qu'à la place de B2, tu voulais dire B4?

Bonne soirée

 

[BOCARAMEL]

Re : Supprimer la valeur d'une cellule

Bonsoir Excel-lent

Effectivement je voulais dire "B4" désolé pour l'erreur 🙁

un grand bravo a toi 😉 , ta solution correspond exactement
a ma demande

Bonne soirée et vraiment merci de ton aide 🙂

 

[BOCARAMEL]

Encore un petit probleme

Bonsoir a tous 🙂

J'ai un problème avec le code VBA de Excel-lent
qui fonctionne trés bien

mais comme j'ai changer et que ma liste de véhicule
vient d'une autre feuille

cela ne fonctionne plus 😕[/SIZE]
Merci de votre aide et bonne soirée

bocaramel

ci joint le fichier de demo

 

[skoobi]

Re : Supprimer la valeur d'une cellule

Bonsoir Bocaramel,
salut excel-lent 🙂,

Comme tu fais les modifications dans une autre feuille et que tu a lié les cellules, ce code (repris de celui de excel-lent) va s'exécuter dès lors que tu accèdes à la feuille "Dossiers_vhl" (à mettre au même endroit en supprimant l'autre code) :

Private Sub Worksheet_Activate()
For Each VHL In Range("B3:B" & [B65536].End(xlUp).Row)
    If VHL.Value = "Z" Then
        Range(Cells(VHL.Row, 4), Cells(VHL.Row, 6)).ClearContents
        Cells(VHL.Row, 9).ClearContents
    End If
Next
End Sub

Ca te vas?

 

[BOCARAMEL]

Re : Supprimer la valeur d'une cellule

Bonsoir skoobi
et merci de ton aide précieuse

ton code fonctionne trés bien

je l'adapte sur mon fichier original qui comporte
environ 150 véhicules et autant de "Z"

et je te tiens au courant

bonne soirée a tous 🙂
bocaramel