vba erronnée

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2014

• #2

Re : vba erronnée

Bonjour,

il y avait un moment

Est-ce ceci recherché ?

Code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set champ = Range("A8:N5007")
    If Not Intersect(champ, Target) Is Nothing And Target.Count = 1 Then
        champ.Interior.ColorIndex = xlNone
        col1 = champ.Column
        col2 = col1 + champ.Columns.Count - 1
        Range(Cells(Target.Row, col1), Cells(Target.Row, col2)).Interior.ColorIndex = 37
        Dim plg
        Set plg = Intersect(Rows(Target.Row), Range("c8:N5007"))
        If Target.Rows.Count = 1 And Not plg Is Nothing Then [b1].Value = plg.Value
        Application.GoTo Reference:=Worksheets(ActiveSheet.Name).Range(ActiveCell.Address), Scroll:=True
        If Not Intersect([q8:q25], Target) Is Nothing Then
            On Error Resume Next
            Target.Interior.ColorIndex = Sheets("Information").Find(Target, LookAt:=xlWhole).Interior.ColorIndex
        End If
    End If
End Sub

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 26 Février 2014

• #3

Re : vba erronnée

IL faudrait que les noms saisis dans la colonne B la cellule ou est inscrit le nom son motif soit de la meme couleur que celle de la liste située en colonne q8:q24.
MERCI

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2014

• #4

Re : vba erronnée

hou là là ce n'est pas ce que fait ce code
la largeur de coloration est bonne ?

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 26 Février 2014

• #5

Re : vba erronnée

bon alors Est-ce ça?

 

Pièces jointes

• information_v1.xls

  370 KB · Affichages: 40

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 27 Février 2014

• #6

Re : vba erronnée

une autre version

 

Pièces jointes

• information_v3.xls

  369.5 KB · Affichages: 37
• information_v3.xls

  369.5 KB · Affichages: 28
• information_v3.xls

  369.5 KB · Affichages: 37

Dernière édition: 27 Février 2014

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 27 Février 2014

• #7

Re : vba erronnée

Tout d'abord je tiens à vous remercier pour votre générosité.
Je souhaiterais que la ligne garde la même couleur et que le remplissage de la cellule de la colonne B MAINTIENT SA COULEUR correspondante à la liste de validation. En clair si je sélectionne "eutrophisation" dans la liste le remplissage de la cellule sera rouge et la ligne sélectionnée "bleue" et à aucun moment la cellule change de couleur.
Je ne sais pas si je me suis bien expliqué.
Merci infiniment.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 27 Février 2014

• #8

Re : vba erronnée

je ne sais pas si j'ai bien compris
vous voulez que la ligne prenne la couleur et puis ensuite au changement de cellule cette ligne reste dans la couleur

est-ce cela?

 

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 28 Février 2014

• #9

Re : vba erronnée

Bonjour
Aussi bien la ligne que la cellule garderont leur couleur respective.
En cliquant sur n'importe quelle cellule se trouvant dans la plage c8:n3000 cette action me permet de sélectionner la cellule pour que celle ci se rapproche de la colonne B grace au fait que j'ai figé les volets((voir feuille information (2))) sauf que cette macro fait disparaître la couleur de mes cellules de la colonne B. Mon souhait c'est de garder les couleurs des cellules saisies en fonction des couleurs de la liste.
Merci
ci joint fichier souhaité correspondant à la feuille nommée "information".

 

Pièces jointes

• exemple.xls

  634 KB · Affichages: 35
• exemple.xls

  634 KB · Affichages: 40
• exemple.xls

  634 KB · Affichages: 33

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Février 2014

• #10

Re : vba erronnée

Bonjour

Voilà, j'ai un petit souci le changement de valeur n'entraine pas automatiquement le changement de couleur, il faut revenir sur la ligne pour que le changement se fasse correctement.
je vous mets le fichier comme cela en attendant que je trouve une solution. ;-)))

 

Pièces jointes

• information_v3.xls

  370.5 KB · Affichages: 35
• information_v3.xls

  370.5 KB · Affichages: 33
• information_v3.xls

  370.5 KB · Affichages: 36

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 28 Février 2014

• #11

Re : vba erronnée

Rebonjour
Je pourrais m'accommoder avec ce fichier cependant il est indispensable que quand je clique sur une cellule de la plage le N°ordre apparait au niveau de la cellule B1 d'une part et que la cellule sélectionnée de la plage se rapproche de la colonne B au niveau de cellule figée d'autre part (voir exemple dans fichier exemple feuille information (2).
Merci pour ce que vous faites.

 

Vote positif 0 Vote négatif

gilbert_RGI

XLDnaute Barbatruc

• 28 Février 2014

• #12

Re : vba erronnée

voilà je pense que c'est la demande ;-)))

je n'ai pas trouvé pour changer la couleur au changement de la liste déroulante mais puisque vous dites que vous pouvez utiliser tel que je ne cherche pas plus

 

Pièces jointes

• information_v4.xls

  367.5 KB · Affichages: 32

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 28 Février 2014

• #13

Re : vba erronnée

Un grand merci pour votre travail précieux...Je vais opter pour cette solution.

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 28 Février 2014

• #14

Re : vba erronnée

salut

et avec 2 évènementielles (clic en A pour déplacer la ligne, changement en B pour colorer les cellules) ?

 

Pièces jointes

• Change _ Couleur.xls

  359.5 KB · Affichages: 46

Vote positif 0 Vote négatif

E

eutrophisation

XLDnaute Occasionnel

• 28 Février 2014

• #15

Re : vba erronnée

Merci pour votre collaboration cependant il reste le numéro de la ligne en B1 et la cellule sur laquelle des saisies vont se faire se rapproche de la colonne B et devrait se situer au niveau de la cellule qui a servi à figer les volets.

 

Dernière édition: 28 Février 2014

Vote positif 0 Vote négatif