Discussion :

[liseprachan]

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.

[fring]

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 :

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

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

[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)...

[Nad-Dan]

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

[liseprachan]

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.

[fring]

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