formule avec fenêtre d'avertissement

[rené-b13]

Bonjour.

j'ai beau chercher mais je ne trouve pas comment faire.

voici ce que j'ai fais avec mes modestes connaissances je suis débutant j'ai récupéré des bouts de codes et je les est modifié.

Je souhaiterais qu'une fenêtre d'avertissement s'ouvre lorsque l'on écrit plus de 4 fois le meme mot et non pas dans une cellule comme j'ai fais.

Merci d'avance pour vos éventuelles réponses.

René.

 

[pierrejean]

Re : formule avec fenêtre d'avertissement

bonjour rené

Une solution par macro evenementielle:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each cel In ActiveSheet.UsedRange
 If cel.Value = "cc" Then totcc = totcc + 1
Next cel
If totcc >= 5 Then
  MsgBox ("Attention trop de cc !!!")
End If
End Sub

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

Bonjour Pierrejean

merci pour cette réponse rapide votre solution fonctione parfaitement mais je ne me suis pas bien expliqué il faudrait que cela fonctione pour chaque ligne séparément j'ai un tableau avec des noms et il faudrait que le méssage ce déclanche pour chaque personnes si sur la ligne de toto il y a plus de 4 CC que cela ce déclanche que pour lui et non pas sur les autres cellules des autres ligne j'espere avoir été plus clair désolé je ne sais pas comment m'expliquer autrement.

merci René.

 

[pierrejean]

Re : formule avec fenêtre d'avertissement

Re

Voila

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

re Pierrejean

Merci beaucoup c'est exactement ce que je recherche merci pour votre aide mon probleme est résolu.

Amicalement René.

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

re bonjour

Aprés réflection j'ai oublié de dire que j'avais 12 feuilles avec le meme tableau dans chaque feuille qui correspond aux 12 mois de l'année un mois par feuille Alors coment adapter le code que Pierrejean ma aimablement fait pour que le message ce déclanche si il y a plus de 4 CC dans n'importe quelle feuilles et toujours sur la meme ligne c'est a dire admeton qu'il y est 1 cc a la feuille 1 et deux CC a la feuille 4 et ainsi dessuite et arriver a 5 que le message detecte les 5 CC sur nimporte quelle feuille et si c'est possible que le dernier CC soit effacer de la cellule quand on ferme la fenetre du message.

Merci. René

 

[Staple1600]

Re : formule avec fenêtre d'avertissement

Bonjour



Essaie de mettre le code de pierrejean

dans ThisWorkbook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each cel In ActiveSheet.UsedRange
 If cel.Value = "cc" Then totcc = totcc + 1
Next cel
If totcc >= 5 Then
  MsgBox ("Attention trop de cc !!!")
End If
End Sub

EDITION: je viens de tester, cela fonctionne pour chaque feuille
mais pas comme tu le voudrais
cela limite à 5 cc par feuille dans le classeur actif

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

salut staple 1600

j'ai essayé ce que tu ma dit mais ça ne fonctione pas.

merci quand meme.

rené.

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

re
effectivement ta solution fonctione pour chaque feuille mais ne s'ajoute pas entre elle
cela n'est t'il pas possible alors ? tan pi...
merci d'avoir essayer..

René.

 

[Staple1600]

Re : formule avec fenêtre d'avertissement

Re


La cela semble fonctionner

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim cel As Range
Dim ws As Worksheet
For Each ws In Worksheets
For Each cel In ws.UsedRange
 If cel.Value = "cc" Then totcc = totcc + 1
Next cel
If totcc >= 5 Then
  MsgBox ("Attention trop de cc !!!")
End If
Next ws
End Sub

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

re staple 1600

cela fontionne mais ça ajoute les autres lignes je souhaiterais que les ligne soient indépendantes seules la ligne concerné soit ajouter si il y a 3 cc sur la ligne 1 et que je rajoute 2 cc sur la ligne 2 qu'elle ne ce déclanche pas.

Merci.

René

 

[Staple1600]

Re : formule avec fenêtre d'avertissement

Re



Après cela je laisse la main à pierrejean et aux autres forumeurs

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim cel As Range
Dim ws As Worksheet
Dim b As Long
For Each ws In Worksheets
b = Target.Row
    For Each cel In Range(Cells(b, 1), Cells(b, 255))
        If cel.Value = "cc" Then totcc = totcc + 1
    Next cel
        If totcc = 5 Then
        MsgBox ("Attention trop de cc !!!")
    End If
Next ws
End Sub

 

[rené-b13]

Re : formule avec fenêtre d'avertissement

re

je viens d'essayer les autres ligne ne s'ajoutes pas entre elle ok mais par contre les feuilles ne sajoute plus lol
mais je te remerci staple pour ta patience

amicalement René.

 

[pierrejean]

Re : formule avec fenêtre d'avertissement

Re

Salut Staple

A tester

 

[Staple1600]

Re : formule avec fenêtre d'avertissement

Bonjour pierrejean


Bon sang, mais c'est bien sur !!!

Un tableau

Un Array avec du Redim dedans

Bravo Maître pierrejean


PS: il faut laisser le code dans la feuille 1 aussi?