Discussion :

[vyzouille]

Bonsoir,

Je suis sur un projet où je veux "consolider" des données (numérique et texte) de 4 tableaux dans 1 seul. Ces tableaux ont la même structure (colonnes identiques de A à BH), seuls le nombre de lignes peut varier.
J'ai réussi à me débrouiller pour copier par vba les tableaux unitaires et les copier à la suite dans mon tableau de consolidation. Le comble : je n'arrive pas à programmer l'effacement des lignes du tableau consolidé afin qu'il se mette à jour avec les nouvelles données des 4 autres tableaux à chaque ouverture sans écraser les en têtes de ligne

Voilà mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
If Range("A3") <> "" Then
 
  Range("A3" & Range("A3" & Rows.Count).End(xlUp).Row).ClearContents
 
End If

Je sais que la méthode est radicale et qu'une solution plus élégante serait de n'ajouter les données des colonnes et les lignes au fur et à mesure qu'elles se remplissent mais je n'ai pas les connaissances pour le faire.

Merci pour votre aide.
Vyz

[keygen08]

Bonsoir
remplacé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3" & Range("A3" & Rows.Count).End(xlUp).Row).ClearContents

par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("A3" & Range("A3" & Rows.Count).End(xldown).Row).ClearContents

je crois, Je l'ecris toujours sous cette forme.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Range("a3:a" & Range("a65000").End(xlUp).Row).Clearcontents

Pour nettoyé toute les cellules de A3 à A xx

[Daranc]

as tu essayer l'outil d'Excel : Consolider les données ?