Tableau d'augmentation de niveau
Résolu/Fermé
A voir également:
- Tableau d'augmentation de niveau
- Tableau croisé dynamique - Guide
- Code ascii tableau - Guide
- Tableau word - Guide
- Impossible d'afficher le rapport de tableau croisé dynamique sur un rapport existant ✓ - Forum Excel
- Le fichier contient un tableau présentant un extrait des livres les plus prêtés à paris en 2016. filtrez le tableau pour ne faire apparaître que les bandes dessinées ado. puis filtrez le tableau pour ne faire apparaître que celles dont l'auteur est zep. quel est le titre de la bande dessinée ado de zep qui a été la plus prêtée d'après ce tableau ? ✓ - Forum Windows 10
3 réponses
j'ai essayer ceci: =SI(SOMME(B1:F1)=5;"Niveau"&" "&"1";0;si(somme(b1:f1)=10;"Niveau"&" "&"2";si(somme(b1:f1)=15;"Niveau"&" "&"3"))) mais ça me dit que j'ai trop d'arguments!?
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
23 juil. 2016 à 22:43
23 juil. 2016 à 22:43
Bonjour,
Essaie cela
https://www.cjoint.com/c/FGxuPWNkMK6
A+
Essaie cela
https://www.cjoint.com/c/FGxuPWNkMK6
A+
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
>
Danyeson
23 juil. 2016 à 23:58
23 juil. 2016 à 23:58
Voici le code commenté :
Pour le visualiser, clic droit sur l'onglet "Feuil1" puis "Visualiser le code".
Pour ce qui est de l'appliquer sur plusieurs feuilles, si la structure des feuilles est identique tu pourras utiliser l'évènement Workbook.SheetChange dans le module ThisWorkbook, sinon il faudra placer le code personnalisé dans chaque module de feuille.
A+
Private Sub Worksheet_Change(ByVal Target As Range)
'Si plusieurs cellules sont modifiées, on sort de la procédure
If Target.Count > 1 Then Exit Sub
'Si la cellule modifiée appartient à une des colonnes B, C, D, E ou F
If Not Application.Intersect(Target, Columns("B:F")) Is Nothing Then
'Si le nombre de "x" est égal à 5
If Application.CountIf(Cells(Target.Row, 2).Resize(, 5), "x") = 5 Then
'on désactive les évènements
Application.EnableEvents = False
'On renseigne la colonne G
With Cells(Target.Row, 7)
.Value = .Value + 1
.NumberFormat = """Niveau ""0"
End With
'On efface la plage des "x"
Cells(Target.Row, 2).Resize(, 5).ClearContents
'on ré-active les évènements
Application.EnableEvents = True
End If
End If
End Sub
Pour le visualiser, clic droit sur l'onglet "Feuil1" puis "Visualiser le code".
Pour ce qui est de l'appliquer sur plusieurs feuilles, si la structure des feuilles est identique tu pourras utiliser l'évènement Workbook.SheetChange dans le module ThisWorkbook, sinon il faudra placer le code personnalisé dans chaque module de feuille.
A+
AH! vous êtes trop génial! merci beaucoup!!! pour ce qui est de l'appliquer comme j'avais mentionné, j'ai simplement copier l'onglet pour avoir tous mes onglets et j'ai glissé la cellule G1 sur plusieurs lignes et mon fichier de pratique musical est parfait!!
En vous remerciant de votre aise très généreuse et en vous souhaitant une bonne fin de journée!!!
Danyele
En vous remerciant de votre aise très généreuse et en vous souhaitant une bonne fin de journée!!!
Danyele
Gyrus
Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
523
23 juil. 2016 à 23:09
23 juil. 2016 à 23:09
Tu m'as l'air d'avoir le nez dans le guidon :D
Lève un peu la tête et regarde les propositions...
A+
Lève un peu la tête et regarde les propositions...
A+
23 juil. 2016 à 22:43
23 juil. 2016 à 23:02
23 juil. 2016 à 23:07
23 juil. 2016 à 23:09