liste suivant colonnes garnies

Bonjour Marion, le forum,

Je tente de rendre la pareille avec ce que les autres m'ont appris..
J'espere ne pas faire de betises
Olivier 😉 [file name=Marion1501.zip size=3215]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion1501.zip[/file]

merci dedeucos pour ta réponse.

Ok pour la colonne B mais comment faire apparaitre les matieres dans la colonne A si elle ont un valeur dans leurs colonnes feuille 1.

Là est le porblème.


Merci quand même.

A+Marion

Bonjour,

Comme hier, par formule en attendant une macro.
Formules matricielles, à valider par ctrl, maj et entrée.
Les plages sont nommées de façon large : jusqu'à Z100 !
Si tu as beaucoup de données et que le recalcul te semble long,
tu peux cocher le recalcul sur ordre
ou donner un nom à la formule.

Dans le fichier, tu as les étapes de construction de la formule.

[file name=ReportTitresMarion.zip size=5968]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/ReportTitresMarion.zip[/file]

Message édité par: Monique, à: 06/05/2005 19:58

Marion,

Voici le prg tel que tu l'as demandé, tout en VBA
J'espère qu'il répondra à tes attentes, sinon, dis-nous

à+
Bertrand [file name=Marion15_20050506181919.zip size=9743]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion15_20050506181919.zip[/file]

Marion, le fil et le forum

Millediou, j'ai oublié des petites choses qui rendent la vie plus facile.
Voici le nouveau prg

à+
Bertrand [file name=Marion15_20050506182357.zip size=10108]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Marion15_20050506182357.zip[/file]

Salut Mutzik !

J'avais commencé une appli, mais comme tu as fini...Héhéhé....!!

J'ai modifié ton code légèrement, look at !

Option Explicit

Sub Comptage()
Dim nbMatieres As Integer, cpt1 As Integer

Sheets(2).Range('A7:B' & Range('B65536').End(xlUp)(2).Row).ClearContents

Sheets(1).Activate

nbMatieres = Range('IV3').End(xlToLeft).Column

For cpt1 = 3 To nbMatieres

If Cells(3, cpt1) > 0 Then

Sheets(2).Range('B65536').End(xlUp)(2) = Sheets(1).Cells(3, cpt1).Value

Sheets(2).Range('A65536').End(xlUp)(2) = Sheets(1).Cells(5, cpt1).Value

End If

Next cpt1

Range('A1').Select

End Sub

Sans 'Select' inutile

Nota : Le fait de mettre Sheets(2) à la place de Sheets('Feuil2'), permet à l'utilisateur de changer le nom de l'onglet sans perturber la macro.

De même, le fait d'avoir activer le Sheets(1) et de n'avoir pas activé ni selectionné d'autres 'Sheets', on peut aisément supprimer 'Sheets(1)' dans :

Sheets(2).Range('B65536').End(xlUp)(2) = Sheets(1).Cells(3, cpt1).Value

Sheets(2).Range('A65536').End(xlUp)(2) = Sheets(1).Cells(5, cpt1).Value

Et écrire :

Sheets(2).Range('B65536').End(xlUp)(2) = Cells(3, cpt1).Value

Sheets(2).Range('A65536').End(xlUp)(2) = Cells(5, cpt1).Value


@ +++

Moa

Message édité par: Moa, à: 06/05/2005 19:22

Message édité par: Moa, à: 06/05/2005 19:24

Message édité par: Moa, à: 06/05/2005 19:29

Bonsoir au forum.

merci beaucoup de vos precieux conseil, je vais essayer d'adapter çà a mon fichier mais je ne vous garantie pas la réussite.

Merci Monique je ne voudrais pas t'oublier vue le post de hier.
Tu es vraiment solide en formule, je ne sais pas ou tu va les chercher
Je pense pouvoir utiliser cette solution car je l'ai comprise, néanmoins le VBA est peut être plus adapter enfin je vais essayer.

merci a vous tous, je suis obliger de partir mais demain je recommence.

A+Marion
Bonne soirée et gros bisous


Merci

encore moi.

ma feuille ou je vais chercher mes matiere s'appelle 'planning'
la feuille ou je veux lister mes matiere s'appelle 'besoin en matiere'

sur la feuille 'planning' le noms des matieres est en AL3:CP3

La somme des matieres est en AL84:CP84 sur la feuille 'planning'

je veux les faire apparaître sur la feuille 'besoin en matiere' en colonne A ('a4') et la somme en colonne B ('b4')

Si vous pouvez me reprendre le code

merci ou j'essayerais demain


A+Marion

Bonsoir Marion, Monique, Moa

Of course ton code est beaucoup plus rapide et plus simple

Je dirais seulement que je fais expres de mettre tous ces changements de sheet et d'activer le sheet car je veux que l'utilisateur qui va mettre en pratique mon code puisse par la suite :

1 le comprendre plus facilement
2 l'améliorer lui même

Le code que j'écris pour moi est en tous point conforme à ce que tu écris mais est beaucoup plus difficile en compréhension pour un néophite

sheet('Feuil1').select (ou activate) est plus facile à comprendre que sheet(2).select (à mon sens)

Je m'efforce toujours de faire un code plus long mais en ne faisant pas trois actions sur la même ligne.

Peut-être que je suis de la vieille génération (50 ans) mais j'ai toujours obtenu de bons résultats en faisant ainsi

Mon principe de base:
1. il faut que ca marche
2. il faut comprendre comment et pourquoi ca marche
3. je change quelque chose
4. pourquoi ca marche plus
5. il faut qu'il puisse le changer tout seul (au moins essayer)

Voila ma phylosophie dans tous les cours d'info que j'ai donnés

à+
Bertrand

Marion,

Si tu pouvais noous joindre ton fichier zippé (moins de 50ko sans accents ni espaces) ca serait plus simple

Bonne soirée à toutes et tous
Bertrand

Salut Mutzik !

Tu as tout à fait raison et c'est une très bonne philosophie pour transmettre le savoir.

J'avais, en effet, bien perçu, que tu te débrouillais parfaitement avec le Vba & Excel.

En fait, je pense que c'est bien de montrer, aussi, qu'il peut y avoir plus simple.

Et d'ailleurs, je pense que lorsqu'on montre ton exemple, puis les quelques modifs que l'on peut y apporter ensuite, on fait vraiment bien ressentir les choses aux novices avides de connaissances et compréhensions.

Merci à toi de ton super dévouement et bonne soirée.... 😉



@ +++

Moa

Re Moa, Marion

Nous sommes, et je le constate avec plaisir tout à fait en phase.

L'important (c'est la rose) mais c'est de montrer tout notre savoir faire et surtout la philosophie du site qui est un des meilleurs sinon le meilleur que je pratique, et ta reflexion me conforte dans cette opinion

excel lente (rapide ??) soirée à toutes et tous

Bertrand