Bonjour,
Je suis nouvelle sur ce forum et Je viens vers vous car je suis novice sur VBA et j'ai un problème sur un fichier :
J'ai un fichier excel de 6 colonnes et 4151 lignes, avec des dates et des taux journaliers qui y correspondent.
les taux journaliers ne sont pas diffusés les jours fériés et les week-ends.
Les lignes manquantes contiennent la date dans la première colonne mais sur les autres j'ai "ND".
Il faut donc générer es lignes des jours manquants. Les taux ajoutés seront une moyenne des taux qui les encadrent.
J'ai essayé de faire une condition if colonne par colonne ( il faut le faire sur 5 colonnes en meme temps) mais je n'y arrive pas
Est ce que vous pourriez m'aider?
voici le code que j'ai écris, je suis sure qu'il est plein d'erreurs:
merci d'avance pour votre aide!!!
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12 Sub Generer_Lignes_Manquantes() Dim q As Integer, k As Integer For k = 2 To 4151 q = Range("B" & k).Value If q = 0 Then q = Application.Average(Range("B" & k - 1), Range("B" & k + 1)) Else End If Next k End Sub
Partager