Microsoft 365 VBA pour transformer une plage en tableau + Générer un tableau de synthèse

Merlin258413 à dit:

Bonjour
Je viens encore une fois solliciter votre aide.
Je désire automatiser une tâche en VBA.
Tous les mois je dois éditer l’état des FAR (factures à recevoir) et effectuer un contrôle.
Ce contrôle consiste a recalculer le montant de la FAR car il y a des bugs dans l’état généré.
Ces bugs sont transférés à ma DSI pour une correction manuelle.

Pour ce faire, je pars de mon onglet Base

• Je renomme les cellules : je pense que c’est OK
  • U1 : Montant Cde
  • V1 : Montant Rec
  • W1 : Montant Facturé
  • X1 : Montant FAR
  • Y1 : FAR recalculée
  • Z1 : Ecarts
• Je veux transformer ma sélection en tableau et nommer mon tableau Base : je ne sais faire
• Je veux mettre mes colonnes U à Z au format nombre 2 chiffres après la virgule et séparateur de milliers : je pense que c’est OK
• Je recopie vers le bas mon recalcul de FAR et d’écarts de FAR : je pense que c’est OK
• Je voudrais maintenant mettre dans mon onglet synthèse toutes les lignes en écart, pour tous les écarts supérieur ou égale à 100 en valeur absolue (bref les écarts à 3 chiffres je me fiche des écarts à 10€ ou -10€) je ne sais faire

Pouvez-vous m'aider svp ? Je vous joins mon fichier avec les codes que j'ai pu faire.
En vous remerciant
Excellente soirée

Cliquez pour agrandir...

sousou à dit:

Bonjour
Peux-tu envoyer le fichier non déjà travailler

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonsoir,
Si j'ai bien compris la demande.
Cordialement,

Cliquez pour agrandir...

Merlin258413 à dit:

Bonsoir, vous avez parfaitement compris et je vous remercie. Par contre c'est ma faute et je n'ai pas été assez précis.je veux soit une seule macro qui intègre aussi ma mise en forme soit un bouton qui lance les 2 traitements.
Concernant l'onglet de synthèse, j'aimerais voir apparaitre les champs ci-dessous

Code agence

Libelle Agence

Code secteur

Nom secteur

No projet

No tache

Type fournisseur

Fournisseur

No commande

Montant commande

Description ligne commande

Date livraison ligne

Date reception ligne

Montant Cde

Montant Rec

Montant Facturé

Montant FAR

FAR recalculée

Ecarts

Encore merci et bonne journée

Cliquez pour agrandir...

Gégé-45550 à dit:

Bonjour,
Cliquer sur le bouton dans l'onglet "Synthèse".
Cordialement,

Cliquez pour agrandir...

Merlin258413 à dit:

Bonjour c'est parfait par contre il y a moyen de conserver mes formats de cellules dans l'onglet synthèse
A savoir
Colonne L et M format date
Colonne J, et N à S format = "#,##0.00_ ;[Red]-#,##0.00 "
Colonne A et Cet E en standart ce sont des code agence et secteurs et projets
merci beaucoup

Cliquez pour agrandir...

Sub TransTab()
Dim derlig&, i&, compteur&, Ecart
Dim wksBase As Worksheet, wksSynthese As Worksheet
Dim TabS As Range

compteur = 6
Set wksBase = ThisWorkbook.Worksheets("Base")
Set wksSynthese = ThisWorkbook.Worksheets("Synthèse")
derlig = wksBase.Cells(Rows.Count, 1).End(xlUp).Row
wksSynthese.Range("A5").CurrentRegion.Clear
wksBase.Range("C1:H1,K1,N1:Q1,S1:Z1").Copy Destination:=wksSynthese.Range("A5")
For i = 2 To derlig
Ecart = Abs(wksBase.Range("Z" & i).Value)
If Ecart >= 100 Then
wksBase.Range("C" & i & ":H" & i & ",K" & i & ",N" & i & ":Q" & i & ",S" & i & ":Z" & i).Copy
With wksSynthese.Range("A" & compteur)
.PasteSpecial Paste:=xlPasteValues
.PasteSpecial Paste:=xlPasteFormats
.Application.CutCopyMode = False
End With
compteur = compteur + 1
End If
Next
Set TabS = wksBase.Range("A1:Z" & derlig)
If Not TabS.ListObject Is Nothing Then
MsgBox "La plage A1:Z" & derlig & " est déjà constituée en tableau structuré nommé : " & TabS.ListObject.DisplayName, vbOKOnly
Exit Sub
Else
TabS.Parent.ListObjects.Add(xlSrcRange, TabS, , xlYes).Name = "Base"
End If
End Sub

Cliquez pour agrandir...

Gégé-45550 à dit:

Re
dans Module1, remplacer la procédure TransTab() par celle-ci :

Si le résultat vous convient, merci de cocher ce post comme solution en cliquant sur la coche verte dans le bandeau à droite ci-contre.
Cordialement,

Cliquez pour agrandir...