besoin de répartir des données

kiki31 · 28 Août 2006

bonjour je suis un utilisateur de excel depuis 5 ans mais sur des applications simples que j'ai réalisé ou plus complexe mais créées par des pointures en la matière.
Afin de suivre un élevage j'ai réalisé un classeur comprenant un tableau de saisi qui ne garde pas les données des précédentes saisies et d'une série de fiches de suivi (une par animal)
le tableau de saisi à autant de lignes que d'animaux et comme colonnes la date , la longueur ,et le delta ,la largeur , et le delta,le poids , et le delta ;le tout saisi manuellement .
Mon problème : je voudais que chaque fois que je remplis le tableau de saisi les données de chaque animal se reportent automatiquement sur chacune des fiches mais en remplissant chaque fois une ligne supplémentaire des tableaux individuels.Je pense qu'il faut une macro qui cherche la première ligne vide de chaque tableau et y reporte la ligne de données correspondantes mais je ne sais pas faire de macro.....
Si quelqu'un a une solution pour m'aider ce serait une vrai épine qui me serait enlevé du pied.
D'avance merci à tous les excelnautes qui pourront m'aider et amitiés à tous ce qui me liront.

Jacques87 · 28 Août 2006

Re : besoin de répartir des données

Bonjour,

Ton problème est loin d'être insurmontable, mais pour faciliter la chose et pour pouvoir t'expliquer correctement la procédure il vaudrait mieux avoir ton fichier.

Bon courage

kiki31 · 29 Août 2006

Re : besoin de répartir des données

ok merci je vais essayer de joindre mon tableur et ce sera surement plus clair .
Sur ce tableau je désirerais que chaque ligne de donnée soit rajoutée (avec la date) sur la ligne suivant les données déja existantes du tableau de chaque animal par exemple :
les données de sophie de B3 à H3 du tableau général se reporteraient sur le tableau de la feuille"sophie" en C44 à J44
et si le lendemain je resaisi de nouvelles données que B3 à H3 soit reportées en C45 à J45 .....et ainsi de suite et ceci pour chaque animal.....

un collègue m'as proposé une macro mais je n'ai pas réussi à l'adapter à mon tableau (il me l'a donnée par telephone......) alors effectivement je pense qu'avec mon modèle ça seras plus comprehensible

Merci d'avance à celui (ou celle) qui pourras me donner ce coup de main

myDearFriend! · 29 Août 2006

Re : besoin de répartir des données

Bonsoir

Ci-joint ton exemple modifié pour essayer de répondre à ta demande.

J'ai utilisé le code suivant :

Code:

[SIZE=2]Option [COLOR=navy]Explicit
Option Compare[/COLOR] Text [COLOR=green]'permet d'ignorer les majuscules/minuscules pour comparaison texte[/COLOR]

[COLOR=navy]Sub[/COLOR] MAJfiches()
[COLOR=green]'myDearFriend! - Août 2006[/COLOR]
[COLOR=navy]Dim [/COLOR]F[COLOR=navy] As [/COLOR]Worksheet
[COLOR=navy]Dim [/COLOR]TabTemp[COLOR=navy] As Variant
Dim [/COLOR]L[COLOR=navy] As Long[/COLOR], DernLig[COLOR=navy] As Long
Dim [/COLOR]C[COLOR=navy] As Byte[/COLOR]
      [COLOR=green]'Charge les données dans un tableau variant temporaire[/COLOR]
      [COLOR=navy]With[/COLOR] Sheets("Tableau general")
            DernLig = .Range("A65536").[COLOR=navy]End[/COLOR](xlUp).Row
            TabTemp = .Range(.Cells(3, 1), .Cells(DernLig, 8)).Value
      [COLOR=navy]End With[/COLOR]
      [COLOR=green]'Pour chaque animal (chaque ligne de données)[/COLOR]
      [COLOR=navy]For [/COLOR]L = 1[COLOR=navy] To UBound[/COLOR](TabTemp, 1)
            [COLOR=navy]For Each[/COLOR] F[COLOR=navy] In [/COLOR]Worksheets
                  [COLOR=green]'fiche trouvée[/COLOR]
                  [COLOR=navy]If [/COLOR]F.Name = TabTemp(L, 1) [COLOR=navy]Then[/COLOR]
                        [COLOR=green]'MAJ fiche[/COLOR]
                        DernLig = F.Range("C65536").[COLOR=navy]End[/COLOR](xlUp).Row + 1
                        [COLOR=navy]For [/COLOR]C = 2[COLOR=navy] To [/COLOR]8
                              F.Cells(DernLig, C + IIf(C = 2, 1, 2)).Value = TabTemp(L, C)
                        [COLOR=navy]Next[/COLOR] C
                  [COLOR=navy]End If[/COLOR]
            [COLOR=navy]Next[/COLOR] F
      [COLOR=navy]Next[/COLOR] L
      MsgBox "Mise à jour des fiches réalisée !"
[COLOR=navy]End[/COLOR] Sub[/SIZE]

ATTENTION aux noms de tes onglets, ils doivent impérativement correspondre aux noms qu'on retrouve dans le tableau général (le respect majuscules/minuscules n'est toutefois pas requis grâce à l'intruction "Option Compare Text" en tête de module).
Il convient d'être vigilant sur ce point : par exemple, dans ton fichier joint, le nom de l'onglet " sophie" commencait par un espace (de trop !)...

Cordialement,

kiki31 · 29 Août 2006

Re : besoin de répartir des données

Merci beaucoup pour ton aide aprés une adaptation pour copier la macro dans mes autres classeurs ça marche impec
à bientot et encore merci

besoin de répartir des données

kiki31

Guest

Jacques87

XLDnaute Accro

kiki31

Guest

Pièces jointes

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

kiki31

Guest

Discussions similaires

besoin de répartir des données

kiki31

Guest

Jacques87

XLDnaute Accro

kiki31

Guest

Pièces jointes

myDearFriend!

XLDnaute Barbatruc

Pièces jointes

kiki31

Guest

Discussions similaires

Privacy & Transparency

Privacy & Transparency