Discussion :

[angelko]

Bonjour le forum

J'ai un problème , je ne suis pas en mesure de mettre en ordre cette CheckBox, je aimerais avoir quand je coche la case sur la feuille Boisson, (par exemple lait) va directement sur la feuilles List mais sous Boisson (A17), même chose pour la feuille Boulangerie,.

Je trouve par ici et par là de suggestions, mais je n’arrive pas les mettre en place.

Merci beaucoup de votre aide.

Angelko

[did103]

Salut

En fait dans ton VBA tu positionne en fin de colonne l'information que tu coches sur les autres feuilles:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("List").Range("A" & Rows.Count).End(xlUp)(2) = i.Caption

La propriété .End détecte la dernière ligne occupée.

Est-ce que tu ne peux pas utiliser 2 colonnes différentes, A pour la Boulangerie et B pour les boissons?
Dans ce cas, la ligne de la macro associée aux boissons serait:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Sheets("List").Range("B" & Rows.Count).End(xlUp)(2) = i.Caption

.Range("B"... au lieu de "A"

Ci-joint ton fichier modifié pour cela...

Tu peux écrire plusieurs macros Sub() dans un même module. Pas besoin d'un module par macro.

[angelko]

Merci beaucoup did103,

Si j'ai bien compris je ne peux pas laisser tout dans la colonne A?

J'ai une feuille que tout est dans la colonne A, il serait préfèrable si je peux laisser toutes les informations dans la colonne A.

Il n'y a rien que je peux faire?

Merci encore pour votre gentillesse.

bonne soirée

[did103]

Si tu veux tout dans la colonne A, tu ne peux plus utiliser la propriété

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

.End(xlUp)

qui se positionne sur la dernière ligne utilisée.
Il faut gérer chaque écriture en-dessous du texte en couleur.
Cela n'est pas trop dur à faire en écrivant un compteur dans une cellule et en indexant l'écriture sur la cellule de base:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
If ActiveSheet = "Boulangerie" Then
     base = 7
Else 
     If ActiveSheet = "Boisson" Then
          base = 20
     End if
End if
Sheets("List").Range("A" & Range("B1") + base) = i.Caption
Range("B1")=Range("B1")+1

Ca c'est simple. Le plus dur va être le décochage et la suppression du texte.
Et là, je n'ai pas le temps de chercher... Désolé.

[angelko]

Ça marche, pas de problème, merci et bon week-end end