activecell sur la plage!!!

[demax]

Bonsoir à tous
je souhaiterai afficher que sur une plage donnée

If CheckBox1 = True Then ActiveCell = "toto"

là actuellement n'importe quelle cellule selectionné affiche toto quand une case est coché mais j'aimerais afficher que dans une plage B6 à B20 et puis si une autre case est selectionné elle n'afficherai rien!!
merci pour une aide

 

[job75]

Re : activecell sur la plage!!!

Bonsoir,

If CheckBox1 = True And Not Intersect(ActiveCell, Range("B6:B20")) Is Nothing Then ActiveCell = "toto"

A+

 

[demax]

Re : activecell sur la plage!!!

SUper job 75 merci
aurais tu une astuce pour desactiver une case à cocher.
J'ai creer un bouton desactivé pour decoché plusieurs cases .
je pensais que

CheckBox1 = False

marcherai mais non
merci

 

[job75]

Re : activecell sur la plage!!!

Re,

CheckBox1 = False

marche très bien.

C'est peut-être le reste du code qui ne va pas...

A+

 

[demax]

Re : activecell sur la plage!!!

marche pô!

Sub Nettoyage()
CheckBox1 = False
End Sub

 

[job75]

Re : activecell sur la plage!!!

Re,

Ben oui, il faut que le code soit dans le code du bouton...

Dans cette macro, on peut écrire :

Sub Nettoyage()
UserForm1.CheckBox1 = False
End Sub

Si c'est ce nom que porte l'UserForm.

A+

 

[demax]

Re : activecell sur la plage!!!

j'ai essayé mais rien n'y fais
et comment tu trouve le nom du form?

 

[job75]

Re : activecell sur la plage!!!

Re,

et comment tu trouve le nom du form?

Là ça dépasse mes capacités intellectuelles

Alors pour ne plus avoir de problème, mettez la macro Nettoyage dans le code de l'UserForm, ça marche aussi avec :

CheckBox1 = False

A+

 

[job75]

Re : activecell sur la plage!!!

Re,

Avant d'aller me coucher, je pense à une chose : la CheckBox ne serait-elle pas dans la feuille de calcul par hasard (et non pas dans un UserForm) ?

Dans ce cas la macro doit s'écrire :

Sub Nettoyage()
ActiveSheet.OLEObjects("CheckBox1").Object.Value = False
End Sub

Bonne nuit.

Edition : le code précédent concerne un objet créé par la Boîte à outils Contrôles (ActiveX). Avec un objet créé par Formulaires, le code serait :

Sub Nettoyage()
ActiveSheet.Shapes("Check Box 1").Select
Selection.Value = False 'ou = xlOff
SendKeys "{ESC}"
End Sub

Dans les 2 cas le .Value n'est pas indispensable.

A+

 

[demax]

Re : activecell sur la plage!!!

genial job75
oui la Checkbox etait sur la feuille desolé j'aurais du le specifier.
en tout cas un grand merci de m'avoir aidé

 

[sabzzz]

Re : activecell sur la plage!!!

bonjour,

Private Sub CommandButton1_Click()
Me.CheckBox1 = False
End Sub

 

[job75]

Re : activecell sur la plage!!!

Bonjour demax, sabzzz, le forum

@ sabzzz : très juste, ce code avec Me fonctionne (pour un objet ActiveX) aussi bien dans la feuille que dans un USF. Bravo !

A+