Message dans cellule si :

bqtr

XLDnaute Accro

• 16 Septembre 2007

• #2

Re : Message dans cellule si :

Bonjour Pascal,

Essaye avec ceci :

code à mettre dans le module de la feuille test.

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'permet d'effacer la plage sans déclencher la procédure
If Not Application.Intersect(Target, Range("C5:C20")) Is Nothing Then
   If Target <> "" Then Range("C2") = "Merci"
End If
End Sub

A+

 

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 16 Septembre 2007

• #3

Re : Message dans cellule si :

Un grand merci pour aide précieuse

bonne journée et à bientôt

Pascal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2007

• #4

Re : Message dans cellule si :

Bonjour



J'ai essayé cela


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("C2") = IIf(IsEmpty(Range(Cells(5, 3), Cells(20, 3))), vbNullString, "merci")
End Sub

Ca ne fonctionne qu'une selue fois.

Si quelqu'un peut éclairer ma lanterne


Merci

edit: j'ai essayé le code de bqtr, et il se produit la même chose
Si on saisit une valeur en C5:C20 on a bien merci en C2
mais si on efface la valeur saisie, "merci" reste affiché.

A+


Staple

 

Dernière édition: 16 Septembre 2007

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2007

• #5

Re : Message dans cellule si :

Re

Même ainsi

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub 'permet d'effacer la plage sans déclencher la procédure
Range("C2").Value = _
IIf(Application.Intersect(Target, Range("C5:C20")) Is Nothing, "", "Merci")
End Sub

Même phénomène


Je ne comprends pas pourquoi.

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Septembre 2007

• #6

Re : Message dans cellule si :

Bonjour à tous,

Peux-tu essayer avec :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count > 1 Then Exit Sub 'permet d'effacer la plage sans déclencher la procédure
If Not Application.Intersect(Target, Range("C5:C20")) Is Nothing Then
   If Target <> "" Then Range("C2") = "Merci"
   If Target = "" Then [C2].ClearContents
End If
End Sub

Edition : Ben non cela ne fonctionne pas non plus...

 

Dernière édition: 16 Septembre 2007

Vote positif 0 Vote négatif

D

davidp

XLDnaute Occasionnel

• 16 Septembre 2007

• #7

Re : Message dans cellule si :

Super ca marche

MERCI

Pascal

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2007

• #8

Re : Message dans cellule si :

Re

->JCGL: ton code fonctionne chez moi 🙂

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 16 Septembre 2007

• #9

Re : Message dans cellule si :

Bonjour,

Il reste un petit problème : s'il y a plusieurs cellules remplies dans la plage C5:C20, la cellule C2 s'efface si l'on en efface une seule ; il me semble qu'elle ne devrait s'effacer qu'à la dernière cellule effacée de la plage C5:C20. Mais ce n'est peut-être pas important dans l'application de Davidp

Cordialement

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Septembre 2007

• #10

Re : Message dans cellule si :

Re,
Salut Stapple 🙂,

Pourrais-tu refaire un test car, comme je le disais en Edit et confirmé par mécano41 🙂, il me semble que cela ne fonctionne pas vraiment...

Mais ce n'est peut-être pas important dans l'application de Davidp

Cliquez pour agrandir...

Ah ben si cela est avéré, tant mieux arf...

A+

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2007

• #11

Re : Message dans cellule si :

Re


mea culpa 😱😡


si saisie en c6 -> merci en C2 (ok ca marche)

si effacement c6 -> merci se "désaffiche" (ok ca marche)


si saisies en C6 et C7 -> merci s'affiche

mais si effacement C7, alors merci reste désaffiché (pas glop ne marche pas)

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Septembre 2007

• #12

Re : Message dans cellule si :

Re,

Il est bien de battre sa coulpe, mais il serait plus intéressant de trouver le code qui va bien (je continue à chercher...).

Si tu étais sur un autre Forum, tu aurais 100 Meuh! de gage arf

A++

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 16 Septembre 2007

• #13

Re : Message dans cellule si :

Re

->JCGL:

Aujourd'hui 10h22
Staple1600 Re : Message dans cellule si :

Cliquez pour agrandir...

Je cogite dessus depuis ce matin donc je me pardonne tout en

me "méa culpant" 😉

 

Vote positif 0 Vote négatif

M

mécano41

XLDnaute Accro

• 16 Septembre 2007

• #14

Re : Message dans cellule si :

Peut-être pas très élégant mais cela a l'air de fonctionner :


Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.CountA(Range("C5:C20")) <> 0 Then
Range("C2") = "merci"
Else
Range("C2") = ""
End If
End Sub

Cordialement

 

Vote positif 0 Vote négatif

JCGL

XLDnaute Barbatruc

• 16 Septembre 2007

• #15

Re : Message dans cellule si :

Re,

Bravo Mécano, cela fonctionne chez moi

Au plaisir de te croiser 🙂

A+

 

Vote positif 0 Vote négatif