A voir également:
- La valeur que vous avez tapée n'est pas valide excel
- Ethernet n'a pas de configuration ip valide - Guide
- Liste déroulante excel - Guide
- Aller à la ligne excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Si et excel - Guide
4 réponses
jeffsublime
Messages postés
34
Date d'inscription
vendredi 4 juillet 2008
Statut
Membre
Dernière intervention
29 octobre 2019
8
9 juil. 2008 à 20:44
9 juil. 2008 à 20:44
As tu trouvé ta solution car jaimerais faire la meme chose et je cest que ca se fais avec excel en utilisant macro
Merci
Merci
jeffsublime
Messages postés
34
Date d'inscription
vendredi 4 juillet 2008
Statut
Membre
Dernière intervention
29 octobre 2019
8
10 juil. 2008 à 17:02
10 juil. 2008 à 17:02
OK merci mais tu n'a pas utilisé de bouton validé
moi ce que je cherche a faire c'est
de A1 à A10 jai des cases a cocher si je coche la case exemple A1 et que je valde je veux etre redirgé vers exemple A20 si je coche A2 redirigé vers B20
Connais tu la solution a mon probleme
Jeff
Ps je veux également avoir la possibité de coché une seule case donc si quelqun veut cocher une autre case une boite de dialogue ouvre et dit erreur une seule case permise
moi ce que je cherche a faire c'est
de A1 à A10 jai des cases a cocher si je coche la case exemple A1 et que je valde je veux etre redirgé vers exemple A20 si je coche A2 redirigé vers B20
Connais tu la solution a mon probleme
Jeff
Ps je veux également avoir la possibité de coché une seule case donc si quelqun veut cocher une autre case une boite de dialogue ouvre et dit erreur une seule case permise
Bonsoir
Adieu Chat Chien ... Noir...
A essayer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If Cells(Target.Row, Target.Column) = "" Then Target.Value = "X"
Target.Offset(19, Target.Row).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Cells(Target.Row, Target.Column) = "X" Then Target.Value = ""
End Sub
Double clic dans une cellule de la colonne A place un X et se décale comme demandé
Selectionner le X le retire
Si la piste est bonne on continue sur le message d'alerte en raison de plusieurs cases cochées.
@+ LM
Adieu Chat Chien ... Noir...
A essayer
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column <> 1 Then Exit Sub
If Cells(Target.Row, Target.Column) = "" Then Target.Value = "X"
Target.Offset(19, Target.Row).Select
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
If Cells(Target.Row, Target.Column) = "X" Then Target.Value = ""
End Sub
Double clic dans une cellule de la colonne A place un X et se décale comme demandé
Selectionner le X le retire
Si la piste est bonne on continue sur le message d'alerte en raison de plusieurs cases cochées.
@+ LM
atomy
Messages postés
442
Date d'inscription
jeudi 25 janvier 2007
Statut
Membre
Dernière intervention
11 août 2009
92
26 janv. 2007 à 21:46
26 janv. 2007 à 21:46
Salut,
Pourquoi dans Excel?? Excel est un tableur... mise à part le fait de faire des calculs de telle champ à telle champ... je ne crois pas qu'il y ait des boutons...
Peut-être envisagé quelques notions de PHP...
Bonne chance
Ciao!
Pourquoi dans Excel?? Excel est un tableur... mise à part le fait de faire des calculs de telle champ à telle champ... je ne crois pas qu'il y ait des boutons...
Peut-être envisagé quelques notions de PHP...
Bonne chance
Ciao!
Bonjour,
Faire un petit tableau ici avec 3 colonnes et 4 lignes
Chat Chien Loup Ces trois cellules sont nommées Zanimo (avec Ctrl + F3 c'est rapide)
noir marron bleu
vert gris rouge
jaune
Chat Noir vert Jaune est une autre zone nommée Kouleur
en B2 données validation Liste = Zanimo
en C2 données Validation Liste =
=DECALER(Kouleur;1;EQUIV(B2;Zanimo;0)-1;NBVAL(DECALER(Kouleur;;EQUIV(B2;Zanimo;0)-1))-1)
J'espère que le Chat Noir ne portera pas malheur
Bonne journée
LM
Faire un petit tableau ici avec 3 colonnes et 4 lignes
Chat Chien Loup Ces trois cellules sont nommées Zanimo (avec Ctrl + F3 c'est rapide)
noir marron bleu
vert gris rouge
jaune
Chat Noir vert Jaune est une autre zone nommée Kouleur
en B2 données validation Liste = Zanimo
en C2 données Validation Liste =
=DECALER(Kouleur;1;EQUIV(B2;Zanimo;0)-1;NBVAL(DECALER(Kouleur;;EQUIV(B2;Zanimo;0)-1))-1)
J'espère que le Chat Noir ne portera pas malheur
Bonne journée
LM