Discussion :

[diego007]

Bonjour

Un logiciel me fourni des exports du type présenté en exemple simple en pièce jointe (biensûr dans la vraie vie il y a des milliers de lignes)

La colonne matricule ne contient qu'une seule occurrence ce qui est bien gênant après lorsqu'on veux utiliser des filtres par exemple.

Je crois savoir qu'il existe une petite fonction discrète qui permet de remplir les vides automatiquement.

Quelqu'un saurait-il qu'elle est cette fonction?

Merci d'avance

[fraflt69]

Bonjour
Je ne suis pas fort en fonctions (certainement avec une fonction si Cellule précédente non vide répliquer valeur de la cellule précédente SI(A3="";A2;A3) mais je n'y arrive pas; quelqu'un te répondra qu'il suffit d'étendre les cellules (nul besoin de fonctions)). Je me suis écrit une macro la voici

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub EtendreColA()
' le nombre de ligne s'obtient à la colonne 2
sEndLine = Cells(Rows.Count, 2).End(xlUp).Row
sStart = "A2"
sEnd = "A"
ligne = 2
While ligne < sEndLine
ligne = ligne + 1
While Cells(ligne, 1) = "" And ligne < sEndLine
  ligne = ligne + 1
Wend
sEnd = sEnd + CStr(ligne - 1)
    Range(sStart & ":" & sStart).Select
    Selection.AutoFill Destination:=Range(sStart & ":" & sEnd), Type:=xlFillDefault
sStart = "A" + CStr(CInt(Mid(sEnd, 2)) + 1)
sEnd = "A"
Wend
End Sub

[taquatzieu]

Bonjour,

Je crois savoir qu'il existe une petite fonction discrète qui permet de remplir les vides automatiquement.

Tu as raison la nature a horreur du vide !
Je te propose ce code. attention il nécessite de mettre une balise "fin" à la dernière ligne de ta colonne.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub recopie_ligne_bo()
'
' Macro1 Macro
'
 
    Do While ActiveCell <> "fin"
 
    If ActiveCell = "" Then Selection.FillDown
    ActiveCell.Offset(1, 0).Select
 
    Loop
    If ActiveCell.Value = "fin" Then Exit Sub
End Sub

Cdt