Discussion :

[Peerl]

Bonjour,

Après plusieurs tentatives, je suis perdu !

Suite à a discussion : colorer une cellule si identique à une autre (dans une feuille)

https://www.developpez.net/forums/d2...ule-identique/

J'ai besoin d'un code VBA qui peut importer ces données modifier/colorer dans une autre feuille appelons-la : "Product"

Principe de cet algorithme :

on a des cellules colorées .

on doit récupérer les valeurs dans les cellules colorées.

on vérifie donc, les informations qui correspondent :

-> ID dans "Solde": colonne C
-> marque dans "Solde" : colonne D (si besoin pour le code VBA)
-> nom du produit dans "Solde" dans les colonnes numérotées : nom produit --> ligne 3 ( dans cette ligne le nom du produit par exemple : jeandenim )

Ensuite on va dans la feuille "Product", et on cherche :

-> nom du produit dans "Product" : ligne 2
-> ID dans Product : colonne B
-> marque dans Product : colonne G

Résultat : -> On importe la valeur de notre feuille "Solde" dans la cellule de la colonne (Nom du produit trouver dans "Product") qui correspond à la ligne ID & Marque trouvées.
-> On garde la couleur
Remarque : cette opération doit se faire à la fois pour toutes les cellules colorées.

une dernière question , Puis je ajouter ensuite un commentaire qui indique l'ancienne valeur et la source de la nouvelle valeur ( nom feuille ) si commentaire existant, on le complète ?
je sais qu'on peut ajouter un commentaire grâce à ce code :

Code :

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

1
2
3
4
5
6
7
Sub aaa()
    With Range("E6")
        If Not .Comment Is Nothing Then .Comment.Delete
        .AddComment "this is a comment"
        .Comment.Text "abc123" 'No need the assignment sign "=" after .Comment.Text             
    End With
End Sub

Merci pour votre patience ainsi que votre compréhension. J’espère que je me suis bien exprimée

Bonne journée

[Tylert]

Salut,

A priori ce que tu demandes est faisable.
Tu dois pouvoir tester si ton commentaire est vide ou pas ("If Not .Comment Is Nothing Then")
Si c'est le cas, tu colles la valeur du commentaire concaténée à ce que tu veux ajouter dans le commentaire.

Code :

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

1
2
3
4
 
If Not .Comment Is Nothing Then
.Comment.Text = .Comment.Text & chr(13) & "valeur de la cellule precedente" & " " & "Nom de la feuille"
end if

Je n'ai pas regardé le classeur du coup je ne savais pas comment addresser la valeur de la cellule precedente ni le nom de la feuille.

[Peerl]

Merci pour ta réponse Tylert.

Mais pour tester celà faudrait passer par l'envoie des données d'une feuille à une autre ? je n'ai toujours pas de code qui fonctionne pour ça

[Tylert]

Désolé, mais en lisant ton post, je n'ai vu qu'une seule question.
tu dis: "Je dois importer ces données modifier/colorer dans une autre feuille", après tu décris ce que tu dois faire, et la il y a l'unique question sur le commentaire
Donc en fait tu veux aussi un algorithme pour déplacer les données??

[Peerl]

Ah mince, c'est moi qui est désolée je vais corriger ça !

Donc en fait tu veux aussi un algorithme pour déplacer les données??

en effet oui !

[Tylert]

C'est pas encore assez clair pour moi.

Dis moi si ce que j'ecris ci dessous est vrai:

J'ai une feuille (Solde) dans laquelle il y a des celulles colorées.
Je dois donc parcourir cette feuille pour trouver ces celulles colorées (Q1: dans quelle colonne se trouvent les cellules colorées??)
à chaque fois que je trouve une cellule colorée, je recupere son nom, sa marque et son ID. puis je vais dans la feuille product pour chercher la ligne avec le nom / marque / ID correspondant. (Q2: Tu dis que le nom se trouve en ligne 2 et l'ID / marque dans des colonnes... je ne vois pas comment je recupère mon triplet la, il faudrait que tout soit sur la même ligne et que tu nous dises dans quelles colonnes sont les 3 valeurs)
Et ensuite je colle le nom du produit (avec la couleur) a un endroit que je n'arrive pas a déterminer (voir Q2).