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.

 

[Staple1600]

Re à tous

De quelle macro tu parles?
Moi je n'utilise que celle de pierrejean

 

[FAB80170]

Merci Stample1600 pour ta forte implication !!!
Non selon les feuilles de mon classeur, parfois je dois décaler de 1 cellule à gauche, et parfois de 3.
Je ne me permettrais pas de faire tourner en "bourique" les personnes qui prennent de leur temps pour aider les autres.
Encore Merci.

 

[pierrejean]

Re

Code modifié

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

 

[Lone-wolf]

SACRÉ TRICHEUR!!

TU AS SUPPRIMER TON MESSAGE!!

 

[Staple1600]

Re

Précisions pour FAB80170
Tu as bien perçu que j'étais en mode humour dans mes messages éphémères , j'espère ?

Et comme je le disais, je n'utilise jamais les macros de ce Staple que je ne connais pas.

Moi j'utilise dans le cas présent la dernière macro de pierrejean que je salue au passage

 

[FAB80170]

Re

Code modifié

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

 

[FAB80170]

Bonjour Pierre Jean (le sympathique "Acharné") et (pardonne moi si j'ai écorché ton pseudo) Staple1600 (le "Matinal"),
2 questions aux pros;
1 - Si je souhaite arrêter la macro à la colonne EA (1P_S40HT), car mes données s'arrêtent actuellement à la semaine 40,
comment puis-je modifier cette dernière ?
2 - Tout simplement, comment renomme t'on une macro ?

Encore un Grand MERCI aux à vous ! et bon appétit !!!

 

[pierrejean]

Re
changer:

For m = LBound(tablo, 2) +3 To UBound(tablo, 2)
en
For m = LBound(tablo, 2) +3 To 131 '(N° de la colonne EA)

Pour renommer il suffit d'effacer le nom de la macro et le remplacer par celui souhaité

 

[FAB80170]

Merci Pierre Jean,
encore MERCI, pour renommer la (les) macros, je ne trouve pas l'emplacement où je peux effacer le nom ...