Transfert Des Données Entre Feuils Selon Code

[bataggone]

bonjour les experts
je cherche une formule pour assurer le transfert entre la base des données et le autre feuils
pour plus d'explication veuillez trouver ci-jointe un fichier exemple

merci d'avance

 

[Robert]

Bonkour Bataggone, bonjour le forum,

Essaie comme ça :

Sub Macro1()
Dim OS As Worksheet 'déclare la variable OS (Onglet Source)
Dim TV As Variant 'déclare la variable TV (Tableau des Valeurs)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

Set OS = Worksheets("base") 'définit l'onglet source OS
TV = OS.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 2 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des valeurs TV (en partant de la seconde)
    If TV(I, 1) <> "" Then ''condition : si la donnée en ligne I, colonne 1 de TV n'est pas vide
        On Error Resume Next 'gestion des erreurs (en cas d'erreur passe à la ligne suivante)
        Set OD = Worksheets(TV(I, 1)) 'définit l'onglet de destination OD (génère une erreur si l'onglet n'existe pas)
        If Err <> 0 Then 'si une erreur a été générée
            MsgBox "L'onglet " & TV(I, 1) & " n'exite pas !" 'message
            Err.Clear 'supprime l'erreur
            GoTo suite 'va à l'étiquette suite
        End If 'fin de la condition
        Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
        DEST.Resize(1, UBound(TV, 2)) = Application.Index(TV, I) 'renvoie la ligne I dans DEST
    End If
suite: 'étiquette
Next I 'prochaine ligne de la boucle
End Sub

 

[Paritec]

Bonjour Batagone le forum
ton fichier en retour avec un petit bouton copie, tu cliques et tu me redis
a+
Papou🙂

 

[Paritec]

Bonjour Robert🙂
comment vas-tu??
a+
Papou🙂

 

[Robert]

Bonjour Papou ! Content de voir par ici...

 

[Robert]

Arf... Nos post se croisent. Ça va et toi.

 

[Paritec]

Re Robert🙂
moi aussi content de te croiser, oui je vais bien des petits ennuis de santé comme tout le monde mais pour le moment tout est ok
je suis en retraite depuis 1 an et demi et j'ai conservé ma société alors je suis un retraité très actif (lol)
je passe tout près de chez toi fin août
Je quitte le clavier j'ai des invités a plus
a+
Papou🙂

 

[Robert]

Bonne retraite ! Prend soin de toi...
Je suis plus à Sète mais à Poussan, petite commune voisine. Pas sûr que j'y sois à cette période mais si j'y suis, j'espère que l'on se rencontrera !...

 

[bataggone]

Re bonjour messieurs
" Robert et Paritec" merci beaucoup de votre intervention vous êtes vraiment des experts
mais apparemment avec VBA c'est tres compliqué il y a une possibilité de réalisé avec formule
merci

 

[MAN]

Bonjour le Forum; bonjour a tous.
je souhaite creer de l'inspiratio
peut ont faire l'inverse, c'est a dire renseigner les codes et avec le bouton compiler les valeurs par date ala feuille principale
merci d'avance