Créer message d"erreur
Résolu/Fermé
djeff94
Messages postés
26
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
25 avril 2013
-
Modifié par durock le 15/04/2013 à 14:32
djeff94 - 16 avril 2013 à 12:47
djeff94 - 16 avril 2013 à 12:47
A voir également:
- Créer message d"erreur
- Erreur 0x80070643 - Guide
- Créer un compte gmail - Guide
- Créer un compte google - Guide
- Créer un groupe whatsapp - Guide
- Créer un compte instagram - Guide
3 réponses
Raymond PENTIER
Messages postés
58396
Date d'inscription
lundi 13 août 2007
Statut
Contributeur
Dernière intervention
25 avril 2024
17 094
Modifié par Raymond PENTIER le 15/04/2013 à 14:55
Modifié par Raymond PENTIER le 15/04/2013 à 14:55
en Feuil1 dans la cellule AA1 tu mets la formule =NBVAL(A3;B3;C5;D1 ...) si ce sont les N cellules à remplir, et tu définis le nom "combien" pour cette cellule ;
en Feuil2 tu mets la formule =SI(combien=0;"Il faut remplir Feuil1";SI(combien<N;"Il manque "&(N-combien)&" données";"OK !"))
https://www.cjoint.com/c/CDpo0yBS7Al
* Mais la prochaine fois que tu utilises des abréviations style SMS dans ta question, je n'y répondrai pas, car c'est contraire à la Charte de CCM
https://www.commentcamarche.net/infos/25857-charte-de-commentcamarche-net-conseils-d-ecriture/
C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂
en Feuil2 tu mets la formule =SI(combien=0;"Il faut remplir Feuil1";SI(combien<N;"Il manque "&(N-combien)&" données";"OK !"))
https://www.cjoint.com/c/CDpo0yBS7Al
* Mais la prochaine fois que tu utilises des abréviations style SMS dans ta question, je n'y répondrai pas, car c'est contraire à la Charte de CCM
https://www.commentcamarche.net/infos/25857-charte-de-commentcamarche-net-conseils-d-ecriture/
C'est bien, la retraite ! Surtout aux Antilles ... :-)
☻ Raymond ♂
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
15 avril 2013 à 15:08
15 avril 2013 à 15:08
Bonjour
Une piste de travail :
1° dans la feuille 1 créer une cellule (par exemple en H10) dans laquelle on va compter les cellules vides de le plage où doivent être rentrées les données
ex: =NB.VIDE(A2:B4) si les données attendues doivent être rentrées en A2, B2, A3, etc
Si les données sont dans plusieurs plages différentes il suffit d'additionner les comptabilisation : ex :=NB.VIDE(A2:B4) + NB.VIDE(B6:B7)
Ainsi tant que toutes les cellules ne sont pas remplies la cellule indique un nombre et indique 0 lorsque toutes les cellules sont remplies
2° Masquer la feuille 2
3° sur la feuille 1 mettre un bouton, l'appeler validation des données par ex
Dans le code du bouton mettre :
Sub suite1
If range("H10").value>0 then msgbox("Cette feuille n'est pas complétée entièrement"): Exit sub
Sheets("Feuil2").visible=true
sheet("Feuil2").select
End sub
qui renvoie le message si feuille incomplete et reste sur la feuille 1 ou qui demasque la feuille 2 et la selectionne si feuille 1 complète
3° creer la même cellule de comptage des cellules vides sur la feuille 2, créer le bouton et lui attribuer un code suite2 similaire au précédent en changeant la feuille à demasquer
etc
Cdlmnt
Une piste de travail :
1° dans la feuille 1 créer une cellule (par exemple en H10) dans laquelle on va compter les cellules vides de le plage où doivent être rentrées les données
ex: =NB.VIDE(A2:B4) si les données attendues doivent être rentrées en A2, B2, A3, etc
Si les données sont dans plusieurs plages différentes il suffit d'additionner les comptabilisation : ex :=NB.VIDE(A2:B4) + NB.VIDE(B6:B7)
Ainsi tant que toutes les cellules ne sont pas remplies la cellule indique un nombre et indique 0 lorsque toutes les cellules sont remplies
2° Masquer la feuille 2
3° sur la feuille 1 mettre un bouton, l'appeler validation des données par ex
Dans le code du bouton mettre :
Sub suite1
If range("H10").value>0 then msgbox("Cette feuille n'est pas complétée entièrement"): Exit sub
Sheets("Feuil2").visible=true
sheet("Feuil2").select
End sub
qui renvoie le message si feuille incomplete et reste sur la feuille 1 ou qui demasque la feuille 2 et la selectionne si feuille 1 complète
3° creer la même cellule de comptage des cellules vides sur la feuille 2, créer le bouton et lui attribuer un code suite2 similaire au précédent en changeant la feuille à demasquer
etc
Cdlmnt
djeff94
Messages postés
26
Date d'inscription
mercredi 20 février 2013
Statut
Membre
Dernière intervention
25 avril 2013
15 avril 2013 à 17:16
15 avril 2013 à 17:16
oui c est une tres bonne piste mais moi le soucis c ets que je connais pas le nombre de ligne qui vont etre saisie a la base je donnerai un fichier vide avec juste le nom des cologne et chaqun remplira des ligne en fonction de nombre de données qu ila on sa possession
via55
Messages postés
14405
Date d'inscription
mercredi 16 janvier 2013
Statut
Membre
Dernière intervention
25 avril 2024
2 703
15 avril 2013 à 17:28
15 avril 2013 à 17:28
Oui mais là on atteint les limites d'Excel et de la logique
pas de boule de cristal incorporée dans Excel encore !
comment faire une alerte pour fiche non complète si on ne connait pas le nombre de données qui vont y être rentrées !!
Par contre tu peux garder l'idée de ne démasquer la feuille 2 que si le bouton Valider de la feuille1 est activé
Mais rien n'empêchera quelqu'un de Valider même s'il n'a rien rentré et de passer à la feuille suivante !
Excel gère bien des choses mais pas la confiance!
pas de boule de cristal incorporée dans Excel encore !
comment faire une alerte pour fiche non complète si on ne connait pas le nombre de données qui vont y être rentrées !!
Par contre tu peux garder l'idée de ne démasquer la feuille 2 que si le bouton Valider de la feuille1 est activé
Mais rien n'empêchera quelqu'un de Valider même s'il n'a rien rentré et de passer à la feuille suivante !
Excel gère bien des choses mais pas la confiance!
Sub validation_worksheet()
Dim lastLine As Integer
lastLine = Worksheets("feuill1").UsedRange.Rows.Count
Critère = ""
With Worksheets("feuill1")
nbvide = Application.CountIf(.Range("A1:Q" & lastLine), "=" & Critère)
End With
End Sub
voici un code en vba qui trouve les cellule non vide d un tableau sur excel
et merci a tous
Dim lastLine As Integer
lastLine = Worksheets("feuill1").UsedRange.Rows.Count
Critère = ""
With Worksheets("feuill1")
nbvide = Application.CountIf(.Range("A1:Q" & lastLine), "=" & Critère)
End With
End Sub
voici un code en vba qui trouve les cellule non vide d un tableau sur excel
et merci a tous
