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+