remplire cellules vides d'une colonne

  • Initiateur de la discussion Sandrine
  • Date de début
S

Sandrine

Guest


Hello! serait-il possible de m'expliquer comment remplire des cellules vides d'une colonne excel à l'aide d'une macro ou d'une fonction. Je desire que à chaque cellule vide ou zone de cellule vide dans une colonne, la valeur (texte) de la précédente cellule pleine vienne s'inscrire dans la (les) cases vide (s).

Merci d'avance! ...;)
 

porcinet82

XLDnaute Barbatruc
Salut Sandrine,

Un code de ce genre devrait faire l'affaire (j'ai considérer que tes données étaient en colonne A et que ta boucle allait seulement jusqu'à 20) donc a toi d'adapter :
Code:
Sub t()
Dim i As Integer

For i = 1 To 20
    If Cells(i, 1).Value = '' Then
        Cells(i, 1).Value = Cells(i - 1, 1).Value
    End If
Next i
End Sub

Si tu as un soucis ou des questions, n'hesite pas.

@+
 
A

AV

Guest
Salut,

Pour éviter de boucler, une soluce parmi d'autres (à adapter):

Sub zzz()
With Range('A1', [A65536].End(3))
.SpecialCells(xlCellTypeBlanks).Formula = '=R[-1]C'
.Value = .Value
End With
End Sub

AV [MVP Excel]
 

Blunet

XLDnaute Occasionnel
Et si la 1ère cellule était vide ??

Sub RemplirVide()
Dim i, j, k As Integer
Dim NbLig, NbCol As Integer

'Initialisation
NbLig = Range('A1', Range('A65536').End(xlUp)).Count
NbCol = 2
'Traitement
For i = 1 To NbLig
For j = 1 To NbCol
'Les 1ères cellules sur la 1ère ligne ne doivent pas être vides
If Cells(1, j) = '' Then
MsgBox 'une cellule de la 1ère ligne est vide !!', vbCritical, 'Saisie Initiale Vide !'
Exit Sub
End If
'Traitement
If Cells(i + 1, j).Value = '' Then
Cells(i + 1, j).Value = Cells(i, j).Value
End If
Next j
Next i
End Sub
 
S

sandrine

Guest
Hello!

Merci pour ta reponse de l'autre jour...;)

Ta marcro marche bien.

Je cherche a appliquer cette macro dans la zone de la (ou des)colonne (s) que j'ai sélectionnées. Aurais tu la solution?

Merci d'avance :kiss:
 

Discussions similaires

Statistiques des forums

Discussions
311 720
Messages
2 081 924
Membres
101 841
dernier inscrit
ferid87