Discussion :

[chichibeignet]

Bonjour à tous,

Je me permets de solliciter votre aide pour écrire un code VBA.

J'ai un premier tableau qui est une extraction de notre ERP dont le nombre de colonnes reste identique mais le nombre de lignes peut varier.

J'ai un second tableau (synthèse) qui reprend les informations de cette extraction mais avec des colonnes supplémentaires avec des formules. (ex : CA)

Je souhaiterais automatiser le rapatriement des informations de l'extraction dans le tableau synthèse sans supprimer les formules des colonnes rajouter comme le CA.

Auriez vous une solution à me proposer?

En vous remerciant par avance de votre aide!

[Menhir]

En A2 de l'onglet Synthèse, tu tapes la formule :

Code :

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

=SI(Extraction!A2="";"";Extraction!A2)

Tu la copies en B2:E2

Tu recopies la ligne 2 un nombre de fois correspondant au nombre de lignes maximum que peut atteindre ton extraction.

[chichibeignet]

Je n'ai surement pas été assez clair dans mes propos.

J'aurais en fait surtout besoin d'un code VBA qui supprimerait les lignes du tableau "synthèse".

L'idéal serait que ma ligne des en tête plus la première ligne du tableau "synthèse" restent et que les lignes d'après soient supprimées, sachant que le nombre de lignes du tableau synthèse peut varier.

Menhir, aurais tu une solution à m'apporter?

En te remerciant par avance.

[Menhir]

En gros, ce que tu demandes, c'est qu'on fasse tes devoirs à ta place.

[chichibeignet]

Je demande simplement de l'aide par rapport à un problème que je n'arrive pas à résoudre.

Débutant sur VBA, je ne connais pas toutes les fonctions de VBA.

Je ne m'adresse pas simplement à toi mais à l'ensemble du forum, mais vu que tu m'as répondu, c'est auprès de toi que je demande de l'aide.

Après si tu ne veux pas m'aider, c'est pas bien grave, je me débrouillerai autrement.

Merci quand même.

[Menhir]

Débutant sur VBA, je ne connais pas toutes les fonctions de VBA.

Dans l'aide VBA d'Excel, regarde les membres de l'objet Range, en particulier les méthodes Clear, ClearContents, Delete, Copy et PasteSpecial ainsi que les propriétés Value et les différentes déclinaisons de Formula.
Regarde aussi l'objet Row.

Tu y trouveras ce qui est nécessaire à la résolution de ton problème.
Commence à écrire ton code et revient si tu rencontres des difficultés à le mettre au point.

[chichibeignet]

Je viens de faire un peu de bidouillage mais ca fonctionne.

Sub Suppression()

Range("A3:A1000").EntireRow.Delete


End Sub

Je pense pas que mon tableau atteindra les 1000 lignes du coup je prends de la marge avec cette formulation.

L'idéal aurait été d'aller à la dernière ligne mais j'ai des codes erreur quand j'essaie d'intégrer Selection.End(xlDown)

Je sais pas où l'intégrer dans le code en fait.

[Menhir]

Range("A3:A1000").EntireRow.Delete

Il est un peu plus simple d'écrire :

Code :

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

Rows("3:1000").Delete

Si tu veux connaitre la taille de ton table pour éviter de lancer le Delete sur trop de ligne :

Code :

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

1
2
3
Dim DerLigne as Long
DerLigne = Cells(Rows.Count,1).End(xlUp).Row
Row("3:" & DerLigne).Delete

[chichibeignet]

Je te remercie Menhir pour ton aide!