Qu'est ce qui ne marche pas? (RESOLU)

[misteryann]

Bonjour.

Je suis en train de créer un fichier pour des recettes.

Le but : cliquer sur les checkboxs qui incrémentent la feuille "Liste" (une colonne ingrédients et une colonne quantité).

Et là ça merdouille.

Ce n'est sans doute rien pour un initié que je ne suis pas.

Merci d'avance pour votre aide

 

[camarchepas]

Re : Qu'est ce qui ne marche pas?

Bonjour ,

Comme ceci ça devrait allez mieux car la textbox commence à 8 alors que la checkbox commence à 1:

With Feuil2
.Range("A" & Rows.Count).End(xlUp).Offset(1, 0) = Ctl.Caption
.Range("A" & Rows.Count).End(xlUp).Offset(0, 1) = CDbl(Controls("TextBox" & Mid(Ctl.Name, 9) + 7))
End With

 

[misteryann]

Re : Qu'est ce qui ne marche pas?

Génial camarchepas !

d'autant que juste avant j'ai trouvé un code qui additionne les doublons en faisant leur somme.

Merci beaucoup

 

[misteryann]

Re : Qu'est ce qui ne marche pas?

Question subsidiaire: comment je met le post en "Résolu"?

 

[camarchepas]

Re : Qu'est ce qui ne marche pas?

Il suffit de retourner sur le premier post de ta discussion et d'ajouter Résolu à la fin du titre par exemple

 

[misteryann]

Re : Qu'est ce qui ne marche pas?

Merci encore.
Bonne journée.