Discussion :

[benco]

slt, une petite question pour terminer mon prog.
Voilà j'ai un classeur excel comportant 3 feuilles.
Sur la premiere feuille, j'ai un tab avec des données. Ces données se calculent et changent à chaque ouverture du fichier. Ce tab comporte des sous totaux qui sont pour leur part dans la meme colonne à chaque ouverture mais à l'inverse leur position de ligne se modifie.
Ce que je souhaite c'est pouvoir ecrire un code qui permette de passer la colonne F (cherche et doit trouver l'expression "sous total A", fait de meme pour "sous total B", et de meme pour les autres...), quand il trouve ce titre aller en colonne X et prendre le chiffre et le copier dans un tableau sur la Feuille 3 dans une case bien definit qui ne change pas (par exemple C3).

J'espere etre clair, sinon faire signe je reviendrais sur l'explication. Merci et bon noel !!! )

[SfJ5Rpw8]

je crois qu'il va falloir que tu nous décompose tes besoins ... en petites taches...

[benco]

hello
une decomposition pour mieux vous expliquez ma demande. )
sur ma feuille 1 se trouve un tableau comportant des sous totaux, je souhaite les reporter dans un tableau sur la feuille 3.

Le truc, c que l'emplacement de ces totaux (sur la feuille 1) changent à chaque lancement.

Par exemple l'expression "sous total 1" se trouve en colonne F et sur la ligne 11, et le chiffre correspondant se trouve en colonne X et ligne 11.

Mais lors du prochain lancement du programme, les colonnes resteront identiques pour leur part mais la ligne changera.

Je pensais donc pour pouvoir reporter mon chiffre sur la feuille 3, faire un prog en visual qui passerait la colonne F au crible en cherchant l'expression "sous total 1" et une fois trouvé, prendrait le chiffre qui correspond (situé en colonne X) pour le reporter dans le tableau feuille 3, (à un emplacement qui ne changera jamais). Ainsi de suite pour les differents sous totaux.

[SfJ5Rpw8]

tu as peu-être la solution d'utiliser la formule RechercheV d'excel :

formule à placer dans la cellule résultat... ( avec dans ce cas le total récupérer en colonne G..)

Code :

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

=RECHERCHEV("Sous total 1";Feuil1!F2:G24;2)

[benco]

slt bbil,

merci pour cette info, j'essaye demain et je te tiens au courant...

@+ :*)

[benco]

aloa
j'ai essayé en vain, cette formule mais ça ne fonctionne pas

[benco]

dois etre nullos, j'ai encore reessayé mais rien

je vais passer la nuit dessus...à suivre :*)

[SfJ5Rpw8]

ben si tu la bien utilisé elle aurai du marché... qu'as - tu mis exactement comme formule .? qu'as tu exactement dans colonne du texte sous-total ... dans quelle colonne est la valeur du sous-total à récupérer?

as tu regardé l'aide en ligne de rechercheV ?

[benco]

slt bbil
j'ai maté l'aide mais pas plus d'infos

voici ce que j'ai mis

Code :

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

           recherchev=("somme bdi cat";civils!F2:X20;20)

somme bdi cat correspond au sous total à chercher

civils!F2:X20 correspond à la plage où il faut faire la recherche

20 correspond à la difference entre la colonne X depuis la colonne F (emplacement de somme bdi cat)


j'ai pas l'impression qui recherche bien dans la colonne X, la valeur qui correspond à la ligne où se situe le texte "somme bdi cat"[/code]

[SfJ5Rpw8]

j'ai pas l'impression qui recherche bien dans la colonne X, la valeur qui correspond à la ligne où se situe le texte "somme bdi cat"[/code]

rechercheV effectue la recherche dans la colonne situé la plus à gauche de la plage donnée en paramétre ... ici F...
..
tu devrai donc te rabattre avec les fonction EQUIV et INDEX...

ce qui devrai donner quelque chose comme :

Code :

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

=INDEX(F2:F20;EQUIV("Sous total";X2:X20))

[benco]

je viens d'essayer, j'ai remanié mais ça bugggg )

regardes ce que j'ai tapé

Code :

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

INDEX(civils!F2:F20; EQUIV("Total B.D.I.  cat. B; civils!X2:X20))

j'étais en train de penser; est ce qu'il est necessaire dans la formule où est ecrit "Total B.D.I. cat. B" de mettre que cette expression se trouve sur la Feuille nommée "civils" ??

[SfJ5Rpw8]

je viens d'essayer, j'ai remanié mais ça bugggg )

regardes ce que j'ai tapé

Code :

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

INDEX(civils!F2:F20; EQUIV("Total B.D.I.  cat. B; civils!X2:X20))

j'étais en train de penser; est ce qu'il est necessaire dans la formule où est ecrit "Total B.D.I. cat. B" de mettre que cette expression se trouve sur la Feuille nommée "civils" ??

la il manque un " ?

Code :

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

INDEX(civils!F2:F20; EQUIV("Total B.D.I.  cat. B"; civils!X2:X20))

[benco]

juste un oubli dans le precedent message


ils etaient bien en place dans mon code

cela ne vient pas de là......

[benco]

slt

help !! help !! svp

[SfJ5Rpw8]

essaye de décomposer la formule, essai ... déjà de faire marcher Equiv tous seul :

Code :

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

=EQUIV("Total B.D.I.  cat. B"; civils!X2:X20)

[leroissejp]

Bonjour,
Ce code recheche dand la colonne F1 à F100, le mot sous-total 1, selectionne la cellule de la colonne X et copie dans A3 de la feuille 3.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub CopieCellule()
Dim C
    For Each C In Range("F1:F100").Cells
       If C.Value = "sous-total 1" Then
            C.Offset(0, 18).Select
        Selection.Copy
        Sheets("Feuil3").Select
        Range("A3").Select
        ActiveSheet.Paste
        Application.CutCopyMode = False
    End If
   Next C
End Sub

jpleroisse

[AlainTech]

Voir ce post:

http://www.developpez.net/forums/viewtopic.php?t=436270

Semble être le même genre de problème et la solution proposée est intéressante.