Discussion :

[jujulien]

Bonjour à tous,
Je debute en VBA (~3 sem) et jusque la j'ai réussi a faire ce que je voulai en fouillant à droite à gauche mais deux fonction me pose problème.

1) j'ai une plage ("L4:BK8") remplie avec divers nombres (de 1 à 100) par les boutons d'un UserForm.
Je cherche à afficher un msgbox qui me dit par exemple "attention verifier pos N° 8" quant ce nombre est entrer 5 fois dans la plage.
Il faut que cela fonctionne pour n'importe quel nombre entré au minimum 5 fois.

2) Je rempli cette plage par groupe de 5 cases (L4 à L8) puis (M4 à M8) etc..
je voudrai afficher un msg box qui me dit " attention nombre autoriser depassé, changer de colonne) le changement ce fait deja par le userform.

En esperant avoir ete suffisament clair mais si vous avez besoin de plus d'info ne pas hesiter.

Merci de votre aide.

[NVCfrm]

salut,

la fonction CountIf te permettra de traiter ce problème.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if WorksheetFunction.countIf(Range("L4:BK8"), mon_Nombre) >4 then _
  Msgbox "Le seuil de 4 est dépassé"

[jujulien]

Merci pour cette réponse.

Je m'attendais bien à devoir le faire pour chaque numéro bon ba y plus qu'a(100x).

Pas de solution pour le point 2 ?

[NVCfrm]

Merci pour cette réponse.

Je m'attendais bien à devoir le faire pour chaque numéro bon ba y plus qu'a(100x).

Pas de solution pour le point 2 ?

Salut jujulien,
pourras tu expliquer un peu mieux ce que tu cherches à faire, les méthodes ou problèmes ?

[jujulien]

Bonsoir,
Je remlpi mes cellules avec 100 boutons qui fonctionne comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
If Cells(ligne, Colonne) = "" Then
     Cells(ligne, Colonne).Select
     Else
     Cells(Rows.Count, Colonne).End(xlUp).Offset(1, 0).Select
End If
     ActiveCell = "49"

Chaque appui sur un bouton me remplie la cellule avec un nombre (1 à 100)
Mais je ne doit remplir que 5 cellules d'affilée.
Ce que je souhaite c'est que quand je suis arrivé sur la 5éme cellules(avec n'importe quel bouton), un msgbox s'affiche.

Une question qui n'a rien à voir : Peut on mettre plusieurs valeurs dans un label sans effacer la precedente (ex: 1 - 2 - 3 - ....) ?

Merci

[jujulien]

En fait, apres quelques heures de reflexion et quelque lecture sur le comptage de cellule vide, j'ai reussi à pondre ça.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
d = Range("L" & c, "DK" & c).SpecialCells(xlCellTypeBlanks).Count
If d <> 104 Then
MsgBox "Nombres de saisie dépassées"    
ActiveCell = ""
End If

Et ça marche comme je veux

Reste plus que la question sur les differentes valeurs de mon label et le sujet serat clos.