Bonjour,
en 2 jours on m'a aidé 2 fois, comme on dit jamais 2 sans trois .
J'ai une form avec des checkbox et une textbox. Quand je clique sur une checkbox ça affiche le mot dans ma texte box et ainsi de suite pour chaque check box cochées.
Donc j'ai un bouton ok et quand j'appuis dessu ça envoie le texte de la textbox dans la 1er ligne vide de ma feuille excel.
Mon probleme est que je travaille sur 6 colonnes et que je ne veut pas que le texte dépasse, il faudrait que quand je clik ok, si le nombre de mot est trop grand par rapport a ma zone de travail que ça m'inscrive le reste à la ligne en dessous.
Est ce possible?
je colle le code que j'utilise
#(J'utilise call summarize pour chaque terme, j'en ai notté que 1 pour pas polluer de lignes inutiles)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
Private Sub Cboxciabatta_Click()
Call summarize
End Sub
 
Sub summarize()
 
     If cboxciabatta.Value = True Then a = "Ciabatta"
     If cboxcereal.Value = True Then a = a & "- Cereal"
     If cboxgalette.Value = True Then a = a & "- Galette"
     If CboxJambon.Value = True Then a = a & "- Jambon"
     If cboxsteack.Value = True Then a = a & "- Steack"
     If CboxPoulet.Value = True Then a = a & "- Poulet"
     If CboxKebab.Value = True Then a = a & "- Kebab"
     If cboxbacon.Value = True Then a = a & "- Bacon"
     If cboxchorizo.Value = True Then a = a & "- Chorizo"
     If cboxemmental.Value = True Then a = a & "- Emmental"
     If CboxMozzarella.Value = True Then a = a & "- Mozzarella"
     If Cboxgorgonzola.Value = True Then a = a & "- Gorgonzola"
     If Cboxgouda.Value = True Then a = a & "- Gouda"
     If Cboxchevre.Value = True Then a = a & "- Chevre"
     If Cboxvinaigrette.Value = True Then a = a & "- Maison"
     If Cboxalgerienne.Value = True Then a = a & " - Algerienne"
     If cboxbarbecue.Value = True Then a = a & "- Barbecue"
     If cboxcurry.Value = True Then a = a & "- Curry"
     If cboxbalsamique.Value = True Then a = a & "- Balsamique"
     If Cboxblanche.Value = True Then a = a & "- Blanche"
     If cboxmayo.Value = True Then a = a & "- Mayonnaise"
     If Cboxmoutarde.Value = True Then a = a & "- Moutarde"
     If cboxharissa.Value = True Then a = a & "- Harissa"
     If cboxhuile.Value = True Then a = a & "- Huile d'olive"
     If cboxketchup.Value = True Then a = a & "- Ketchup"
     If cboxsamourai.Value = True Then a = a & "- Samourai"
     If Cboxcerise.Value = True Then a = a & "- Cerise"
     If Cboxcornichon.Value = True Then a = a & "- Cornichon"
     If Cboxconcombre.Value = True Then a = a & "- Concombre"
     If cboxMais.Value = True Then a = a & "- Mais"
     If Cboxoignon.Value = True Then a = a & "- Oignon"
     If Cboxolive.Value = True Then a = a & "- Olive"
     If cboxpoivron.Value = True Then a = a & "- Poivron"
     If cboxsoja.Value = True Then a = a & "- Soja"
     If Cboxtomate.Value = True Then a = a & "- Tomate"
     If cboxmache.Value = True Then a = a & "- Mache"
     If cboxmesclun.Value = True Then a = a & " - Mesclun"
     If cboxroquette.Value = True Then a = a & " - Roquette"
 
     If Left(a, 3) = " - " Then a = Right(a, Len(a) - 3)
     txtsandwich.Value = a
 
 
End Sub
 
Private Sub cmdSandwich_Click()
Worksheets("FACTURE").Activate
NumLigneVide = ActiveSheet.Columns(1).Find("").Row
 
ActiveSheet.Cells(NumLigneVide, 1) = txtsandwich.Text
txtsandwich.Text = ""
 
End Sub
#