Discussion :

[jojochgt]

Bonjour tout le monde,
Après une journée de recherche (un vendredi en plus) je suis parvenu à créer seulement la moitié de mon outil excel avec macro.

Contexte: c'est un outil développé pour une entreprise logistique. Un receptionneur utilise ce fichier pour valider la marchandise recu. et donc a chaque nouvelle livraison, il faut un nouveau tableau.

Je vous montre:


En appuyant sur le bouton (Commandbutton1), grace à l'enregistreur de macro je copie le tableau conformité / résultat avec la date et la tableau inférieur.
L'ensemble est ensuite collé deux cases à droite. Cela permet ainsi d'avoir un visuel sur l'ensemble des reception d'un meme fournisseur (un onglet par fournisseur)

Le problème rencontré est que qu'avec mon codage actuel :

Private Sub CommandButton1_Click()
Range("H9:J40").Select
Selection.Copy
Columns("K:K").ColumnWidth = 9.57
Range("L9").Select
ActiveSheet.Paste
Columns("L:L").ColumnWidth = 10
Columns("M:M").ColumnWidth = 10.14
Columns("N:N").ColumnWidth = 37.29
Range("O28").Select
End Sub

Je ne peux créer qu'un seul tableau. Les prochains se superposent logiquement au même endroit, et en plus si le premier tableau est rempli, le second le sera également alors que je souhaite un tableau vierge :



Voilà pour mon premier post, je vous remercie d'avance pour votre lecture et vos solutions.
La VBA c'est sympa mais seulement quand on le maitrise

[XLRATOR]

Bonsoir,
D'aprés votre tableau le code qui suit pourrait vous aider.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
    Dim rng As Range
    Application.ScreenUpdating = False
    Range("H11:J40").Copy
    Range("XFD11").End(xlToLeft).Offset(0, 2).Select
    ActiveSheet.Paste
    Application.CutCopyMode = xlCopy
    For Each rng In Selection.Cells
    rng.EntireColumn.ColumnWidth = 15 'Ceci est juste un exemple
    Next
    Range("XFD11").End(xlToLeft).EntireColumn.ColumnWidth = 30 'Ceci est juste un exemple
    Range("XFD11").End(xlToLeft).Select

NB: Ce code copie le tout premier tableau de la plage H11:J40 et le colle à deux colonnes du tout dernier tableau.

Cordialement
Karim

[jojochgt]

Merci XLRATOR, ça fonctionne parfaitement. J'ai juste modifié la formule pour effacer le contenu précédent.

J'essaye également d'améliorer l'outil avec un menu qui redirigir sur les différents onglets.

Cordialement.