checkbox

B

Bernard

Guest

• 4 Octobre 2004

• #2

Bonjour Florent

Si tu écris trois textes différents successivement dans une même cellule c'est normal de voir apparaître seulement le troisième.

Cordialement

Bernard

 

Vote positif 0 Vote négatif

H

Hervé

Guest

• 4 Octobre 2004

• #3

bonjour

c'est logique tu lui fait entrer les valeurs dans la même plage ("a" & l). il rentre donc tout mais tu ne vois que le dernier parametre "papa".

Modifie tes plages pour accepter les autres valeurs : ("b"&l)

salut
Hervé

 

Vote positif 0 Vote négatif

F

florent

Guest

• 4 Octobre 2004

• #4

Bonjour bernard , hervé , le forum

merci pour les remarques et cette premiere solution
Seulement je souhaitai que les textes se positionnent les uns en dessous des autres dans la colonne A


Y a t il un moyen de réaliser cela ?

Meric d'avance

Florent

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 4 Octobre 2004

• #5

re Florent et bonjour Hervé

modifie ta macro pour lui faire écrire dans les cellules en dessous :

If CheckBox1.Value = True Then
.Range("A" & L).Value = "toto"
If CheckBox2.Value = True Then
.Range("A" & L+1).Value = "azerty"
If CheckBox4.Value = True Then
.Range("A" & L+2).Value = "papa"

A+

Bernard

 

Vote positif 0 Vote négatif

F

florent

Guest

• 4 Octobre 2004

• #6

re bernard,

Merci pour la solution ( ça marche )

Je me permet une derniere reflexion ( car je debute en vba et j'essaie d'apprendre avec des exemples)

j'ai déclaré pour la variable "L" la ligne suivante:

L = Sheets("feuil1").Range("A65536").End(xlUp).Row + 1

n'est ce pas sensé de trouver la derniere cellule pleine de la colonne A et d'aller à la cellule suivante

ce qui devrait normalement m'éviter de passer par L,L+1, etc
( et d'inscrire les textes les uns en dessous des autres)

Merci a nouveau de l'explication ( précision) que tu pourrais m'apporter

Florent

 

Vote positif 0 Vote négatif

B

Bernard

Guest

• 4 Octobre 2004

• #7

Re Florent

je reprends le sujet ;

Ton raisonnement est tout à fait logique.

En language macro, cela se traduit par :

If CheckBox1.Value <> "" Then
Sheets("feuil1").Range("A65536").End(xlUp).offset(1,0) = "toto"
If CheckBox2.Value <> "" Then
Sheets("feuil1").Range("A65536").End(xlUp).offset(1,0) = "azerty"
If CheckBox4.Value <> "" Then
Sheets("feuil1").Range("A65536").End(xlUp).offset(1,0) = "papa"

A+

Bernard

 

Vote positif 0 Vote négatif

F

florent

Guest

• 5 Octobre 2004

• #8

bonjour Bernard , le forum

Merci pour tes explications , c'est vraiment très sympa

@+

florent

 

Vote positif 0 Vote négatif