Supprimer valeur de celules

[rainbow69006]

Bonjour a tous,

Je souhaiterais supprimer les textes écrit en A1 et A2 d'une feuille nommé feuille1 totu cela à partir d'un bouton qui se trouve dans un userform.

Comemnt puis je faire

Merci de votre aide
Courtoisement

 

[soenda]

Re : Supprimer valeur de celules

Bonjour le fil, rainbow69006

Dans l'évènement Click du Bouton (en mode design, double clic sur le bouton pour accéder à la procédure)

Feuil1.[A1:A2] = vbNullString

A plus

 

[rainbow69006]

Re : Supprimer valeur de celules

Super ça marche!!

Par contre, j'ai aussi des checkbox qui donne en A3 la valeur True ou False comment je peu faire pour que sa me coche ou non ma checkbox dans mon userform?

Merci
Courtoisement

 

[soenda]

Re : Supprimer valeur de celules

Bonjour le fil, rainbow69006

En mode design, double clic sur le UserForm puis choisir Initialize dans la liste déroulante de droite, en haut de la fenêtre de l'éditeur de code (VBE)

Private Sub [B]UserForm_Initialize[/B]()
    [B]CheckBox1 = (UCase(Feuil1.[A3]) = "VRAI")[/B]
End Sub

A plus

 

[rainbow69006]

Re : Supprimer valeur de celules

Super ca marche.

Dernière question et quel doit etre le code si on contraire je ne veu pas de croix dans la checkbox?

Merci beaucoup

 

[soenda]

Re : Supprimer valeur de celules

Re,

quel doit etre le code si je ne veux pas de croix dans la checkbox ?

Par exemple :

Private Sub UserForm_Initialize()
[B]CheckBox1 = False[/B]
End Sub

Sinon tu laisses [A3] <> "vrai" ( ça marche aussi )

A plus

 

[Pimp92a]

Re : Supprimer valeur de celules

Merci pour l'info ça m'a été utile