Insertion de données dans un TCD

Bonjour,

Voici mon TCD, je voudrais remplir les cases vides par la valeur de la cellule du haut sous vba :

1 A B C D
2 15/01/2008 15/02/2008 15/03/2008 15/04/2008
3 1000 1000 1500 1000
4 1500 ? ? ?
5 ? 1500 2000 ?

Ici, je voudrais que la cellule A5 soit égal à 1500.

Merci pour votre aide.

Bonjour,

Si je comprend bien, les trois premières lignes sont toujours complètes et on commence à devoir remplire les cases vides à partir de la 4ème ligne.
Si oui, essaye le code suivant :

Code:

---

1 2 3 4 5 6 7 8 9

Sub TEST() Dim i%, j% For i = 4 To Cells.SpecialCells(xlCellTypeLastCell).Row For j = 1 To Cells(1, 256).End(xlToLeft).Column If Cells(i, j) = "" Then Cells(i, j) = Cells(i, j).Offset(-1, 0) Next Next End Sub

---

Si j'ai bien tout compris ça devrait le faire ;)

Ce n'est pas exactement ce que je voudrais... J'ai un TCD dans lequel j'ai des cellules vides... Je sais qu'il y a une option qui permet d'insérer une valeur par défaut pour toutes les cellules vides.

Moi, j'aimerais 'conditionner' ces cellules vide en prenant la valeur de la cellule Offset(-1, 0)...

Bonjour,

Le mieux serait de voir ton TCD pour placer la bonne macro.

Mettre une valeur unique dans un TCD pour toutes les cellules vides est possible mais faire cela cellule par cellule non.

Amicalement

Dan

Bonjour,

Existe-il un support de cours pour cela... ?

Quelque chose qui pourrait m'aider à dire, que s'il n'exite pas de données qui répondent croissement de mon abscisses et mon ordonnées, je prends une autre valeur ?

Merci.

Citation:

---

Envoyé par liseprachan

Ce n'est pas exactement ce que je voudrais... J'ai un TCD dans lequel j'ai des cellules vides... Je sais qu'il y a une option qui permet d'insérer une valeur par défaut pour toutes les cellules vides.

Moi, j'aimerais 'conditionner' ces cellules vide en prenant la valeur de la cellule Offset(-1, 0)...

---

oups...désolé j'avais loupé le fait qu'il s'agit d'un TCD