Excel (ou OO) copie de lignes d'un fichier a l'autre

[invite4785e0b5]

Bonjour,

Je dispose d'un tableur (NeoOffice ou Excel) et je voudrais créer une macro qui permette de remplir automatiquement des cellules en fonction d'une valeur tapée. Je n'y connais pas grand chose et j'espere que mes explications seront claires

Je rentre une Valeur dans la cellule A[n] de MaFeuille
Dès que je quitte la cellule
Si celle valeur existe dans la Feuille2 dans la colonne A (ligne n)
Mafeuille.A2 = Feuille2.n2
Mafeuille.A3 = Feuille2.n3
Sinon (Message d'alerte)

Si la macro pouvait fonctionner independamment sur Excel et NeoOffice (OpenOffice pour Mac Os X) en plus ca serait le top.

Pensez vous que c'est réalisable ? Si oui, je ne serait pas contre un (petit?) coup de pouce...

Merci
-----

[sitalgo]

B'jour,

Pour lancer une macro à l'appui d'une touche, il faut la détourner. C'est le rôle de la 1ère macro, à lancer quand on ouvre le classeur.
La 2ème sert à rendre l'affectation normale de la touche quand on en a plus besoin.
La 3ème c'est là où l'on met le code qui fait ce que l'on veut.
La touche choisie ici est la touche entrée du pavé numérique.

Sub active_touche()
'détourne entrée du pavé numérique
Application.OnKey "{ENTER}", "touche_entree"
End Sub

Sub desactive_touche()
Application.OnKey "{ENTER}"
End Sub

Sub touche_entree()
'
'insérer ici routine qui fait le boulot
'
ActiveCell.Offset(0, 1).Activate 'sinon ça descend pas automatiquement
End Sub

La compatiblité des macros entre excel et ooffice marche rarement.

[invite4785e0b5]

Merci mais je ne veux pas lancer la macro avec la touche entrée mais plutot dès que la cellule a ete modifiée. Il semble y avoir un événement Change mais je ne sais pas si (comment?) on peut récupérer le Text ou la Valeur de la cellule ainsi que son numéro de Ligne.

Je ne trouve pas de bonne documentation sur cet Evenement et comme je le disais plus haut je n'y connais pas grand chose...

[sitalgo]

Le problème avec change c'est que ça tourne en rond si on s'en sert pour modifier la valeur d'une cellule (puisque la modification renvoie à nouveau sur la macro). Il faut que la macro soit affectée à une feuille où l'on rentre la valeur et que les cellules modifiées par le programme soient sur une autre feuille.

Private Sub Worksheet_Change(ByVal Target As Range)
    'macro affectée à (par ex) feuil1 seulement
    Cells(1, 1) = ActiveCell.Row
    Cells(1, 2) = ActiveCell.Column
End Sub

Cette macro ne s'arrête jamais. La cellule active n'est pas la cellule modifiée mais celle une fois qu'on a validé. Il faut donc désactiver le déplacement (généralement vers le bas) de la touche entrée et ne pas utiliser les flèches.

[A voir en vidéo sur Futura]

[invite4785e0b5]

D'accord... Il faut donc que je saississe un valeur sur feuille1 (peut être definir une cellule "de saisie") puis que le script retrouve cette valeur dans la colA de la feuille2, et ajoute les données adjacentes sur la prochaine ligne vide ee la feuille3 donc ?

[sitalgo]

Oui. comme ça, ça marche.

[invite4785e0b5]

Hum... je viens de decouvrir l'existence de l'Evenement BeforeDoubleClick. Je crois que je vais plutot me pencher sur cette solution finalement. Merci en tout cas pour ces éclaircissement sur les erreurs a ne pas faire