Microsoft 365 Répartir valeur sur lignes vides

antoine1251 · 28 Octobre 2020

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 · 29 Octobre 2020

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

sylvanu · 29 Octobre 2020

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 · 29 Octobre 2020

Bonjour antoine1251, sylvanu, le forum,

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

VB:

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 · 29 Octobre 2020

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

antoine1251 · 29 Octobre 2020

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 !

Microsoft 365 Répartir valeur sur lignes vides

antoine1251

XLDnaute Nouveau

Pièces jointes

antoine1251

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

job75

XLDnaute Barbatruc

Pièces jointes

job75

XLDnaute Barbatruc

antoine1251

XLDnaute Nouveau

Discussions similaires