VBA_Copier sur la base des entêtes

Re,

Toutes les explications ici :
https://forums.commentcamarche.net/forum/affich-37622001-vba-detection-de-cellule-vide-ligne-colonnne#la-methode-find

Cdlmnt
Via

Bonsoir Senecartour

1) Tu avais enregistré le code en tant que fonction (Function) et non en tant que macro dans un module (Sub)
2) des erreurs dans certaines lignes comme le nom de variable de feuille entre guillemets
3) Pour travailler avec 2 classeurs en même temps il faut clairement les identifier (WBsource et WBcible dans ma macro) et adapter la macro (pas possible d'utiliser activeworkbook, activesheet etc)
4) J'ai revu la macro :
Pour la lancer d'une feuille de Cible tu peux utiliser le raccourci que je lui ai donné : CTRL + i ou depuis Macros dans onglet Developpeur du Ruban
Mais avant il faut indiquer le chemin complet de Source dans la feuille parametre

https://www.cjoint.com/?0DrcsjAYgNx

Cdlmnt
Via

Bonjour via55,

J'ouvre à nouveau le sujet suite à une remarque sur la macro que vous m'avez proposé.
La macro fonctionne dans un sens mais pas dans l'autre.
Autrement dit, si une entête est présente dans l'onglet cible mais absente dans l'onglet source, la copie se fait sans problème.
Par contre si une entête est présente dans l'onglet source mais absente dans l'onglet cible, la macro beug.
Pourriez-vous m'aider réaliser cette étape ?

En résumé, je souhaite que la macro fasse des recherches sur la base des entêtes et copier les données de l'onglet source vers l'onglet cible. Elle ne doit pas contrôler et ceci même si une entête est absente dans un onglet ou dans un autre.

Merci pour votre retour.

Bonjour

Oui j'ai fait une erreur dans la macro que je t'ai envoyé, oublié de rectifier une ligne, celle ci :
colentetesource = WBcible.Sheets(ongletcible).Rows(2).Find("*", , , , xlByRows, xlPrevious
la bonne ligne est en fait : colentetesource = WBcible.Sheets(ongletsource).Rows(2).Find("*", , , , xlByRows, xlPrevious

Cdlmnt
Via

Bonjour via55,
J'ai corrigé mais une nouvelle erreur à mon avis liée aux histoire des entêtes apparaît.
Je vous copie la macro ci-dessous
Merci et désolé pour cette sollicitation.
----------------------------------------------
Sub A_Import()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Dim lientetesource As Long, coentetesource As Integer, lientetecible As Long, coentetecible As Integer, WBsource As Workbook, WBcible As Workbook

If MsgBox("Voulez-vous importez les données?", vbYesNo, "Import") = vbNo Then
Exit Sub
Else

Set WBcible = Workbooks(ActiveWorkbook.Name)
Set WBsource = Workbooks.Open(WBcible.Sheets("parametre").Cells(3, 2).Value)

ongletcible = ThisWorkbook.ActiveSheet.Name

' derniere ligne remplie de source
ligentetesource = WBsource.Sheets(ongletsource).Columns(2).Find("*", , , , xlByColumns, xlPrevious).Row
'derniere colonne remplie de source

'colentetesource = WBcible.Sheets(ongletcible).Rows(2).Find("*", , , , xlByRows, xlPrevious).Column
colentetesource = WBcible.Sheets(ongletsource).Rows(2).Find("*", , , , xlByRows, xlPrevious).Column

' boucle sur les colonnes de cible
For n = 2 To colentetesource
' en tete de la colonne desource
entetesource = WBsource.Sheets(ongletsource).Cells(2, n)
' colonne de cible correspondant à cet en tête

On Error GoTo suite
coentetecible = WBcible.Sheets(ongletcible).Rows(2).Find(entetesource, , , xlWhole, xlByRows, xlPrevious).Column
On Error GoTo suite
' boucle sur les lignes
For t = 7 To ligentetesource
' copie ligne source dans cible
WBcible.Sheets(ongletcible).Cells(t + 3, coentetecible) = WBsource.Sheets(ongletsource).Cells(t, n)
Next t
suite:
Next n
End If
WBsource.Close

Bonjour

Pour mois ce fichier avec sa macro fonctionne sans erreur avec el fichier Source envoyé
http://www.cjoint.com/c/EFBprSJZQgx

Si tu as un fichier avec d'autres données dans Source et qui occasionne une erreur envoie moi le fichier en m'indiquant quelle ligne de la macro est concernée

Cdlmnt
Via

Bonjour senecartour

Désolé, là je ne sais pas faire
Mais je pense qu'il faut redimensionner le tableau au départ
Ensuite incrémenter une variable de 1 à chaque tour de boucle pour remplir le tableau
Peut être :

'Redimensionnement de mon tableau
                  ReDim donnees(1 To lifin - 1)
'Boucle sur mes lignes de données
For licourante = 2 To lifin
        'Boucle sur mes colonnes de données
          For cocourante = 2 To cofin
          x=x+1
                  
     donnees(x) = Cells(licourante, cocourante) & " ^ "                                                                                                         
                                                                                                                                                   
         Next cocourante
Next licourante

Cdlmnt
Via

Merci via 55 pour votre retour qui me donne de l'espoir

J'ai réussi à passer l'étape du tableau en codant à ma façon. Cependant je suis bloqué à l'étape de génération du fichier csv avec les données.
Pourriez-vous, s'il vous plaît, me rendre service en regardant le fichier (dernière version de mes codes via le lien ci-dessous).

https://www.cjoint.com/c/EGvovBKIASc

Je suis vraiment perdu malgré mes efforts.

Oui la Sub Enregistrer fichier a des erreurs
Apparement le dim de chemin et feuille pose problème
Ensuite psLigneFichier n'est pas trouvé

mais n'ayant pas bâti cette macro et ne connaissant pas bien la procédure je ne saurais rectifier mais en reposant la question sur le forum tu vas bien trouver quelqu'un de compétent en csv pour corriger ça

Bon courage
Via

Bonjour via 55,
J'ai contourné le problème en adoptant ma solution par rapport à un code qui m'a été fourni.
Jai réussi à exporter les données en cvs, sauf que je souhaite ajouter des contrôles lors de l'export des données en scv.

1ere contrôle:
lorsqu'on a "Oui" à la ligne 7 d'une colonne, les données de la colonne doivent être concaténées avec les données de la colonne B.
J'ai déjà mis ce contrôle sauf qu'au lieu que le contrôle s'applique dans le fichier CSV généré, il est directement appliqué dans l'onglet lui même (ce que je ne souhaite pas)


2ème contrôle
lorsqu'on se situe dans l'onglet nommé "Division", le nombre de fichiers exportés dépendra des données dans la colonne "C". Autrement dit, les lignes de données ayant le même nombre doivent se retrouver dans le même fichier avec comme nom des fichiers (nom de l'onglet&N°)
Par exemple dans notre cas: on doit avoir trois fichiers nommées respectivement (Division1, Division2, Division3).

Je vous joins le fichier en question.
https://www.cjoint.com/c/EGxifXIB6kc


Merci pour votre aide.