Discussion :

[janigrel]

Bonjour,

Dans un fichier, j'ai créé une macro dans la feuille "SOURCE" qui, en cliquant sur le nom du "client" (Target.Value) où il y a un lien hypertexte, va copier coller le contenu de certaines cellules de la ligne active à des emplacements bien déterminés dans une autre feuille "FICHE".

Voici mon code :

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
Option Compare Text
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Column = 3 And Target.Hyperlinks.Count Then
        Sheets("FICHE").Range("D4").Value = Target.Value
        Sheets("FICHE").Range("D3").Value = Target.Offset(0, -1).Value
        Sheets("FICHE").Range("K4").Value = Target.Offset(0, -2).Value
        Sheets("FICHE").Range("C8").Value = Target.Offset(0, 5).Value
        Sheets("FICHE").Range("E18").Value = Target.Offset(0, 1).Value
        Sheets("FICHE").Range("C12").Value = Target.Offset(0, 2).Value
        Sheets("FICHE").Range("D12").Value = Target.Offset(0, 3).Value
        Sheets("FICHE").Range("F12").Value = Target.Offset(0, 4).Value
    End If
 
End Sub

J'aurais besoin de récupérer également sur la feuille "FICHE" certaines autres informations avec une boucle (sur chaque cellule) et des conditions (cellules non vides) :
=> dans la feuille "SOURCE", dans la plage qui démarre à Target.Offset(0, 6) jusqu'à Target.Offset(0, 30), pour chaque cellule non vide sur la droite, j'ai besoin d'aller copier coller dans la feuille "FICHE" :

1. La valeur de l'entête de colonne de chaque cellule non vide :
- en C21 de la feuille "FICHE", la valeur de la 1ère cellule de la colonne (entête de colonne) où se trouve la 1ère cellule non vide sur la droite
- sur la ligne en dessous, la valeur de l'entête de colonne où se trouve la 2ème cellule non vide
- sur la ligne en dessous, ...............................................................la 3ème.....................
- ...

2. La valeur de chaque cellule non vide :
- en E21 de la feuille "FICHE", la valeur de la 1ère cellule non vide
- sur la ligne en dessous, la valeur de la 2ème cellule non vide
- sur la ligne en dessous, ....................3ème.......................

J'ai beaucoup de difficultés à écrire ce code en intégrant la boucle et la condition.
Je vous remercie d'avance de votre précieuse aide et peut vous transmettre une maquette si besoin.
Cordialement.

[Marc-L]

Bonjour,

en début de procédure, dimensionner une variable pour la cellule : Dim Rg As Range …

Parcourir chaque cellule via une boucle : For Each Rg in Range(Target.Offset(, 6), Target.Offset(, 30)) …

La variable Rg pointant donc sur une cellule, reste à exploiter ses propriétés Column, Value …

Astuce : lire l'aide VBA intégrée de l'instruction With et, en pointant sur Target, cela allégerait le code …

____________________________________________________________________________________
Tous unis, tous Charlie

[janigrel]

Bonjour,

Malheureusement, même si j'ai bien conscience que vous, experts, n'avez pas vocation à écrire les codes pour nous, débutants, je ne suis malheureusement pas en capacité pour l'instant d'écrire cette macro seul.

Pour autant, je vous assure que je suis en train de me former seul, et que je compte bien, moi aussi, aider un jour les débutants (ce que je fais déjà mais au bureau...).
Je compte sur votre aide. Merci.