Récupérer la valeur d'une cellule colorée
Bonjour
je voudrai récupérer le poids de la personne lorsque je met en vert la couleur de fond du nom de la personne.
Exemple :
Je fais /Format /Cellule /couleur /Vert de la cellule contenant le nom "Pierre"
et je veux qu'aussitôt, son poids "68" s'affiche en bas de tableau.
Poids Age Nom
------ ------ ---------
70 30 Pascal
68 32 Pierre
80 40 Louis
Poids de la personne ==> 68
Merci de votre aide.
Bonjour et bienvenue,
et je veux qu'aussitôt, son poids "68" s'affiche en bas de tableau.
Où veux tu cela en dessous du tableau ? Dans ton exemple, tu le veux en dessous du chiffre 80 ?
Que doit-il se passer si tu ajoutes une données en dessous de la ligne Louis ?
A te relire
Dan
Le tableau est figé en nombre de lignes.
Le "68" peut donc être affiché en dessous du tableau sur la ligne suivante.
Le but de la manip est d'arriver à récupérer la valeur d'une autre colonne de la ligne sur laquelle j'ai mis une cellule en fond vert pour marquer la sélection.
merci
A+
Re,
Le but de la manip est d'arriver à récupérer la valeur d'une autre colonne de la ligne sur laquelle j'ai mis une cellule en fond vert pour marquer la sélection. Ton dernier message nécessite des explications complémentaire ou mieux ton fichier car il faut connaitre le positionnement des données de poids et couleur dans ta feuille.
A te relire
Dan
ci joint le fichier.
https://www.excel-pratique.com/~files/doc2/sR9ivjeu_d_essai.xls
re,
Utilise ce code ci-après
- Clique droite sur l'onglet feuil1
- Choisir "visualiser le code"
- mets le code ci-après dans ta feuille
- enregistre ton fichier
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
'MAcro Dan par alb - XL pratique le 10/07/09
'http://forum.excel-pratique.com/viewtopic.php?t=12316
Dim dlg As Integer
dlg = Range("C65536").End(xlUp).Row
Cancel = True
If Not Intersect(Target, Range("C2:C" & dlg)) Is Nothing Then
Application.Dialogs(xlDialogPatterns).Show
If Target.Interior.ColorIndex = 4 Then 'vert
Range("D" & dlg + 1) = Target.Offset(0, -2)
End If
End If
End SubPour l'utiliser :
- Clique droite dans une cellule de la colonne C
- Choisis la couleur verte (celle que tu as mise dans ton fichier) puis OK
Amicalement
Dan
C'est exactement ce mode de sélection par couleur qu'il me faut.
Maintenant je voudrai appliquer cette méthode sur un jeu d'essai plus concret où il y a du calcul à effectuer en fonction de cette sélection par couleur et surtout lorsqu'il y a plusieurs colonnes et tableaux dans la même feuille.
ci joint l'exercice complet pour lequel la sélection doit renvoyer un résultat et ce pour 2 produits différents.