croix quand clique sur une cellule

Hervé

XLDnaute Barbatruc

• 23 Novembre 2005

• #16

Bonjour tout le monde

ma contribution, j'ai pas géré le cas des lignes 59:60.

salut
[file name=RMAssessmentessai.zip size=30615]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RMAssessmentessai.zip[/file]

 

Pièces jointes

• RMAssessmentessai.zip

  29.9 KB · Affichages: 21

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Novembre 2005

• #17

re tout le monde

Plus court :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Columns('D:G')) Is Nothing Then
        Range(Cells(Target.Row, 4), Cells(Target.Row, 8)) = ''
        Target = IIf(Target.Text = 'X', '', 'X')
End If
End Sub

Cliquez pour agrandir...

salut

 

Vote positif 0 Vote négatif

E

elo6

Guest

• 23 Novembre 2005

• #18

:woohoo:Vous êtes tous géniaux! Je vais encore un peu bidouillé le fichier pour qu'il réponde exactement à ce que je recherche. Vous tiens au courant si soucis!!!:silly:

B) :kiss:

 

Vote positif 0 Vote négatif

E

elo6

Guest

• 23 Novembre 2005

• #19

Est-ce que je peux modifier Columns('D:G') par une selection nommée ZoneDonnees? Si oui, quel devrait être le code à modifier?

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 23 Novembre 2005

• #20

re bonjour,


quand tu as créé ta zone dans le code remplace la ligne :

If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Columns('D:G')) Is Nothing Then

par :
If Target.Interior.ColorIndex = 35 And Not Application.Intersect(Target, Range('ZoneDonnees')) Is Nothing Then

j'en desté a priori cela fonctionne.

Jocelyn

et j'en profite pour passé le bonjour et un grand bravo a Hervé

Message édité par: Jocelyn, à: 23/11/2005 15:53

 

Vote positif 0 Vote négatif

E

elo6

Guest

• 23 Novembre 2005

• #21

Ca ne marche pas chez moi... Je joins le fichier. [file name=risk.zip size=31810]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/risk.zip[/file]

 

Pièces jointes

• risk.zip

  31.1 KB · Affichages: 13

Vote positif 0 Vote négatif

Hervé

XLDnaute Barbatruc

• 23 Novembre 2005

• #22

rebonjour elo, le forum

Merci jocelyn

elo :

1) faut savoir etre patient quand on à a faire à des bénévoles.

2) 'ca ne marche pas' n'aide guère à solutionner le problème (as-tu un message d'erreur, si oui lequel, si non la macro fonctionne -t'elle sur certaines cellules de la zone ?)

3) as tu testé le fichier que j'avais laissé plus tot dans l'après midi, si oui, 'marchait' il ?

4) essaye de recolorier tes cellules vertes avec la meme couleur (je sais ca peut paraittre idiot, mais dans ton fichier initial, VBA ne reconnaissait pas les couleurs )

5) ton fichier fonctionne bien chez moi

salut

 

Vote positif 0 Vote négatif

Jocelyn

XLDnaute Barbatruc

• 23 Novembre 2005

• #23

re,

il faudrair que tu expliques (avec un exemple concret) ce qui ne fonctionne pas dans ton fichier quand je l'ouvre tout fonctione parfaitement en c'est ce que je crois.


Jocelyn

 

Vote positif 0 Vote négatif

E

elo6

Guest

• 23 Novembre 2005

• #24

Mystère, mystère... Il a suffit que je m'énerve (moi qui suis si calme) pour qu'après vos réponses 'Ca marche très bien' mon fichier marche... Enfin, je tiens à vous remercier de votre aide ! En espérant que bientôt se sera moi qui pourra aider les autres...

 

Vote positif 0 Vote négatif

PascalXLD

XLDnaute Barbatruc

Modérateur

• 23 Novembre 2005

• #25

Bonjour

Juste pour signaler que j'ai supprimé l'autre fil qui ne servait à rien

 

Vote positif 0 Vote négatif