Compléter les cellules vides d'un tableau (VBA)

[FAB80170]

Bonsoir,

je souhaiterais compléter les cellules vides d'une plage de données (en VBA) > (voir fichier pour exemple)

Si cellule vide, prendre la valeur de la cellule de gauche, ainsi si la macro respecte l'ordre des colonnes,
la cellule vide trouvera toujours une valeur sur sa gauche dans la plage sélectionnée.

??? eum, eum ...

Par avance merci.

 

[Hieu]

Salut,

Une solution :

Sub mlkj()
For j = 1 To 22
    For i = 0 To 59
        If IsEmpty(Range("a1").Offset(i, j)) Then Range("a1").Offset(i, j) = Range("a1").Offset(i, j - 1)
    Next i
Next j
End Sub

 

[FAB80170]

Salut,

Une solution :

Sub mlkj()
For j = 1 To 22
    For i = 0 To 59
        If IsEmpty(Range("a1").Offset(i, j)) Then Range("a1").Offset(i, j) = Range("a1").Offset(i, j - 1)
    Next i
Next j
End Sub

 

[FAB80170]

Un grand Merci,

cette solution en valeur absolue me convient parfaitement.

Encore merci !!!

 

[FAB80170]

Bonsoir à tous

Une autre solution

Sub a()
Dim i As Long
On Error Resume Next
For i = 1 To 59
Rows(i).SpecialCells(xlCellTypeBlanks) = "=RC[-1]"
Next
With ActiveSheet.UsedRange: .Value = .Value: End With
End Sub

 

[FAB80170]

Merci pour ton aide !

Bonne soirée.

 

[FAB80170]

Salut,

Une solution :

Sub mlkj()
For j = 1 To 22
    For i = 0 To 59
        If IsEmpty(Range("a1").Offset(i, j)) Then Range("a1").Offset(i, j) = Range("a1").Offset(i, j - 1)
    Next i
Next j
End Sub

 

[FAB80170]

Pardonne mon dérangement,

j'ai modifier le nombre de lignes et de colonnes j et i,
la macro s'exécute, mais rien ne change ...
Puis t'envoyer mon fichier source ?

 

[FAB80170]

Bonjour à tous

FAB80170
Et avec la macro a, rien ne change, non plus ?

 

[Lone-wolf]

Bonjour à tous,

d'après l'exemple de Hieu, à adapter.

Option Explicit
Sub Test()
Dim lig As Long, j As Long, i As Long

With Feuil1
lig = .Range("a" & Rows.Count).End(xlUp).Row
For j = 1 To 22
    For i = 2 To lig
        If IsEmpty(.Range("a" & i).Offset(0, j)) Then  _
.Range("a" & i).Offset(0, j) = .Range("a" & i).Offset(0, j - 1)
    Next i
Next j
End With
End Sub

 

[Lone-wolf]

Bonjour J(enais) M(arre)

Oui, mais faudrais ajouter le nombre de colonnes (22).

Option Explicit
Sub a()
Dim lig As Long, i As Long, col As Long
Application.ScreenUpdating = False
On Error Resume Next
With Feuil1
lig = .Cells(Rows.Count, 1).End(xlUp).Row
For col = 2 To 22
For i = 2 To lig
.Rows(i).SpecialCells(xlCellTypeBlanks) = "=RC[-1]"
Next i
Next col
End With
With ActiveSheet.UsedRange: .Value = .Value: End With
End Sub

 

[FAB80170]

Bonjour à tous,
la macro proposé par Hieu me convenait d'avantage que celle de Staple1600 car elle renvoyé des valeur absolues et non des calculs.
Je vous envoi une partie de mon fichier source; avec une plage modifiée et cette fois-ci un décalage à gauche de 3 cellules;
à savoir, pour exemple, si 1P_S1HT (N37), je dois aller chercher 1p_BENCHHT (K37) > renvoi la cellule située à gauche avec un décalage 3 ... soit la valeur de 66.33 €
Est-ce que ces explications sont compréhensibles ?

Par avance MERCI.

 

[pierrejean]

Bonjour à tous

Arf pas vu la modif d'enoncé !!!!

A tester

Sub remplir()
tablo = Range("A1").CurrentRegion
For n = LBound(tablo, 1) To UBound(tablo, 1)
  For m = LBound(tablo, 2) + 1 To UBound(tablo, 2)
     If tablo(n, m) = "" Then
        tablo(n, m) = tablo(n, m - 1)
     End If
  Next
Next
Range("A1").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub

 

[Lone-wolf]

Re JM

Ta macro ecrit dans toutes les colonnes du classeur alors qu'elle devrais s'arrêter à la 22ème.

 

[Lone-wolf]

Bonjour pierrejean

Et oui, les fameux Tableaux. Sans eux, ça ne servirait à rien d'aller à l'école.
Sinon à l'école on devrait chanter: " On écrit sur les murs calculs et graffitis"