Discussion :

[deckard10]

Bonjour,

Si j'ai réussi , je vous ai joins un fichier exemple.
EDIT : voilà l'adresse où j'ai réussi à mettre mon fichier : 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 .

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

[rvtoulon]

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 :

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
 
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

[deckard10]

salut,

je te remercie, je vais essayer de comprendre tout ça

[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...

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 , je vous remercie.

[rvtoulon]

Slt, pourtant chez moi ça fonctionne !

Code :

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

1
2
 
If oSheet1.getCellRangeByName("G"& i).string <> "X" Then

Peux-tu mettre ton code stp ?

A+

[deckard10]

Ben oui ça fonctionne

Car j'avais mis comme ceci :

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

[rvtoulon]

Slt,
Tu dois le mettre en une seule ligne mais tu enlèves le "if" après le "And" comme ci-dessous:

Code :

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

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

J'ai essayé ça fonctionne.

A bientôt

Edit: N'oublie pas de mettre résolu si c ok

[deckard10]

Salut,

J'y étais presque

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

Code :

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

RemoveByIndex(rang, nombre)

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

J'ai essayé ça :

Code :

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

oSheet2.Rows.RemoveByIndex(3,20)

Ca marche presque ce code !

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

EDIT : Ca marche apparemment le code, bon je mettrai dans la semaine "résolu", si ça marche comme je veux

[deckard10]

Et bien tout fonctionne bien.

Merci pour ton aide !

A+