Dispatcher des données

[degap05]

Bonjour,

Je cherche à dispatcher des données contenues dans une plage de données de la feuille "BE", "A10" à "D19", vers les onglets désignés en colonne "B".
En les classant par N° d'envoi sur ces onglets.
J'ai trouvé une macro de Robert qui me paraît faire l'affaire, mais je ne sais pas très bien la paramétrer.

Les explications plus précises sur les feuilles "Viscéral", "Ortho" et "Uro".

Merci.

 

[Paritec]

Re : Dispatcher des données

Bonsoir Maurice,le forum
je ne vois aucune différence dans les trois feuilles la be est différente mais je ne comprend pas ce que tu veux faire recopier les infos de BE dans les trois feuilles? si oui mets le résultat souhaité STP
a+
papou 🙂

 

[degap05]

Re : Dispatcher des données

Bonsoir Maurice,le forum
je ne vois aucune différence dans les trois feuilles la be est différente mais je ne comprend pas ce que tu veux faire recopier les infos de BE dans les trois feuilles? si oui mets le résultat souhaité STP
a+
papou 🙂

Bonjour,
Voilà le résultat attendu.
Merci.

 

[Robert]

Re : Dispatcher des données

Bonjour Degap, Papou, bonjour le forum,

Je te propose cette nouvelle macro :

Sub Macro1()
Dim f As Worksheet 'déclare la variable f (Feuille)
Dim dest As Range 'déclare la variale dest (DESTination)
Dim cel As Range 'déclare la variable cel (CELlule)
 
'boucle sur toutes les cellules éditées de la colonne A
With Sheets("BE")
    For Each cel In .Range("B10:B" & .Range("B9").End(xlDown).Row)
        Set f = Worksheets(cel.Value) 'définit la variable f (à adapter à ton cas)
        Set dest = f.Range("A65536").End(xlUp).Offset(1, 0) 'définit la variable dest
        dest.Value = .Range("B23") 'place le nom de l'IBODE
        dest.Offset(0, 1).Value = cel.Offset(0, -1).Value 'place le nom du container
        dest.Offset(0, 2).Value = cel.Value 'place la spécialité
        dest.Offset(0, 3).Value = .Range("B6").Value 'place la date de remise...
        dest.Offset(0, 5).Value = cel.Offset(0, 1).Value 'place le défaut constaté
        dest.Offset(0, 9).Value = cel.Offset(0, 2).Value 'place le numéro
    Next cel 'prochaine cellule de la boucle
End With
End Sub

 

[degap05]

Re : Dispatcher des données

Bonjour Robert,

Ta macro fonctionne ad-hoc.
Merci beaucoup.
Salutations.