Remplir une cellule, jusqu'à cellule vide voir macro

[toune21]

Bonjour le forum,

J'adore Excel et surtout ce forum. Comme la plus part, je cherche, je copie, et des fois je ne comprends pas tout.

Le titre n'est peut être pas bien explicite.(Si ce titre ne convient pas merci de le modifier)

L'atelier reçoit des lames avec le bordereau du client, qui nomme ces lames. Nous entrons les lames dans l'onglet lames3, en partant de la dernière lignes saisie en B. Ensuite en colonnes et lignes décalée j'ai des formules.
Ensuite la macro "copie" de A..:C.. dans l'onglet résultat3.

J'ai donc trouvé cette macro sur le forum, qui m'intéresse.
J'ai essayé de l'adapter à mon fichier, pour qu'elle recopie Col A, le n° du bordereau 249 jusqu'au bordereau 250, ensuite 250 jusqu'à la dernière ligne col B.

Option Explicit
Sub Remplissage() 'macro de Job75 XL
Dim derlig As Long, tablo, i As Long
derlig = [B65536].End(xlUp).Row
If derlig = 1 Then Exit Sub
tablo = [A5].Resize(derlig) 'matrice, plus rapide
For i = 1 To derlig
If Trim(tablo(i, 1)) = "" Then
tablo(i, 1) = tablo(i - 1, 1)
End If
Next
[A5].Resize(derlig) = tablo
End Sub

Problèmes :
1 - La macro trouve col A , lg 5 249 et copie jusqu'à la prochaine cellule, A15 trouve 250, copie 250, jusque A28 alors que B25 est vide, elle copie 5 cellules de + ?

J'aurai aussi une autre question.
Ci joint un fichier.
Je vous remercie d'avance.

 

[toune21]

Re : Remplir une cellule, voir macro

Bonjour,

Je m'explique un peu mieux.
A4 : N°Bor
A5 : 249
A6 :
A7 :
A8 :
A9 :
A10 :
A11 :
A12 :
A13 :
A14 :
A15 : 250
A16 :
Donc je souhaiterais que la macro remplisse de A6 à A14, 249
et de A16 à A24, quelle mette 250
La macro qui est dans mon fichier ci-dessus le fait,
mais en plus elle note 250 jusqu'à A28, voilà ce que je ne comprends pas.
Merci de vos visites 😎 et de vos réponses😱
Bon après midi.
MM

 

[toune21]

Re : Remplir une cellule, jusqu'à cellule vide voir macro

re,
J'ai modifié la macro

.../...
tablo = [A:A].Resize(derlig) 'matrice, plus rapide
For i = 1 To derlig
If Trim(tablo(i, 1)) = "" Then
tablo(i, 1) = tablo(i - 1, 1) la macro beug ici (l'indice n'appartient pas à la sélection)
End If
Next
[A:A].Resize(derlig) = tablo

Si quelqu'un peut m'aider
Je vous remercie.
MM

 

[JNP]

Re : Remplir une cellule, jusqu'à cellule vide voir macro

Bonsoir Marie-Madelaine 🙂,
Le problème est que tu pars de A5 jusqu'à A24, mais que ton tableau lui va de 1 à 24 au lieu de 1 à 20 🙄...
A tester

Sub Remplissage()   'macro de Job75 XL
Dim derlig As Long, tablo, i As Long
derlig = [B65536].End(xlUp).Row
If derlig < 6 Then Exit Sub
tablo = [A5].Resize(derlig - 4) 'matrice, plus rapide
For i = 1 To derlig - 4
  If Trim(tablo(i, 1)) = "" Then
    tablo(i, 1) = tablo(i - 1, 1)
    End If
Next
[A5].Resize(derlig - 4) = tablo
End Sub

Bonne suite 😎

 

[toune21]

Re : Remplir une cellule, jusqu'à cellule vide voir macro

Bonsoir JNP,

Ca va vachement mieux quand on à une explication.
Alors pourquoi derlig infér à 6 ?
If derlig < 6 Then Exit Sub

Amicalement
A plus

 

[JNP]

Re : Remplir une cellule, jusqu'à cellule vide voir macro

Re 🙂,

Ca va vachement mieux quand on à une explication.
Alors pourquoi derlig infér à 6 ?
If derlig < 6 Then Exit Sub

Euh, il me semblait l'avoir dit 🙄...

Le problème est que tu pars de A5

donc si la dernière ligne est avant A6, on arrête la Sub 😛...
Bonne suite 😎

 

[toune21]

Re : Remplir une cellule, jusqu'à cellule vide voir macro

re,

D'accord, en fait j'avais lu que 😛 ta première phrase.
et c'est en regardant la macro, que je me suis posée la question.
Merci beaucoup
Je vais continuer, sur mon fichier, je voudrais l'améliorer un peu.
Userform pour remplir : les lames , peut être trop compliqué. 😕

Bonne soirée.
MM