Macro pour compter

Version imprimable

20/02/2014, 13h26
guilo49

1 pièce(s) jointe(s)

Macro pour compter

Bonjour,

ma demande va paraître simple pour certain mais j'aimerais faire une macro dans mon fichier Excel.

Je vous explique, je voudrais que lorsque quelqu'un remplisse le tableau avec les points forts ou points faibles, une macro compte les croix ou autre chose (certains vont mettre en majuscule ou d'autres trucs donc faudrait pas restreindre), et par exemple si les utilisateurs terminent la partie 1, et commencent à remplir la partie 2 avec un point fort ou point faible, s'il ont tous rempli dans la partie 1=> ok; mais s'il manque des croix, la macro ferait apparaître un message disant "attention vous n'avez pas complété tous les points. Vérifiez que vous ayez bien tout rempli avant de passer à la partie suivante!".
Voilà, pour la première partie, il y aurait 7 croix à avoir, 12 pour la deuxième,etc. parce que vous imaginez bien qu'ils ne peuvent pas mettre à la fois des points forts et des points faibles.

J'espère avoir été assez clair, je vous joins un fichier.

Je vous remercie par avance pour l'aide que vous pourrez m'apporter.

P.S : Je préférerais une macro plutôt qu'une validation parce que j'en ai déjà mis une dans mon vrai fichier (mais confidentiel) pour éviter qu'ils remplissent à la fois les points forts et points faibles et je ne pense pas qu'on puisse mettre 2 validations sur une même cellule.Pièce jointe 138599
20/02/2014, 13h44
78chris

Bonjour

Pour la plage B10:B21, en validation ceci fonctionne

Code:

=NBVAL($B$2:$C$8;C10)=7

a adapter pour chaque colonne et chaque partie
20/02/2014, 14h01
Philippe Tulliez

Bonjour,

Citation:

P.S : Je préférerais une macro plutôt qu'une validation parce que j'en ai déjà mis une dans mon vrai fichier (mais confidentiel) pour éviter qu'ils remplissent à la fois les points forts et points faibles et je ne pense pas qu'on puisse mettre 2 validations

Si tu sélectionnes Personnalisation dans la liste Autoriser et dans les limites du nombre d'arguments des formules ET et OU tu peux placer autant de règles de validation que tu le souhaites. Seule la combinaison avec une liste déroulante n'est pas possible.
20/02/2014, 14h10
78chris

Bonjour

Citation:

Envoyé par Philippe Tulliez

Bonjour,

Si tu sélectionnes Personnalisation dans la liste Autoriser et dans les limites du nombre d'arguments des formules ET et OU tu peux placer autant de règles de validation que tu le souhaites. Seule la combinaison avec une liste déroulante n'est pas possible.

Lors de mes essais, bizarrement le ET ne marchait pas : Philippe peux-tu vérifier de ton côté.
20/02/2014, 14h16
guilo49

Validation

Ce que vous me dites est très juste mais c'est vrai que j'aurais préféré une macro en fait pour avoir 2 messages différents : un s'ils mettent 2 croix sur la même ligne en point fort et en point faible et un autre s'il ont oublié des points à remplir quand ils comment l'autre partie. Si je fait une formule avec et ou j'aurais le même message pour les deux cas.
20/02/2014, 14h45
Philippe Tulliez

Bonjour Chris,

Citation:

Lors de mes essais, bizarrement le ET ne marchait pas : Philippe peux-tu vérifier de ton côté.

Est-ce que le problème ne provient pas de la référence relative à C10 ?

J'ai testé avec un ET mais comme je ne sais pas ce que tu voulais placer comme 2ème argument, j'ai mis n'importe quoi
Cela fonctionne sauf qu'évidemment la référence à C10 se déplace.

Code:

=ET(NBVAL($B$2:$C$8;C10)=7;NBCAR(B2)=1)

Voici un autre exemple où l'on empêche d'introduire une valeur dont le nombre de caractères serai différent de 3 et une valeur identique sur la plage

Code:

=ET(NBCAR(A2)=3;NB.SI($A$2:$A$100;A2)<2)

1 pièce(s) jointe(s)

Bonjour
Voici un petit code qui permet de ne cocher qu'une seule case avec n'importe quelle valeur, voire une phrase
et interdit de commencer la deuxieme partie du tableau si la premiere n'est pas completer.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Worksheet_Change(ByVal Target As Range)
 Dim KeyCells As Range
 valeur = Target.Value
 ' La variable KeyCells contient les cellules qui déclencheront
 ' une alerte si elles sont modifiées.
 Set KeyCells = Union(Range("d2:e8"), Range("d10:e15"))
 
 If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        If Target.Column = 4 And valeur <> "" Then Cells(Target.Row, 5) = ""
        If Target.Column = 5 And valeur <> "" Then Cells(Target.Row, 4) = ""
 
    If Target.Row >= 10 And Target.Row <= 15 Then
    If Application.CountA(Range("d2:e8")) < 8 Then MsgBox " vous devez finir de remplir la premiere partie du tableau"
    End If
 End If
 End Sub

20/02/2014, 21h17
78chris

RE

Citation:

Envoyé par Philippe Tulliez

Bonjour Chris,

Est-ce que le problème ne provient pas de la référence relative à C10 ?

J'ai testé avec un ET mais comme je ne sais pas ce que tu voulais placer comme 2ème argument, j'ai mis n'importe quoi
Cela fonctionne sauf qu'évidemment la référence à C10 se déplace.

Code:

=ET(NBVAL($B$2:$C$8;C10)=7;NBCAR(B2)=1)

Voici un autre exemple où l'on empêche d'introduire une valeur dont le nombre de caractères serai différent de 3 et une valeur identique sur la plage

Code:

=ET(NBCAR(A2)=3;NB.SI($A$2:$A$100;A2)<2)

Sorry, ma question était effectivement floue !
J'avais testé

Code:

=ET(NBVAL($B$2:$C$8)=7;C10="")

dans la colonne B de la seconde partie
04/03/2014, 18h43
guilo49

Re : Macro pour compter

Merci Keygen08 ! :D

C'est exactement ce que je voulais. J'ai réussi à compiler les bouts de codes qui me fallait pour étendre la macro à toutes les parties en dupliquant les parties de setKeycells à End If afin d'avoir un seul PrivateSub End Sub pour éviter les bugs de nom. Par contre, je me suis mis en worksheet selectionchange, je préfère que le message apparaisse dès le clique sur la cellule. J'ai également étendu le target row à toute la plage de la partie suivante pour que si quelqu'un ne rentre pas les données dans l'ordre le message apparaisse quand même.

Ce topic est donc résolu ! Merci à tous pour vos propositions. :)