Discussion :

[Jeric1970]

Bonjour à tous,

Merci de m'accueillir dans le forum.

Je vais tenter de vous présenter ma problématique sachant qu'il est déconseillée de mettre un fichier joint :-)

J'ai un bon niveau sur Excel concernant les formules mais je n'ai que peu de connaissances en codage, juste faire des copier coller de code macro..

Voici ce que je souhaiterai réaliser :

j'ai un onglet (capture 1)
dans les colonnes D et suivantes, je vais indiquer des prénoms :

Dans l'onglet 2, je souhaite avoir pouvoir sélectionner un prénom et qu'il me donne le résultat suivant (capture 2 : )

j'ai essayé par le biais de formule genre Recherchev mais j'y n'arrive pas de cette manière.

Avez vous une idée de la façon dont je pourrais aborder ce problème?

Merci de votre aide.

Cordialement.

Eric

[78chris]

Bonjour

Pour être facilement exploitable un tableau doit être sous forme de liste de données ou table : pas de cellules fusionnées et les données communes répétées sur chaque ligne (quitte à masquer la répétition par MFC)

Là je doute qu'une formule puisse fonctionner : il faudrait qu'elle soit tellement longue qu'elle dépasserait la taille limite...

Même par VBA cette disposition va compliquer le traitement

• parcourir les colonnes de D à... pour chercher le prénom
• puis essayer de retrouver le département qui peut être ou pas dans une plage fusionnée
• puis essayer retrouver le thème quel part au-dessus...
• enfin récupérer simplement le sujet et le titre de la colonne

[Menhir]

dans les colonnes D et suivantes, je vais indiquer des prénoms :

Dans l'onglet 2, je souhaite avoir pouvoir sélectionner un prénom et qu'il me donne le résultat suivant (capture 2 :

Si je comprends bien, tu veux pouvoir trouver une ligne correspondant à une donnée et afficher les données d'une autre colonne pour cette ligne et les suivantes.

C'est possible à faire sans VBA. Le plus compliqué, ce n'est pas de savoir où commencer mais de savoir où s'arrêter.

Il est possible d'obtenir la ligne où se trouve le prénom avec la fonction EQUIV().
Ensuite, tu peux obtenir le renseignement souhaité en utilisant le résultat de EQUIV() dans une fonction INDEX(). Au résultat de EQUIV(), il faut ajouter 1 de plus pour chaque ligne de successive du tableau de l'onglet 2. Tu peux même utiliser la fonction LIGNE() pour faire cet incrément et avoir la même formule sur toutes les lignes.

Le problème, comme je le disais, c'est de savoir où s'arrêter.
Il faudrait certainement mettre tout ça dans un SI() dont la condition dépend du contenu du tableau 1. Mais comme la copie d'écran que tu montres ne présente pas de données, difficile d'imaginer quelle peut être la condition de ce SI().

[zipbox]

Bonjour,

Pour rechercher dans une plage, une cellule avec une donnée texte (le prénom)
avec les 3 infos, thématique en colonne 2, sujet en colonne 3 et Routine Auto en ligne 2

voici un bout de code, à adapter pour ton tableau :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
 
Sub RecherchePrenom()
  '
  Dim Prenom As String, n As Integer
  '
  Dim L As Integer ' --- ligne ---
  Dim C As Integer ' --- colonne ---
  '
  Const f1 As String = "Feuil1"
  Const f2 As String = "Feuil2"
  '
  Prenom = InputBox("Prénom ?")
  '
  n = 0
  '
  For L = 3 To 100  ' ligne 3 à 100
    For C = 4 To 17 ' D à Q
      '
      If (Sheets(f1).Cells(L, C).Value = Prenom) Then
        '
        n = n + 1
        '
        Sheets(f2).Cells(n, 1).Value = n
        Sheets(f2).Cells(n, 2).Value = Prenom
        Sheets(f2).Cells(n, 3).Value = Sheets(f1).Cells(2, C).Value ' Autorisation : ligne 2
        Sheets(f2).Cells(n, 4).Value = Sheets(f1).Cells(L, 2).Value ' Thématique   : colonne 2
        Sheets(f2).Cells(n, 5).Value = Sheets(f1).Cells(L, 3).Value ' Sujet        : colonne 3
        '
      End If
      '
    Next C
  Next L
  '
  MsgBox Prenom & " : " & n
  '
End Sub

=)

[Jeric1970]

Bonjour Chris, Menhir et Zipbox,

Avant merci de vos conseils avisés.

Chris, Effectivement, je me doutais que la structure avec des cellules fusionnées, allait complexifier la solution. Je vais y remédier.

Menhir, j'avais effectivement trouver Equiv() et Index() sur un forum comme une solution probable, je ne les maîtrise pas vraiment je vais donc aussi creuser en ce sens.

Zipbox, Merci pour ce code. Je vais aussi le tester.

Merci encore à vous tous pour votre bonne volonté !

Je vous tiens donc au courant de l'avancée de ce projet.



Eric

[Pierre Fauconnier]

Salut.

Une règle capitale d'Excel est bafouée ici: Ne jamais mélanger les données et leur analyse/présentation/exploitation.

Si tu avais tes données dans une table de données, tu n'aurais aucun souci à réaliser ce que tu souhaites. Tu pourrais alors utiliser INDEX/EQUIV sans te préoccuper des limites et de la configuration "de présentation/saisie" de tes données.

[Jeric1970]

Bonjour Pierre,

Oui tu as surement raison.
Disons que le fichier de base était imposé, j'ai dû composer avec..
Mais tu as raison, en séparant les données cela aurait été plus simple.

Merci encore de ton aide.

Eric

[Jeric1970]

Bonjour,

Pour rechercher dans une plage, une cellule avec une donnée texte (le prénom)
avec les 3 infos, thématique en colonne 2, sujet en colonne 3 et Routine Auto en ligne 2

voici un bout de code, à adapter pour ton tableau :

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
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
 
Option Explicit
 
Sub RecherchePrenom()
  '
  Dim Prenom As String, n As Integer
  '
  Dim L As Integer ' --- ligne ---
  Dim C As Integer ' --- colonne ---
  '
  Const f1 As String = "Feuil1"
  Const f2 As String = "Feuil2"
  '
  Prenom = InputBox("Prénom ?")
  '
  n = 0
  '
  For L = 3 To 100  ' ligne 3 à 100
    For C = 4 To 17 ' D à Q
      '
      If (Sheets(f1).Cells(L, C).Value = Prenom) Then
        '
        n = n + 1
        '
        Sheets(f2).Cells(n, 1).Value = n
        Sheets(f2).Cells(n, 2).Value = Prenom
        Sheets(f2).Cells(n, 3).Value = Sheets(f1).Cells(2, C).Value ' Autorisation : ligne 2
        Sheets(f2).Cells(n, 4).Value = Sheets(f1).Cells(L, 2).Value ' Thématique   : colonne 2
        Sheets(f2).Cells(n, 5).Value = Sheets(f1).Cells(L, 3).Value ' Sujet        : colonne 3
        '
      End If
      '
    Next C
  Next L
  '
  MsgBox Prenom & " : " & n
  '
End Sub

=)

Salut Zipbox,

juste un retour.
Ton code fonctionne parfaitement.
Mon problème est résolu.
Merci beaucoup de ton aide

Eric