Discussion :

[DEMERSE]

Bonjour / Bonsoir à vous
Je vous remercie, par avance, de bien vouloir m'aider pour une MACRO dont la fonction "Copier et Coller" des références situées dans des cellules d'une lignes définie et les affecte (par correspondance de cellules) aux cellules qui ont été sautées et laissées vide.

Des détails et des précisions claires se trouvent sur le fichier ci-joint.

Pour plus de détails, je suis à votre entière disposition pour vous fournir plus de précision.

Mes vives remerciement par avance.

[Kedar]

bonjour Demerse

voilà ce que je peux te proposer

voir votre classeur attachéAffectation.xlsm

Bonne journée

Kedar

[Philippe Tulliez]

Bravo,
Je suis impressionné par la qualité de l'explication donnée et encore plus par la réponse bien détaillée.
Voilà qui va permettre aux participants d'en apprendre plus sur le sujet.

[DEMERSE]

Bonjour Kedar, le Forum
C'est parfait, un grand merci / je suis bien reconnaissant
Bonne journée

[DEMERSE]

Bravo,
Je suis impressionné par la qualité de l'explication donnée et encore plus par la réponse bien détaillée.
Voilà qui va permettre aux participants d'en apprendre plus sur le sujet.

Un merci pour vous

Bonne journée

[Kedar]

Bonjour

le téléchargement est disponible pour tout le monde.
ce n'est pas très compliqué de télécharger le fichier et regarder ce qu'il y a dedans.

mais bon j'accepte la critique et vais donner quelques explications.

1. nommer la zone de données du tableau pour faciliter son repérage. je l'ai nommée Data.
2. utiliser l'événement CHANGE de la feuille qui se produit à chaque changement dans une cellule, et l'argument TARGET qui permet de se référer à la cellule qui change
3. utiliser la méthode INTERSECT de l'objet APPLICATION, pour vérifier que la cellule qui change se trouve bien dans le tableau Data
4. utiliser la propriété COLUMN de TARGET pour connaitre la colonne où se produit le changement
5. définir la zone de cellules précédant la celllule cible à l'aide de la syntaxe de RANGE(Cell1,Cell2)
6. parcourir toutes les cellules de cette zone à l'aide d'une boucle FOR EACH......NEXT
7. si cette cellule est vide alors y recopier la valeur de la cellule se trouvant dans la même colonne sur la ligne 29

et le code sera

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
' utiliser l'événement CHANGE de la feuille contenant le tableau
' nous avons nommé DATA la zone de données du tableau
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    ' si la cible est vide arrêter la sub.
    If Target.Value = Empty Then Exit Sub
    ' si la cible est constituée de plusieurs cellules, arrêter
    If Target.Cells.Count > 1 Then Exit Sub
    ' la cible se trouve dans le tableau qui a été renommé data (voir gestionnaire de nom)
    If Not Intersect(Target, Range("data")) Is Nothing Then
    ' définir la plage de cellules situées à la gauche de la cellule cible
        Set cellsAvant = Range(Cells(Target.Row, 3), Cells(Target.Row, Target.Column - 1))
        ' pour chaque cellule de cette plage
        For Each cel In Range(Cells(Target.Row, 3), Cells(Target.Row, Target.Column - 1))
        ' si la cellule est vide la remplir avec la valeur de la ligne 9, même colonne
            If IsEmpty(cel) Then cel.Value = Cells(29, Target.Column)
        Next
    End If
 
End Sub

est-ce plus clair ?

forumément

Kedar