Microsoft 365 Répartir valeur sur lignes vides

[antoine1251]

Bonjour à tous,

je remercie par avance ceux qui prendront le temps de se pencher sur mon problème, qui je l'espère n'est pas trop compliqué.

Je vous joins mon fichier pour exemple.

C'est une liste de colisage, le nombre de colis en en G. Mon besoin est de détecter les lignes sans colisage, et de répartir sur ces lignes les valeurs en I et en J, présentes dans la ligne supérieure. Le résultat est visible dans la feuille "attendu". Quelqu'un saurait-il me dire comment faire ou si je ne suis pas assez clair ?

Merci beaucoup !

 

[antoine1251]

Bonjour 🙂, auriez-vous une idée svp ? Merci !

 

[sylvanu]

Bonjour Antoine,
Si personne ne répond, peut être est ce que personne n'a compris votre problématique. 🙂
J'en veux pour preuve que 44 personnes ont lu votre message sans y répondre.

En regardant votre feuil1, qui est je pense la feuille "attendu", je n'ai rien compris.

D' où viennent ces "1.74" ?
Et ces "1.5" d'où sortent ils ?
Pourquoi le "8.7" a disparu ?
Quelles sont les règles ?
Essayez de clarifier les règles de modification, et de donner un attendu plus clair pour qu'on comprenne votre problème. 😉

 

[job75]

Bonjour antoine1251, sylvanu, le forum,

Voyez le fichier joint et cette macro dans le code de la feuille "Résultat" :

Private Sub Worksheet_Activate()
Dim r As Range, n As Byte, v As Variant
Application.ScreenUpdating = False
On Error Resume Next 'si aucune SpecialCell
Cells.Delete 'RAZ
Sheets("PL").[A:K].Copy [A1]
Set r = [G:G].SpecialCells(xlCellTypeBlanks)
For Each r In r.Areas 'plages vides
    If r.Row > 1 Then
        For n = 3 To 4
            v = r(0, n) 'colonne I puis J
            If IsNumeric(CStr(v)) Then r(0, n).Resize(r.Count + 1) = v / (r.Count + 1)
        Next n
    End If
Next r
End Sub

Elle se déclenche quand on active la feuille.

A+

 

[job75]

J'ai testé en recopiant la plage A1:K23 sur 23 000 lignes : la macro s'exécute en 2 secondes.

 

[antoine1251]

Bonjour à tous,

@sylvanu : Je m'excuse que ma demande n'ait pas été présentée de façon assez claire 🙁.

@job75, il semble que votre macro soit juste parfaite, merci beaucoup ! Je regarderai dans le détail ce que vous avez fait dès que j'ai un petit moment, toutefois déjà merci beaucoup de votre temps !