Discussion :

[myayo001]

bonjour,

j'amerai faire une comparaison entre Choix(zone de liste déroulante) et feuil2.cells[B4:I4]

ensuite afficher la colonne avec les titres sur une ligne feuil3.cells [A40]

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
    Dim Choix As Variant, Sh As Worksheet, Deb As Long, Ligne As Long
    Set Sh = Sheets("feuille résumé")
    Sh.Range("12:10000").Clear
    Choix = Application.Index(Sh.[P:P], Sh.Range("AA1"), 1)
'   traitement de Feuil3
    With Sheets("Feuil3")
    .[A1:I3].Copy Sh.[A36]
        For i = B4:I4                                           '   comparaison entre Choix et .cells[B4:I4] ??
            If .Cells(B4 ou jusque I4) = Choix Then
                .Cells(i, 1).EntireColonne.Copy Sh.[A40]       '   ensuite afficher la colonne sur une ligne sh.cells [A40] ??
            End If
        Next i

et comment puis-je faire pour agrandir la taille d’écriture dans la zone de liste déroulante?


merci de votre aide!

[defluc]

Pour boucler sur chaque cellule, le code est

Code :

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

1
2
3
4
Dim Cell As Range
  ...
  ...
   For Each Cell In .[B4:I4]

Le test qui suit dans ton code n'a me semble-t-il pas de sens vu que la plage B6:I8 "sort" de B4:I4.

Mais si tu veux vraiment tester cette plage, que veux tu dire par

If .Cells(B6 ou jusque I8) = Choix

Chaque cellule de B6 à I8 doit être testé ou il suffit qu'une de ces cellules = choix

[myayo001]

désole c'est une erreur en recopiant les cellules c'est bien comparer le choix aux cellule B4 à I4

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Feuil3")
'   comparaison entre Choix et .cells[B6:I8]
        .[A1:I3].Copy Sh.[A36]
        For Each Cell In .[B4:I4]                                         '   comparaison entre Choix et .cells[B4:I4] ??
            If Cell = Choix Then
                .Cells(i, 1).EntireColonne.Copy Sh.[A40]       '   ensuite afficher la colonne sur une ligne sh.cells [A40] ??
            End If
        Next

[defluc]

Donc le code devient

Code :

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

1
2
3
For Each Cell In .[B4:I4]
  if Choix = Cell.Value then
    .Cells(i, 1).EntireColonne.Copy Sh.[A40]

[myayo001]

mais a quoi correspond (i, 1) maintenant vu que l'in ne l'utilise plus dans la boucle For?

[Symone]

Salut,


Defluc aura peut être une meilleur solution mais en attendant :

Code :

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

1
2
3
4
5
6
With Sheets("Feuil3")
        For i = 2 To 9
            If .Cells(4, i).Formula = Choix Then
                .Cells(4, i).EntireColonne.Copy Sh.[A40]
            End If
        Next i

[myayo001]

merci je viens de tester mais il me donne une erreur 438 sur la ligne

Code :

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

.Cells(4, i).EntireColonne.Copy Sh.[A40]

[Phil'oche]

Code :

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

.Cells(4, i).EntireColumn.Copy Sh.[A40]

EntireColumn, c'est de l'anglo-saxon !

[myayo001]

ha oui ca fonctionne beaucoup mieux ! lol

par contre toujours une erreur 1004
le collage ne peut pas être effectué, car les zones copier et de collage sont de taille différentes.

pourtant je n'ai pas de cellule fusionnée ou autre

[Symone]

Bien vu, j'avais pas vérifié jusque là ;-)

Tu as besoin de copier toute ta colonne ou juste quelques cellules?

[defluc]

Je ne peux plus suivre, vous allez trop vite les gars.

Ceci dit Mea Culpa, comme i n'est plus utilisé dans mon code, il y a une fameuse erreur.
Et il y en a une deuxième, c'est qu'il est impossible de copier une colonne entière en indiquant une cellule comme destination.

Alors, il faut choisir : soit copier une plage vers la cellule A40, soit copier la colonne entière en colonne A comme ceci

Code :

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

1
2
  if Choix = Cell.Value then
    Cell.EntireColonne.Copy Sh.Columns(1)

[myayo001]

voila le tableau!


en fait il faudrait afficher la colonne A avec les mois et en fonction du choix avoir la colonne qui correspond en colonne B

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Feuil3")
'   comparaison entre Choix et .cells[B6:I8]
        .[A1:I3].Copy Sh.[A55]
          For Each Cell In .[B4:I4]
            if Choix = Cell.Value then
               Cell.EntireColumn.Copy Sh.Columns(1)
            End If
        Next i

[defluc]

Je ne saisis pas mais avec l'instruction

Code :

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

               Cell.EntireColumn.Copy Sh.Columns(2)

La colonne comportant Cell sera copiée en B (colonne 2) de la feuille Sh.

Essaie, tu verras bien si ça correspond à ce que tu souhaites et si ce n'est pas le cas, il suffit d'adapter.

[myayo001]

ça fonctionne bien par contre il coller le tableau au en B4 moi j'aimerai qu'il soit en B60 vu qu'au dessus j'ai d'autres informations! ou dois-je lui donner cette instruction?