Liste conditionnelle

Bonjour tout le monde,

Je suis actuellement en stage dans le cadre de mes études et ça fait donc un mois que je me suis remis à excel.

J'ai déjà passé pas mal de temps sur google afin de trouver des réponses à mes (très nombreuses) questions.

Mais là je sèche.

Je vous explique:

Mon fichier est composé de 53 onglets:

Un planning général (orange et bleu dans l'exemple), et un onglet supplémentaire par semaine (les 3 petits bleu et blanc).

Ce que j'aimerai, c'est que quand "Chien" à une valeur (dans l'onglet général) dans la colonne "S1" (par exemple), et bien "Chien" s'ajoute automatiquement dans ma liste se trouvant dans l'onglet S1.

Les valeurs présentes dans le tableau général seront toujours positives et n'influent en rien dans ce que je veux faire, c'est, en fait, juste la présence de caractère qui va commander la copie.

Donc si vous aviez une (ou plusieurs) solutions à me proposer, ça me serait fort utile!

Merci d'avance

Bonjour.

peux tu fournir un bout de fichier?

Tu parle d'onglets ou de tableaux qui sont sur la même feuille?

Merci Pass-pass de ta réponse rapide.

Je préfère ne pas te répondre avec mes mots, n’étant pas sur des désignations (page tableau onglet) et ainsi éviter de vous mélanger, mais le excel joint représente ce que je recherche. Et comme on dit un bon exemple vaut tous les mots

Re.

J'ai fais quelques modifs:

Tes tableaux sont tous placés en colonne C

J'ai enlevé la colonne qui comportait les 3 points de suspension pour l'exemple.

Ca donne ça:

Sub copie_donnees()
For i = 5 To 52
nm = Cells(2, i)
For j = 3 To 9
If Cells(j, i) <> "" Then
    Cells(j, 2).Copy Sheets(nm).Range("C65536").End(xlUp)(2)
End If
Next j
Next i
End Sub

Ha oui en effet ça colle bien à ce j'imaginais, cependant j'aurai souhaité que lorsque l'on clic sur le bouton, il réinitialise les tableaux de destinations.

Car là si la personne double clic (et on sait tous que la plupart des personnes double clic lorsque un seul clic suffit et inversement) et bien ça lui met deux fois la liste de suite.

En gros lorsque l'on clic, ça remplace les anciennes listes par des nouvelles, au lieu de les rajouter à la suite.

Je sais que c'est basic, mais mes cours VBA (vieux de 3ans, je suis bien rouillé ) sont à 400km de moi...

Je dis ça car le tab sur lequel je boss fais plus de 250 lignes, alors dans l'exemple on a 2/3 animaux en plus, là c'est des listes de reff, qu'on va pas s’amuser à vérifier.

En tout cas déjà un grand merci Pass-pass

Re

En début de macro, met ceci:

Range("C8:C1000").clearcontents

Mmmh...

Petit prob, quand je le met dans le sub il fait toujours la création de liste mais sans la suppression de l'ancienne

Où es ce que je me goure?

edit1: Ok j'ai compris, il me clear dans la page "général" et pas sur les pages S1....S52.

Je renseigne comment?

Re.

Place ce code à la place:

Sub copie_donnees()
For i = 5 To 52
nm = Cells(2, i)
Sheets(nm).Range("C8:C100").ClearContents 'Efface les données précédentes
For j = 3 To 9
If Cells(j, i) <> "" Then
    Cells(j, 2).Copy Sheets(nm).Range("C65536").End(xlUp)(2)
End If
Next j
Next i
End Sub

J'ai une erreur d'execution'9'

"l'indice n'appartient pas à la selection"

Re.

Le code est à adapter dans ton vrai fichier.

Tu as le message d'erreur quand i=8 car il n'y a pas de données en ligne2 et colonne8 (autrement dit en H2)

La boucle va jusqu'à la 52ème colonne comme tu l'as fais comprendre dans ton fichier exemple.

Pour ne pas avoir d'erreur dans le code exemple, tu peux modifier cette ligne:

For i = 5 To 52

par celle là:

For i = 5 To 7

Ou alors, tu peux mettre ceci:

Sub copie_donnees()
On Error Resume Next
For i = 5 To 52
nm = Cells(2, i)
Sheets(nm).Range("C8:C100").ClearContents
For j = 3 To 9
If Cells(j, i) <> "" Then
    Cells(j, 2).Copy Sheets(nm).Range("C65536").End(xlUp)(2)
End If
Next j
Next i
End Sub

Ok niquel, je vais essayer sur le vrai classeur.

Merci

Bon, je reviens à l'attaque.

J'ai toujours un problème avec le clear...

Je donne le vrai classeur sur le quel j'ai "adapté" le code d'hier.

La limite étant trop basse pour upload mon fichier, je l'ai mis dans mon Doc google

le lien pour le dl

Edit de Nad : Lien supprimé - Il suffisait de compresser ton fichier :

-- 04 Mai 2011, 11:57 --

C'est bon, c'est réglé.

Merci