Recopier dernière cellule non vide

Bonjour à tous!

J'ai un tableur avec 71 000 lignes ou dans la colonne A j'ai des noms de patients et dans la colonne B des résultats d'analyse. Malheureusement j'ai le nom du patient que dans la ligne de la première analyse et j'aimerais l'avoir dans tous pour pouvoir trier plus facilement.

Pouvez vous me dire s'il il y a un moyen de recopier la valeur (ici un chiffre) de la dernière cellule non vide d'une colonne?

Je vous laisse un exemple excel!

Merci par avance cela pourrait me fair gagner 1 journée de tri!

Cordialement

Cécile

Bonjour,

Une macro à coller dans un module standard de l'éditeur VBA (ALT + F11) :

Sub RecopiePatient()

Dim Lig As Long, DerVal As String

With Sheets("Feuil1") 'Nom a adapter
    For Lig = 4 To .Range("B" & Rows.Count).End(xlUp).Row 'Adapter 1ere ligne à traiter (ici n°4)
        If Not IsEmpty(.Range("A" & Lig)) Then
            DerVal = .Range("A" & Lig) 'Si cellule A pas vide, on enregistre le patient
        Else
            .Range("A" & Lig) = DerVal 'Si cellule A vide on recopie le dernier patient
        End If
    Next Lig
End With

End Sub

Bonjour,

Une proposition VBA.

Les données ont été mises sous forme de tableau structuré.

Cdlt.

Public Sub BlankCells()
Dim lo As ListObject, n As Long, rng As Range
    Set lo = Range("Tableau1").ListObject
    n = lo.ListRows.Count
    If n > 0 Then
        On Error Resume Next
        Set rng = lo.ListColumns(1).DataBodyRange.SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not rng Is Nothing Then
            rng.FormulaR1C1 = "=R[-1]C"
        End If
        lo.ListColumns(1).DataBodyRange.Value = _
            lo.ListColumns(1).DataBodyRange.Value
    End If
End Sub

Bonjour à tous,

tu sectionnes ta plage.

Données

Récuperer ou transformer des données

a partir d'un tableau ou d'une plage.

tu vas actionner Power query

tu selectionnes la premiere colonne, un clic droit sur patient, et tu choisis remplir (vers le bas)

Puis fermer et charger (en haut a gauche)

Crdlmt

Re,

Il y a du monde sur le sujet.

@ DjiDji59430,

Cécile est sous Mac...

Cdlt.

Merci!!

J'ai copié dans macro, ca m'a fait le premier patient et rien depuis. ma macro a l'air de s'arreter a "Withsheets.. qui apparait en marron!

bonjour

sans vba pour "boucher les trous " a saisir en G3

=INDEX(A$4:A4;MAX(SI(A$4:A4<>"";LIGNE(A$4:A4)-3;"")))

fonction matricielle ...... qui doit ramer pour 71000 lignes

cordialement

je m'en sors pas ahah!!!

je vous mets le fichier PJ anonymisé si quelqu'un a une idée miraculeuse ...

merci par avance!!

Cécile

Bonjour à tous,

c'est quoi, ces #n/a ?

une proposition :

Crdlmt