Copier cellule parent vers cellule enfant

Bonjour, la communauté EXCEL-PRATIQUE.

Je cherche une macro me permettant de copier les valeurs d'une cellule Parent vers ces sous-cellule enfants.

Cordialement

et Merci pour votre réponse.

bonjour

j'ai pas compris

joins un exemple de 3 colonnes et 5 lignes et le résultat attendu (saisi au clavier pour l'exemple)

à te relire

amitiés

jmd a écrit :

bonjour

j'ai pas compris

joins un exemple de 3 colonnes et 5 lignes et le résultat attendu (saisi au clavier pour l'exemple)

à te relire

amitiés

Salut jmd

les cellules de fond jaune et gras et rouge sont les cellules que je souhaite copier a chaque fois que les cellules en dessous de lui sont vides

Cordialement;

Merci

Voir Fichier Joint

re

avec Power Query (à télécharger, il est inclus dans les Excel récents)

en 4 clics

maintenant les mises à jour des données se font d'un coup avec "actualiser"

mais dis-nous à quoi ça sert ?

amitiés

jmd a écrit :

re

avec Power Query (à télécharger, il est inclus dans les Excel récents)

en 4 clics

maintenant les mises à jour des données se font d'un coup avec "actualiser"

mais dis-nous à quoi ça sert ?

amitiés

Merci jmd

Juste utiliser cette macro dans mes fichiers ce qui me permettrait de gagner du temps pour pouvoir faire des analyses

Cordialement

re

oui, il est évident qu'on utilise Excel et ses capacités d'automatisation pour gagner du temps par rapport au crayon

mais à quoi sert concrètement ? faire des TCD ? alimenter un autre logiciel en données ?

amitiés

jmd a écrit :

re

oui, il est évident qu'on utilise Excel et ses capacités d'automatisation pour gagner du temps par rapport au crayon

mais à quoi sert concrètement ? faire des TCD ? alimenter un autre logiciel en données ?

amitiés

Salut jmd,

j'extrait des rapports d'un logiciel en Excel afin de pouvoir faire des analyses de données et souvent ces rapport sont présentés sous cette forme de plusieurs pages; c'est cela la macro m'est nécessaire pour ce travail.

cordialement et merci,

Bonjour,

Une proposition pour le principe.

Cdlt.

Public Sub EmptyCells()
Dim lastRow As Long, Rng As Range
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        On Error Resume Next
        Set Rng = .Cells(1).Resize(lastRow).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not Rng Is Nothing Then
            Rng.Formula = "=R[-1]C"
            Rng.Font.ColorIndex = 16
        End If
    End With
End Sub

Jean-Eric a écrit :

Bonjour,

Une proposition pour le principe.

Cdlt.

marxbrou.xlsm

Public Sub EmptyCells()
Dim lastRow As Long, Rng As Range
    With ActiveSheet
        lastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
        On Error Resume Next
        Set Rng = .Cells(1).Resize(lastRow).SpecialCells(xlCellTypeBlanks)
        On Error GoTo 0
        If Not Rng Is Nothing Then
            Rng.Formula = "=R[-1]C"
            Rng.Font.ColorIndex = 16
        End If
    End With
End Sub

Merci infiniment Jean-Eric.