Extraction Données selon Critères - Excel VBA
Fermé
Guillaume831
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
-
Modifié par Guillaume831 le 16/05/2011 à 09:36
Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011 - 16 mai 2011 à 15:26
Guillaume831 Messages postés 28 Date d'inscription jeudi 5 mai 2011 Statut Membre Dernière intervention 18 mai 2011 - 16 mai 2011 à 15:26
A voir également:
- Excel extraire données selon critère vba
- Liste déroulante excel - Guide
- Formule excel - Guide
- Extraire musique youtube - Guide
- Excel extraire chaine de caractère après un caractère ✓ - Forum Excel
- Extraire son video - Guide
6 réponses
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
13 mai 2011 à 13:46
13 mai 2011 à 13:46
Merci d'éviter de poser la même question sur plusieurs forums: developpez;com, Excel downloads, Excel -pratique....
Surtout quand c'est coutumier
Surtout quand c'est coutumier
Guillaume831
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
13 mai 2011 à 14:22
13 mai 2011 à 14:22
Michel,
J'apprécie votre intérêt pour mes posts. Toutefois, si je poste sur plusieurs forums c'est pour avoir des réponses différentes, et de façon plus rapide.
D'autant plus que je remercie à chaque fois chaque participant, et j'essaye de transmettre la réponse que j'ai adoptée afin d'aider un maximum d'utilisateurs, qui ne se connectent pas forcément sur tous les forums.
Celà dit, si je vous agace, veuillez ne pas cliquer sur mes posts.
Cordialement,
Guillaume
J'apprécie votre intérêt pour mes posts. Toutefois, si je poste sur plusieurs forums c'est pour avoir des réponses différentes, et de façon plus rapide.
D'autant plus que je remercie à chaque fois chaque participant, et j'essaye de transmettre la réponse que j'ai adoptée afin d'aider un maximum d'utilisateurs, qui ne se connectent pas forcément sur tous les forums.
Celà dit, si je vous agace, veuillez ne pas cliquer sur mes posts.
Cordialement,
Guillaume
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
23 mars 2023
3 292
Modifié par michel_m le 13/05/2011 à 14:53
Modifié par michel_m le 13/05/2011 à 14:53
veuillez ne pas cliquer sur mes posts.
AU CONTRAIRE
Le jour où tu préviendra au départ que tu poses la question sur tel et tel forum, ce sera ok et si je peux, j'essaierai de t'aider en allant regarder les solutions proposées ce qui évitera a chacun de se prendre la t^te pour rien.
Tu es étudiant, attend toi à de sérieux déboires dans la vie professionnelle avec une telle mentalité
bénévoles ou collègues=domestiques en concurrence ?
Michel
AU CONTRAIRE
Le jour où tu préviendra au départ que tu poses la question sur tel et tel forum, ce sera ok et si je peux, j'essaierai de t'aider en allant regarder les solutions proposées ce qui évitera a chacun de se prendre la t^te pour rien.
Tu es étudiant, attend toi à de sérieux déboires dans la vie professionnelle avec une telle mentalité
bénévoles ou collègues=domestiques en concurrence ?
Michel
Guillaume831
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
13 mai 2011 à 14:58
13 mai 2011 à 14:58
Michel,
Premièrement, et de la façon la plus importante, je ne prends personne pour un domestique, et n'oblige personne à m'aider. Je suis content quand quelqu'un le fait, mais non mécontent dans le cas inverse.
De plus, le fait que j'indique ou pas que mon posts se trouve aussi sur d'autres forums n'empêchera pas les gens qui veulent m'aider de le faire. Mais si ça peut éviter des conflits avec d'autres internautes, je m'en souviendrai.
Par ailleurs, oui je suis étudiant, mais je ne te permets pas de juger ma mentalité, après la lecture de qques uns de mes posts glâné sur le net.
Finalement, sache que je n'aide pas souvent les auteurs de posts sur les forums informatiques, mais en tant que linguiste chevronné, je n'hésite pas à aider des internautes à traduire des mots, expressions, phrases et documents sur les forums spécialisés. Je donne, et je reçois. Je sais faire les deux.
Si tu permets maintenant, j'aimerais que cette discussion sur ce sujet se termine, afin que je puisse me remettre à bosser sur mon projet, maintenant que nos deux points de vue sont exposés.
Respectueusement,
Guillaume
Premièrement, et de la façon la plus importante, je ne prends personne pour un domestique, et n'oblige personne à m'aider. Je suis content quand quelqu'un le fait, mais non mécontent dans le cas inverse.
De plus, le fait que j'indique ou pas que mon posts se trouve aussi sur d'autres forums n'empêchera pas les gens qui veulent m'aider de le faire. Mais si ça peut éviter des conflits avec d'autres internautes, je m'en souviendrai.
Par ailleurs, oui je suis étudiant, mais je ne te permets pas de juger ma mentalité, après la lecture de qques uns de mes posts glâné sur le net.
Finalement, sache que je n'aide pas souvent les auteurs de posts sur les forums informatiques, mais en tant que linguiste chevronné, je n'hésite pas à aider des internautes à traduire des mots, expressions, phrases et documents sur les forums spécialisés. Je donne, et je reçois. Je sais faire les deux.
Si tu permets maintenant, j'aimerais que cette discussion sur ce sujet se termine, afin que je puisse me remettre à bosser sur mon projet, maintenant que nos deux points de vue sont exposés.
Respectueusement,
Guillaume
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Guillaume831
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
16 mai 2011 à 09:36
16 mai 2011 à 09:36
Quelqu'un aurait-il une idée pour me permettre d'avancer? :)
Guillaume831
Messages postés
28
Date d'inscription
jeudi 5 mai 2011
Statut
Membre
Dernière intervention
18 mai 2011
16 mai 2011 à 15:26
16 mai 2011 à 15:26
Ok, j'ai pensé à un truc comme ça, qu'en pensez-vous?
Option Explicit
Sub QuiEstDispo()
Dim ValeurRecherche, RangePlage
Dim NomdeProf, RangePlage1
Dim FeuilPlage, SheetsPlage
Dim Début As Range, Fin As Range, Jour As Variant
Dim Column As Range, Rows As Range
Dim MonDicoDeProfs As Variant
Dim I As Integer
With Application
.ScreenUpdating = False
.Calculation = xlCalculationManual 'c'est pour que la macro ne rame pas
End With
Jour = Worksheets("Cours").Range("H15").Value 'jour qui nous intéresse pour connaître la dispo du prof - la cellule présente une liste déroulante de Lundi à Samedi
Select Case Jour
Case "Lundi": Column = 3 ' dans le tableau des profs, le lundi correspond à la colonne C -donc 3
Case "Mardi": Column = 4
Case "Mercredi": Column = 5
Case "Jeudi": Column = 6
Case "Vendredi": Column = 7
Case "Samedi": Column = 8
End Select
Début = Worksheets("Cours").Range("I15") 'début de la plage horaire qui nous intéresse pour connaître la dispo du prof
Select Case Début
Case "08:00:00": Rows = 4
Case "08:30:00": Rows = 5
Case "09:00:00": Rows = 6
Case "09:30:00": Rows = 7
Case "10:00:00": Rows = 8
Case "10:30:00": Rows = 9
Case "11:00:00": Rows = 10
Case "11:30:00": Rows = 11
Case "12:00:00": Rows = 12
Case "12:30:00": Rows = 13
Case "13:00:00": Rows = 14
Case "13:30:00": Rows = 15
Case "14:00:00": Rows = 16
Case "14:30:00": Rows = 17
Case "15:00:00": Rows = 18
Case "15:30:00": Rows = 19
Case "16:00:00": Rows = 20
Case "16:30:00": Rows = 21
Case "17:00:00": Rows = 22
Case "17:30:00": Rows = 23
Case "18:00:00": Rows = 24
End Select
Fin = Worksheets("Cours").Range("J15") ' fin de la plage horaire qui nous intéresse pour connaître la dispo du prof
Select Case Fin
Case "08:00:00": Rows = 4
Case "08:30:00": Rows = 5
Case "09:00:00": Rows = 6
Case "09:30:00": Rows = 7
Case "10:00:00": Rows = 8
Case "10:30:00": Rows = 9
Case "11:00:00": Rows = 10
Case "11:30:00": Rows = 11
Case "12:00:00": Rows = 12
Case "12:30:00": Rows = 13
Case "13:00:00": Rows = 14
Case "13:30:00": Rows = 15
Case "14:00:00": Rows = 16
Case "14:30:00": Rows = 17
Case "15:00:00": Rows = 18
Case "15:30:00": Rows = 19
Case "16:00:00": Rows = 20
Case "16:30:00": Rows = 21
Case "17:00:00": Rows = 22
Case "17:30:00": Rows = 23
Case "18:00:00": Rows = 24
End Select
Set MonDicoDeProfs = CreateObject("Scripting.Dictionary") 'pour me donner le nom des profs qui correspondent aux crières
RangePlage = Range(Cells(Début, Jour), Cells(Fin, Jour)).Address
NomdeProf = Cells(1, 5).Value
FeuilPlage = Range(Sheets(3), Sheets.Count).Address
For Each ValeurRecherche In Application.Sheets(SheetsPlage).Range(RangePlage)
If Not MonDicoDeProfs.Exists(NomdeProf.Value) And ValeurRecherche.Value = "" And Cells.Interior.Pattern <> xlSolid Then
MonDicoDeProfs.Add NomdeProf.Value, NomdeProf.Value
End If
Next ValeurRecherche
MsgBox = (Application.Transpose(MonDicoDeProfs.Items)) 'me donne le nom des profs sous forme de msgbox
End Sub