Copier valeur ligne selon paramètre

[brdad]

Bonjour le Forum,

Je vous expose mon problème :
j'ai un classeur 1 qui contient plusieurs lignes de valeurs avec une colonne (para1) qui peut avoir la valeur 0 ou 1. je voudrais avoir dans un deuxième classeur (classeur 2) seulement les lignes ou para1 a la valeur 1. il faudrait aussi que les deux classeurs soient liés : si on modifie une valeur dans le classeur 1, elle soit modifié dans le classeur 2 et si on change le para1 d'une ligne, elle devra s'afficher ou non dans le classeur 2

je ne sais pas si je suis très clair !

merci d'avance pour votre aide


bruno [file name=Classeur1_20060317105406.zip size=5973]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur1_20060317105406.zip[/file]

 

[brdad]

Bonjour le Forum,

Personne n'a de solution à mon problème ?

Bruno

 

[pierrejean]

bonjour Bruno

Navré d'avoir été si long

vois si cela te conviens

note: le report se fait dans la feuil1 d'un classeur1 ouvert

en réalité à chaque modification dans la colnne F on reprend l'integralité du tableau

si probleme n'hesite pas à revenir [file name=brdad1.zip size=10861]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/brdad1.zip[/file]

 

[brdad]

Bonjour le Forum,
Bonjour Pierrejean,

je teste ca aujourd'hui

merci pour ton aide

Bruno

 

[brdad]

Bonjour le Forum,
Bonjour Pierrejean,

j'ai une erreur :
erreur d'execution 9
Indice en dehors de la plage

le débogage me renvoi la ligen suivante

Workbooks('Classeur1').Sheets('Feuil1').Cells(ligne, m) = tablo((n - 1) * 6 + m)

merci d'avance

Bruno

 

[pierrejean]

bonjour brdad

Pour que cela fonctionne il est imperatif que tu ais un fichier Classeur1 ouvert

tiens moi au courant

 

[brdad]

Bonjour Pierrejean,

j'ai bien un classeur1 ouvert

cela peut il venir de ma version d'excel (97) ?

Merci

Bruno

 

[pierrejean]

re

je n'ais pas de certitude n'ayant plus excel 97 depuis longtemps mais je ne crois pas que la version pose probleme

esaie de lancer cette macro qui te donnera les noms des fichiers ouverts tel qu'excel les comprend

il est possible que dans la ligne incriminée il faille remplacer Classeur1 par Classeur1.xls

Sub noms()
For n = 1 To Workbooks.Count
MsgBox (Workbooks(n).Name)
Next n
End Sub

tiens moi au courant

 

[brdad]

re,

la première erreur a disparu en mettant .xls mais j'en ai une deuxième :
type incompatible

ligne :
If tablo(n * 6) = 1 Or n = 1 Or n = 2 Then

merci

 

[brdad]

Re,

a priori le problème viendrait de la ligne de titre car 'para1' n'est pas un nombre est ne peut donc pas etre comparé à '1' dans 'If tablo(n * 6) = 1 Or n = 1 Or n = 2 Then'

 

[brdad]

re,

ca marche en remplacant 'tablo(n * 6) = 1' par 'tablo(n * 6) like 1'

comme ca le type n'intervient pas

merci

Bruno

 

[pierrejean]

re

bravo !!!

je n'ais pas eu le temps de regarder

conclusion : ça baigne ???

 

[brdad]

re,

ca marche nickel

merci beaucoup

Bruno