Liste sur une autre feuille

Version imprimable

13/11/2009, 10h02
deckard10

[Résolu] Liste sur une autre feuille

Bonjour,

Si j'ai réussi :roll:, je vous ai joins un fichier exemple.
EDIT : voilà l'adresse où j'ai réussi à mettre mon fichier :roll: : http://www.mediafire.com/?mwdgmmj0lg2

En fait, je voudrais réussir à afficher les données des colonnes A à F sur la feuille "TEST" lorsque la colonne G "TEST" est remplie d'une croix. Des données s'ajouteront au fur et à mesure.

Je pense qu'il faut faire quelque chose avec une macro car je n'ai pas réussi sans. Mais je n'y connais rien du tout...

Alors si vous avez une solution ou un début de solution, ça serait génial :D.

Je vous remercie d'avance !
A bientôt. :ccool:

Slt,
J'ai eu un peu de mal car je suis débutant avec open office mais en cherchant un peu on arrive à faire beaucoup de choses. voici un code qui marche pour ton exemple, il est encore à adapter puisqu'il tourne uniquement sur les lignes 13 à 19.
A toi de trouver comment faire autrement ;).
code:

Code:

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
 
sub essai
 
Dim i as Long, j as long
Dim oSheet1 as object, oSheet2 as object
 
oSheet1=ThisComponent.sheets.getByName("RETOURS 2009")
oSheet2=ThisComponent.sheets.getByName("TEST")
 
ThisComponent.LockControllers
 
j=2
 
For i =13 to 19
 If oSheet1.getCellRangeByName("G"& i).string = "X" Then
 
  osheet2.getCellRangeByName("A"& j).Value  = osheet1.getCellRangeByName("A"& i).Value
  osheet2.getCellRangeByName("B"& j).String = osheet1.getCellRangeByName("B"& i).String
  osheet2.getCellRangeByName("C"& j).String = osheet1.getCellRangeByName("C"& i).String
  osheet2.getCellRangeByName("D"& j).String = osheet1.getCellRangeByName("D"& i).String 
  osheet2.getCellRangeByName("E"& j).String = osheet1.getCellRangeByName("E"& i).String
  osheet2.getCellRangeByName("F"& j).String = osheet1.getCellRangeByName("F"& i).String 
 
  j=j+1
 End If
next i
 
ThisComponent.LockControllers
 
end sub

A+ bonne recherche

16/11/2009, 11h09
deckard10

salut,

je te remercie, je vais essayer de comprendre tout ça :P
20/11/2009, 14h59
deckard10

Bonjour,

J'ai réussi à modifier des choses mais il y a une chose que je n'arrive pas à faire malgré des recherches mais ça tombe sur les différence entre excel et openoffice... :roll:

Sur cette ligne, je voudrais mettre "différent" au lieu de "égal" mais je n'y arrive pas en mettant <> :
If oSheet1.getCellRangeByName("G"& i).string = "x"

Sinon ça marche bien :ccool:, je vous remercie.
20/11/2009, 15h58
rvtoulon
Slt, pourtant chez moi ça fonctionne !
Code:

1 2 If oSheet1.getCellRangeByName("G"& i).string <> "X" Then
Peux-tu mettre ton code stp ?

A+
20/11/2009, 16h35
deckard10

Ben oui ça fonctionne 8O

Car j'avais mis comme ceci :

Citation:

If oSheet1.getCellRangeByName("A"& i).string <> "" AND
If oSheet1.getCellRangeByName("G"& i).string = "x" Then

Apparemment, c'est plutôt au niveau du AND de ma première ligne qui pose problème car avec une seule ligne ça marche bien, car je voudrais rajouter une condition :
"Si dans la colonne A pas de champ vide et si dans la colonne G il y a une croix alors ..."
Je voudrais le prendre mon problème dans l'autre sens en fait et si je ne mets qu'une seule ligne dans le code, dans ma page LISTE, toutes les lignes de ma colonne A sont remplies.

Merci et bonne soirée :D
23/11/2009, 08h45
rvtoulon
Slt,
Tu dois le mettre en une seule ligne mais tu enlèves le "if" après le "And" comme ci-dessous: ;)
Code:

1 2 If oSheet1.getCellRangeByName("A"& i).string <> "" AND oSheet1.getCellRangeByName("G"& i).string = "X" Then
J'ai essayé ça fonctionne. :ccool:

A bientôt

Edit: N'oublie pas de mettre résolu si c ok
24/11/2009, 15h11
deckard10

Salut,

J'y étais presque :oops:

J'ai une dernière demande :roll:, j'ai essayé d'insérer un code

Code:

RemoveByIndex(rang, nombre)

pour supprimer les lignes (par exemple ligne 3 à 15) avant de faire la macro.

J'ai essayé ça :

Code:

oSheet2.Rows.RemoveByIndex(3,20)

Ca marche presque ce code ! :mouarf:

Car si j'ai 10 lignes (3 à 12) et que lorsque je relance la macro, j'en ai plus que 5 (3 à 7), il me garde les lignes 8 à 11 que je ne veux pas garder.

Merci :P

EDIT : Ca marche apparemment le code, bon je mettrai dans la semaine "résolu", si ça marche comme je veux :mrgreen:
21/12/2009, 16h37
deckard10

Et bien tout fonctionne bien.

Merci pour ton aide !

A+