Discussion :

[mezzo40]

Bonjour à tous,

après plusieurs recherches sur ce forum et sur d'autres, je me tourne vers vous pour mon problème.

Sur ma feuille1, j'ai un tableau avec plusieurs colonnes dont une avec les taches(ramassage,piquage,....) et une autre avec la localisation (1,2,3,4,....).

En fait, je souhaiterais compléter automatiquement un synoptique à partir de ces infos.
A savoir, sur la feuille 2, les taches(ramassage,piquage,....) occupe une ligne chacune et les localisations (1,2,3....) occupe une colonne chacune.
Je voudrais que lorsque la tache est effectuée cela me colore la cellule correspondant à la tache et à la localisation correspondante.

Je ne suis pas un expert en VBA mais je pensais utiliser une fonction VRAI/FAUX.( si mes deux données se trouvent sur la même ligne sur mon tableau de la feuille1 alors VRAI et inscription du code "1" ou autre dans la cellule correspondant à la tache et la localisation sur la feuille 2.) Après avec une mise en forme conditionnelle, le tour serait joué.

Quelqu'un aurait il une idée pour mon synoptique?

Je vous joint le fichier test car je ne peux pas vous transmettre mon dossier de travail.test exploitation données.xlsm
J'ai essayé avec un tableau croisé dynamique, ça me donne de bons résultats mais l'idée serait de l'insérer dans un synoptique déjà existant.

Par avance, je vous remercie pour vos réponses.

[tamtam64]

Si j'ai bien compris , tu le fais avec un bouton ? et une input box? renseigne moi sur ca mais sinon deja je peux t'aider en te proposant un debut de code que l'on pourra ameliorer en admetant que tu le rentre par inputbox tu rentre les données genre piqure/1

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
 
option base 1 
option explicit
 
sub syno
dim answer()
dim rep as string
dim xlsheet as worksheet
answer = split(rep,"/")
Set xlsheet = thisworkbook.worksheets("Feuil1")
'on trouve la ligne en admettant qu'on ai les titre sur la colonne 1
with xlsheet
      line =.columns(1).find(answer(1)).row
'on trouve la colonne 
      col =  .rows(1).find(answer(2)).column
'dernier test 
if .cells(line,col).value  = answer(1)& "/" answer(2) then
   .cells(line,col).interior.color= vbblue
else
msgbox("verifiez votre saisie")
end if
end sub

voila un debut par exemlple enfin si j'ai bien compris ce n'est pas tres compliqué , je m'etonne meme que personne n'ai répondu avant moi

[joe.levrai]

Bonjour,

il n'y a pas besoin de VBA pour ça

utilise un tableau excel (tutoriel ici : http://silkyroad.developpez.com/excel/tableau/)

j'ai pris ton fichier, j'ai inséré un tableau dans ta plage de données de la feuille 1

dans la feuille 2, j'ai mis cette formule en E2

Code :

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

=NB.SI.ENS(Tableau1[[#Données];[tache]];$A2;Tableau1[[#Données];[localisation]];E$1)

je l'ai ensuite étendue sur toute la plage de ton synopsis, et obtenu le nombre de fois où ça a été fait

une petite mise en forme conditionnelle sur la plage des données de ton synopsis avec

Code :

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

=E2>0

et le tour est joué


Ps : je te conseille vraiment d'aller voir comment fonctionnent les tableaux
ils pourraient par exemple te permettre (avec des formules comme je viens de te montrer), d'afficher dans ton synopsis le nom des gens ayant fait la tâche à une date voulue, ou d'afficher "Pas fait"
et pleins d'autres manipulations pour pouvoir réaliser un mini tableau de bord via lequel tu pourras manipuler tes données sur la période que tu souhaites

[mezzo40]

Super, ça fonctionne très bien. Merci.
Et puis je préfère cette solution, plus accessible pour moi que de la programmation vba.
Par contre, comment faire si j'ai plusieurs données localisation dans la même cellule (101;103;104 par exemple)?

Merci pour vos réponses.

Cdlt

Mezzo