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

H

Hieu

XLDnaute Impliqué

• 14 Octobre 2016

• #2

Salut,

Une solution :

VB:

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

 

Pièces jointes

• remplir cellules vides_v0.xlsm

  18.8 KB · Affichages: 42

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #3

Hieu à dit:

Salut,

Une solution :

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #4

Un grand Merci,

cette solution en valeur absolue me convient parfaitement.

Encore merci !!!

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #5

Staple1600 à dit:

Bonsoir à tous

Une autre solution

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #6

Merci pour ton aide !

Bonne soirée.

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #7

Hieu à dit:

Salut,

Une solution :

VB:

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 14 Octobre 2016

• #8

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 ?

 

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 15 Octobre 2016

• #9

Staple1600 à dit:

Bonjour à tous

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

Cliquez pour agrandir...

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Octobre 2016

• #10

Bonjour à tous,

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

VB:

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

 

Dernière édition: 15 Octobre 2016

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Octobre 2016

• #11

Bonjour J(enais) M(arre) 😀 😀 😀

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

VB:

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

 

Dernière édition: 15 Octobre 2016

Vote positif 0 Vote négatif

F

FAB80170

Guest

• 15 Octobre 2016

• #12

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.

 

Pièces jointes

• remplir cellules vides source.xlsx

  2.8 MB · Affichages: 29

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 15 Octobre 2016

• #13

Bonjour à tous

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

A tester

Code:

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Octobre 2016

• #14

Re JM

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 15 Octobre 2016

• #15

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" 😉 😀

 

Dernière édition: 15 Octobre 2016

Vote positif 0 Vote négatif