Discussion :

[Oliv'83]

Bonjour à tous,

Je n'ai aucune connaissance particulière de programmation sous Excel (Ça c'est dit).

Mon programme de gestion me permet de générer un tableau Excel résumant l'ensemble des factures mensuelles. Cependant, la présentation de ce fichier ne me permet de l'exploiter comme je le souhaiterais. Pour chaque facture il me met des informations génériques (N°, Date, N° client,...) et me détaille le contenu ligne par ligne (exemple en fichier joint). Or pour pouvoir exploiter correctement mon tableau j'ai besoin que sur chaque ligne apparaissent les informations génériques (afin de pouvoir faire des tris).

Ma question est simple : est ce qu'on peut automatiser ce remplissage car pour le mois d'avril mon tableau fait presque 2800 lignes et celui du mois de Juillet ou Aout devrait être 10 fois plus grand...

Quelqu'un peut il me donner une piste à suivre.

D'avance merci

Oliv'

[Djohn92]

Oui, on peut

Dans une celulle A2 quelconque : saisir

Code :

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

=A1

Copier A2

Sélectionne ta plage
F5 => Cellules
Choisir les celulles vides
Coller



Avec ton enregistreur de macro préféré, tu peux "Vbatisé" ce code.



Pour ton cas, je te conseille de faire gaffe avec tes lignes vides par contre. Sois tu les remplies temporairement avec n'importe quo, (des dièzes ?) Soit tu trouves autre chose

[Djohn92]

En VBA, tu sélectionnes tes celulles vide avec "specialcell"

genre

set aaa as range

set aaa = activesheet.range("A1:E2000").specialcells(lemotclefquidesignelesvides) 'cf enrgistreur de macro

aaa.formulaR1C1 = "=R[-1]C"

[Philippe Tulliez]

Bonjour,
Explication dans le document PDF attaché.

En vba (Attention l'action est faite sur la feuille active et la plage commence en cellule A1)

Code :

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

1
2
3
4
5
6
Sub FillEmptyCells()
 With ActiveSheet.Range("A1").CurrentRegion
 .SpecialCells(xlCellTypeBlanks).FormulaR1C1 = "=R[-1]C"
 .Value = .Value
 End With
End Sub

[Oliv'83]

Merci à tous les deux pour votre aide.

Je regarde tout ça et je reviens vers vous.

Oliv'