Remplissage automatique Excel plusieurs fois
e
Bonjour,
La question a peut-être déjà été posé mais je ne trouve pas la réponse,
J'ai un fichier en xml, je l'ai forcé pour que cela s'ouvre en Excel, cela me fait un tableau,
J'ai pleins d'informations dans le fichier Excel
Dans ce tableau il y a plusieurs colonnes mais qui sont vide car c'est le code du fichier xml qui en a décidé ainsi,
La question est : j'ai envie de faire un remplissage automatique de la cellule A1 jusqu'à la cellule A25 par exemple (A2 étant l'information à copier), puisque dans la cellule A26 il y a une nouvelle donnée, dont j'ai envie que ça soit les informations de la cellule A26 soient remplis jusqu'à A37, puisque j'ai une information à la cellule A38 etc etc
Et j'ai 6 colonnes à faire la même manip, et presque 260 k lignes
Il y a 20374 informations par colonne..
Il y a t-il une solution ?
Si vous voulez, je peux vous donner deux colonnes pour que vous pouvez prévisualiser
Juste le site est différent
Merci d'avance de votre aide
La question a peut-être déjà été posé mais je ne trouve pas la réponse,
J'ai un fichier en xml, je l'ai forcé pour que cela s'ouvre en Excel, cela me fait un tableau,
J'ai pleins d'informations dans le fichier Excel
Dans ce tableau il y a plusieurs colonnes mais qui sont vide car c'est le code du fichier xml qui en a décidé ainsi,
La question est : j'ai envie de faire un remplissage automatique de la cellule A1 jusqu'à la cellule A25 par exemple (A2 étant l'information à copier), puisque dans la cellule A26 il y a une nouvelle donnée, dont j'ai envie que ça soit les informations de la cellule A26 soient remplis jusqu'à A37, puisque j'ai une information à la cellule A38 etc etc
Et j'ai 6 colonnes à faire la même manip, et presque 260 k lignes
Il y a 20374 informations par colonne..
Il y a t-il une solution ?
Si vous voulez, je peux vous donner deux colonnes pour que vous pouvez prévisualiser
Juste le site est différent
Merci d'avance de votre aide
260 000 Lignes ? Pfiou ca cogne !
Comment sait-on lorsque on arrive à la derniere ? puis si on est sensé coller la valeurs précédente jusqu'a changement de val.
A tester et vérifier que le bon onglet est selectionné
Sub completer_vide()
Dim col As Integer
Application.ScreenUpdating = False
col = InputBox("Saisissez le numéro de de colonne à traiter")
Dim memoire As String
memoire = Cells(2, col)
For n = 2 To 270000
If Cells(n, col) = "" Then
Cells(n, col) = memoire
Else
If Cells(n, col) <> memoire Then memoire = Cells(n, col)
End If
Next n
Application.ScreenUpdating = True
End Sub