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.
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.
Dernière édition: