Remplir des cellules vides

[Borismy]

Bonsoir à tous,

je cherche à remplir des cellules vides par les données qui précède, et cela sur 2 colonnes, dans un tableau de taille variable.
Plus d'explications dans le fichier joint.

Merci d'avance.
Boris

 

[Borismy]

Re : Remplir des cellules vides

Je suis impardonnable, car je n'ai pas fait de recherche sur le forum avant de poster, je l'ai fait après.

la réponse est là https://www.excel-downloads.com/thr...e-meme-contenu-que-la-cellule-du-haut.108348/

Méa culpa.

Boris

 

[ROGER2327]

Re : Remplir des cellules vides

Bonjour Borismy

Je suis impardonnable, car je n'ai pas fait de recherche sur le forum avant de poster, je l'ai fait après.

la réponse est là https://www.excel-downloads.com/thr...e-meme-contenu-que-la-cellule-du-haut.108348/

Méa culpa.

Boris

Pas grave.
Voici une autre solution adaptée à votre cas :

[COLOR="DarkSlateGray"][B]Sub toto()
Dim oPlg, odat(), i&
   Set oPlg = [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4)
   If Not oPlg Is Nothing Then
      If oPlg.Rows.Count > 2 Then
         odat = oPlg.Value
         For i = 3 To UBound(odat, 1)
            If odat(i, 1) = "" Then odat(i, 1) = odat(i - 1, 1)
            If odat(i, 2) = "" Then odat(i, 2) = odat(i - 1, 2)
         Next
         [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4) = odat
      End If
   End If
End Sub[/B][/COLOR]

L'opération inverse est réalisée par :

[COLOR="DarkSlateGray"][B]Sub tata()
Dim oPlg, odat(), i&
   Set oPlg = [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4)
   If Not oPlg Is Nothing Then
      If oPlg.Rows.Count > 2 Then
         odat = oPlg.Value
         For i = UBound(odat, 1) To 3 Step -1
            If odat(i, 1) = odat(i - 1, 1) Then odat(i, 1) = ""
            If odat(i, 2) = odat(i - 1, 2) Then odat(i, 2) = ""
         Next
         [A1].Resize(Cells(Rows.Count, 4).End(xlUp).Row, 4) = odat
      End If
   End If
End Sub[/B][/COLOR]

ROGER2327
#3970

Vendredi 13 Tatane 137 (Saint Dada, prophète, SQ)
8 Thermidor An CCXVIII
2010-W30-1T21:01:49Z

 

[Borismy]

Re : Remplir des cellules vides

Bonjour Roger,

merci de la réponse je vais l'adapter à mon besoin.

Boris