Aide sur sur un Worksheet_Change

Bonjour

J'aurai aimé savoir si il etait possible sur une meme feuille de créer un code pour faire en sorte que :

Si ma cellule A <>"" alors mon bouton A est actif

Si ma cellule B <>"" alors mon bouton B est actif

Si ma cellule C <>"" alors mon bouton C est actif

J'ai le debut mais je seche pour la suite

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("m20") <> "" Then

Shapes("Sol1").OLEFormat.Object.Enabled = True

Else

Shapes("Sol1").OLEFormat.Object.Enabled = False

End If

End Sub

Merci de votre aide

Bonjour,

J'ai mis le bout de code que je pense maitriser... j'aimerai reproduire la fonctionalité sur les autres boutons

3test-forum.xlsm (25.42 Ko)

Bonjour,

A tester.

Cdlt.

6test-forum.xlsm (32.42 Ko)

Bonjour Eric

Merci pour cette solution qui fonctionne par contre et j'aurai du le préciser (et je m'en excuse par avance) mais chacune de mes celulles ne sont pas alimentés par une saisie mais par une formule et c'est vrai que la... bein ca ne fonctionne plus

Encore merci

Rechercher des sujets similaires à "aide worksheet change"