Cocher cases - Remplissage tableau cave vin

piga25

XLDnaute Barbatruc

• 29 Octobre 2011

• #2

Re : Cocher cases - Remplissage tableau cave vin

Bonsoir Sylvain

Regarde si cela peu convenir ou donner des idées : Cave à vin

 

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 29 Octobre 2011

• #3

Re : Cocher cases - Remplissage tableau cave vin

Bonjour,

merci c''est ce que je cherche à faire ! Hélas, j'ai copié la formule dans mon classeur, mais toutes les cases du tableau sont remplies, alors que j'ai mis des bouteilles dans les cases correspondantes ! C'est comme si le document ne cherchais pas les "A1", "A2", au bon endroit....
Des idées ?

Merci encore !
Sylvain

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 29 Octobre 2011

• #4

Re : Cocher cases - Remplissage tableau cave vin

Bonjour le fil

Peux t'être comprendras tu mieux avec ce fichier

A+

 

Pièces jointes

• Sylvain2006_exemple.xls

  27 KB · Affichages: 1 237

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 29 Octobre 2011

• #5

Re : Cocher cases - Remplissage tableau cave vin

Merci pour cette réponse tres rapide !
Ca fonctionne bien ! Le seul dernier petit soucis, c'est que je peux avoir par exemple 6 bouteilles identiques, donc 1 seul nom de bouteille mais avec 6 emplacements différents. J'ai essayé avec des espaces, des virgules, points virgules. CA ne fonctionne que si je remplis la case qu'avec une seule case vin.

Merci d'avance !

Sylvain

 

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 30 Octobre 2011

• #6

Re : Cocher cases - Remplissage tableau cave vin

Bonjour,

Quelqu'un aurait-il une idée car j'ai beau tourner ca dans tous les sens, je n'y parviens pas 🙁

Merci !

Sylvain

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Octobre 2011

• #7

Re : Cocher cases - Remplissage tableau cave vin

Bonjour tout le monde,
à tester :

Code:

Sub PlanCave()
Dim DerL&, i&, j&, a
Worksheets("Plan").Columns("A:P").ClearContents
DerL = Worksheets("BdD").Range("B2").End(xlDown).Row
With Worksheets("BdD")
For i = 2 To DerL
a = Split(.Cells(i, 2), ";")
For j = LBound(a) To UBound(a)
    Worksheets("Plan").Range(a(j)) = "X"
Next j
Next i
End With
End Sub

A+

 

Pièces jointes

• Sylvain2006_exemple (1).xls

  34.5 KB · Affichages: 325
• Sylvain2006_exemple (1).xls

  34.5 KB · Affichages: 373
• Sylvain2006_exemple (1).xls

  34.5 KB · Affichages: 385

Dernière édition: 30 Octobre 2011

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 30 Octobre 2011

• #8

Re : Cocher cases - Remplissage tableau cave vin

Merci, cela fonctionne ainsi ! Néanmoins, est-il possible de faire la meme chose sans code, sans avoir besoin d'appuyer sur "ranger" à chaque fois, c'est à dire que mes bouteilles soient rangées automatiquement dès qu'une case est ajoutée.

Merci d'avance.

Sylvain

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Octobre 2011

• #9

Re : Cocher cases - Remplissage tableau cave vin

Re

Néanmoins, est-il possible de faire la meme chose sans code

Cliquez pour agrandir...

oui mais à ce moment-là, il te faudra déconcaténer chaque cellule, ce qui alourdira ton fichier et ce sera moins pratique.

est-il possible de faire la meme chose sans code, sans avoir besoin d'appuyer sur "ranger" à chaque fois, c'est à dire que mes bouteilles soient rangées automatiquement dès qu'une case est ajoutée.

Cliquez pour agrandir...

il te suffit de placer le code dans la feuille Plan et il sera activé lors de la sélection de cette feuille :

Code:

Private Sub Worksheet_Activate()
Dim DerL&, i&, j&, a
Worksheets("Plan").Columns("A:P").ClearContents
DerL = Worksheets("BdD").Range("B2").End(xlDown).Row
With Worksheets("BdD")
For i = 2 To DerL
a = Split(.Cells(i, 2), ";")
For j = LBound(a) To UBound(a)
    Worksheets("Plan").Range(a(j)) = "X"
Next j
Next i
End With
End Sub

A+

 

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 30 Octobre 2011

• #10

Re : Cocher cases - Remplissage tableau cave vin

Ok, merci je vais faire comme ca ! Excusez mon ignorance, mais je n'ai jamais fait de code...Je ne sais pas où copier ce code..Il faut créer un bouton ?
Merci encore....
Sylvain

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Octobre 2011

• #11

Re : Cocher cases - Remplissage tableau cave vin

Re
cf. fichier.
A+

 

Pièces jointes

• Sylvain2006_exemple (1).xls

  35 KB · Affichages: 300
• Sylvain2006_exemple (1).xls

  35 KB · Affichages: 336
• Sylvain2006_exemple (1).xls

  35 KB · Affichages: 344

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 30 Octobre 2011

• #12

Re : Cocher cases - Remplissage tableau cave vin

Merci !

Est-il possible d'avoir ce tableau ainsi crée sous la forme d'un objet, que je pourrais copier et ou deplacer sur une autre feuille ?
De cette manière je suis pas contraint de mettre ce tableau entre les rangées A à G mais où je le souhaites sur la feuille et sur n'importe quelle feuille !
Merci.
Sylvain

 

Vote positif 0 Vote négatif

D

david84

XLDnaute Barbatruc

• 30 Octobre 2011

• #13

Re : Cocher cases - Remplissage tableau cave vin

Re
La macro proposée n'est pas faite pour cela car elle se base sur l'adressage des données contenues dans la feuille BdD.

Est-il possible d'avoir ce tableau ainsi crée sous la forme d'un objet, que je pourrais copier et ou deplacer sur une autre feuille ?

Cliquez pour agrandir...

pas compris...
Tu n'as apparemment pas une idée précise de ce que tu veux obtenir au final.
Plutôt que de modifier ta demande au fur et à mesure, je te conseille de prendre de temps de définir précisément ton attente et de revenir avec une commande précise. Cela sera plus simple de t'aider plutôt que de modifier à chaque fois les propositions, ce qui suppose parfois de reprendre le problème à zéro.
A+

 

Vote positif 0 Vote négatif

piga25

XLDnaute Barbatruc

• 30 Octobre 2011

• #14

Re : Cocher cases - Remplissage tableau cave vin

Bonjour

Une idée de solution pour voir le nombre de bouteilles réel dans les casiers dans la cave.
A améliorer ...

 

Pièces jointes

• Cave.xls

  84.5 KB · Affichages: 661

Dernière édition: 30 Octobre 2011

Vote positif 0 Vote négatif

S

sylvain2006

XLDnaute Nouveau

• 30 Octobre 2011

• #15

Re : Cocher cases - Remplissage tableau cave vin

Bonjour Merci Piga25,

C'est ce que je cherche à faire, à l'expection suivante :

Dans ta colonne T, (case), je peux avoir pour Chateau Machine Truc, plusieurs emplacements différents , par exemple : A2,B4,E1 car j'ai 3 bouteilles identiques de ce chateau. ET c'est ceci que je ne parviens pas à faire, sinon ta méthode me plait bien 🙂

Amicalement.

Sylvain

 

Vote positif 0 Vote négatif