macro qui ne fonctionne pas jusqu'au bout

[ninanani]

Bonjour a tous.

J'ai un petit probleme avec une macro qui ne fonctionne qu'a moitie.

Je vous joint un fichier avec des annotations pour que ce soit bien clair.

En esperant que vous trouverez la solution, merci d'avance.

 

[ninanani]

Re : macro qui ne fonctionne pas jusqu'au bout

Re,

Personne n'a trouve ce qui cloche??

 

[Gael]

Re : macro qui ne fonctionne pas jusqu'au bout

Bonjour Ninanani,

Le problème vient de la définition de la variable "Largeurbase" pour laquelle tu utilises la ligne 1 dont les 3 dernières colonnes sont vides.

"Balance" est en colonne BK, la cellule BL est vide puisque fusionnée avec BK.

BL et BM sont vides.

Tu peux donc soit mettre des titres en BL et BM, soit utiliser la ligne 3 en modifiant l'instruction:

LargeurBase = Sheets("paiement").Range("IV3").End(xlToLeft).Column

@+

Gael

 

[Gael]

Re : macro qui ne fonctionne pas jusqu'au bout

Re,

Quelques remarques supplémentaires:

Les formules en colonne BL me semblent décalées d'une ligne. en ligne 3 par exemple on a

=(BJ2+BH2+BF2)-BD2

Lors de l'ajout d'une ligne, tu ne recopies ni les formats, ni les formules.😕

Dans la procédure "Save", tu peux remplacer la plupart des instructions de recopie de valeurs dans les cellules par une boucle:

For i = 19 To 35
    Sheets("paiement").Cells(der_lig, i - 15).Value = .Range("A" & i).Value
    Sheets("paiement").Cells(der_lig, i + 2).Value = .Range("C" & i).Value
  Next i

@+

Gael

 

[nolich]

Re : macro qui ne fonctionne pas jusqu'au bout

Bonjour ninanani et Gael, bonjour à toutes et à tous 🙂

Gael, je pense que cela est le fait des essais que ninanani a dû effectuer, et dans lesquelles les 3 dernières colonnes, dont BL qui est la seule à contenir un calcul, n'étaient pas effacées.

@+

 

[ninanani]

Re : macro qui ne fonctionne pas jusqu'au bout

Re Gael, Nolich

Merci pour votre aide.
J'ai en effet mis un titre sur mes collones qui etaient vides et tout fonctionne parfaitement.

Merci encore a vous, et merci au forum