Excel liste deroulante saisie auto
Résolu/Fermé
tictac847
-
4 oct. 2011 à 15:25
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 4 nov. 2011 à 14:32
Mike-31 Messages postés 18313 Date d'inscription dimanche 17 février 2008 Statut Contributeur Dernière intervention 21 avril 2024 - 4 nov. 2011 à 14:32
A voir également:
- Excel liste deroulante saisie auto
- Liste déroulante excel - Guide
- Excel liste déroulante en cascade - Guide
- Formule excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
6 réponses
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 4/10/2011 à 16:30
Modifié par Mike-31 le 4/10/2011 à 16:30
Salut,
allez on va continuer sur la lancée, explique en détail que l'on cerne ton résonnement
Quel onglet veux tu dupliquer !
comment détermines tu le nom du nouvel onglet !
la plage de données qui renseigne tes listes déroulantes se trouve sur une feuille principale ou est propre à chaque feuille et se trouve t sur chaque feuille !
J'ai déjà remarqué que tu protèges ou déprotèges tes feuilles sur un simple clic ce qui n'est pas très sécurisant, pourquoi ne mettrez tu pas une inputbox avec un mot de passe et un système de protection automatique afin d'éviter les oublis de reprotection !
Tant que tu y es, peux tu globalement donner des explications sur les aboutissements de ton fichier pour essayer de concentrer les codes et éviter les conflits
J'ai mis les deux autres discussions en résolu
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
allez on va continuer sur la lancée, explique en détail que l'on cerne ton résonnement
Quel onglet veux tu dupliquer !
comment détermines tu le nom du nouvel onglet !
la plage de données qui renseigne tes listes déroulantes se trouve sur une feuille principale ou est propre à chaque feuille et se trouve t sur chaque feuille !
J'ai déjà remarqué que tu protèges ou déprotèges tes feuilles sur un simple clic ce qui n'est pas très sécurisant, pourquoi ne mettrez tu pas une inputbox avec un mot de passe et un système de protection automatique afin d'éviter les oublis de reprotection !
Tant que tu y es, peux tu globalement donner des explications sur les aboutissements de ton fichier pour essayer de concentrer les codes et éviter les conflits
J'ai mis les deux autres discussions en résolu
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Re
Lol, on entame la 2eme mi-temps
Les noms des onglets sont définis par inputbox dans la macro NveauClient. Ils copient les feuilles DEV et Planning DEV en les renommants.
Je t'ai mis toutes les information dans le fichier.
Oui pour tu as raison pour ton système de protection ça m'a l'air plus fiable.
Merci Mike.
http://www.cijoint.fr/cjlink.php?file=cj201110/cijMsxZjTP.xlsm
Lol, on entame la 2eme mi-temps
Les noms des onglets sont définis par inputbox dans la macro NveauClient. Ils copient les feuilles DEV et Planning DEV en les renommants.
Je t'ai mis toutes les information dans le fichier.
Oui pour tu as raison pour ton système de protection ça m'a l'air plus fiable.
Merci Mike.
http://www.cijoint.fr/cjlink.php?file=cj201110/cijMsxZjTP.xlsm
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
4 oct. 2011 à 20:50
4 oct. 2011 à 20:50
Tes codes sont à revoir et à compléter avec des gestions d'erreurs pour éviter les plantage etc...
Je vais commencer par là pour y voir plus clair
Je vais commencer par là pour y voir plus clair
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
6 oct. 2011 à 13:44
6 oct. 2011 à 13:44
Re,
Je n'oublie pas ton problème, je refais ton fichier qui comporte pas mal d'anomalies dans tes formules comme tes plages nommées apparemment inutiles que l'on ne peut pas supprimer.
je refais ce fichier
Je n'oublie pas ton problème, je refais ton fichier qui comporte pas mal d'anomalies dans tes formules comme tes plages nommées apparemment inutiles que l'on ne peut pas supprimer.
je refais ce fichier
Salut Mike,
Ca avance ?
Tu veux me déléguer les tâches de nettoyage, si ça peut te soulager.
Tu peux me donner les grandes lignes et je me charge du reste.
Pour info j'ai rajouter un planning à mon fichier si tu veux jeter un coup
d'oeil, j'ai eu des petits soucis, donc j'ai poster une autre question sur le forum.
http://www.commentcamarche.net/forum/affich-23368861-reprendre-texte-valeur-cellule-excel#
Merci
Ca avance ?
Tu veux me déléguer les tâches de nettoyage, si ça peut te soulager.
Tu peux me donner les grandes lignes et je me charge du reste.
Pour info j'ai rajouter un planning à mon fichier si tu veux jeter un coup
d'oeil, j'ai eu des petits soucis, donc j'ai poster une autre question sur le forum.
http://www.commentcamarche.net/forum/affich-23368861-reprendre-texte-valeur-cellule-excel#
Merci
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 14/10/2011 à 23:21
Modifié par Mike-31 le 14/10/2011 à 23:21
Re,
Avec ce beau temps je regarde en pointillé ton fichier mais je ne t'oublie pas, regarde ce que cela peut donner sur le fichier joint.
J'ai refait ton fichier et modifié tes macros (il me reste à regrouper tes variables et les uniformiser)
que veux tu afficher avec le bouton CALENDRIER sur les feuilles clients !
Colonne AV que veux tu calculer et en fonction de quel critère !
J'ai changé le fichier, teste plutot ce dernier
https://www.cjoint.com/?AJoxvfhPNtM
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Avec ce beau temps je regarde en pointillé ton fichier mais je ne t'oublie pas, regarde ce que cela peut donner sur le fichier joint.
J'ai refait ton fichier et modifié tes macros (il me reste à regrouper tes variables et les uniformiser)
que veux tu afficher avec le bouton CALENDRIER sur les feuilles clients !
Colonne AV que veux tu calculer et en fonction de quel critère !
J'ai changé le fichier, teste plutot ce dernier
https://www.cjoint.com/?AJoxvfhPNtM
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Mike-31
Messages postés
18313
Date d'inscription
dimanche 17 février 2008
Statut
Contributeur
Dernière intervention
21 avril 2024
5 073
Modifié par Mike-31 le 4/11/2011 à 14:33
Modifié par Mike-31 le 4/11/2011 à 14:33
Re,
Je ne sais plus si je te l'ai dit, deux onglets ("Model Planning", "Model Client") ne sont pas masquées mais invisibles, ce sont ces feuilles vierges que le code duplique. si tu as à les modifier, remplace la macro AfficherTout par ce code. J'ai ajouté une ligne pour les afficher il suffit simplement d'isoler cette ligne Sheets(x).Visible = xlVeryHidden en mettant une apostrophe devant la ligne et en supprimant l'apostrophe devant cette ligne
'Sheets(x).Visible = True
ne pas oublier de rétablir
Sub AfficherTout()
'---------------------------- code affiche toutes les feuilles
'Dim n As Integer
Application.ScreenUpdating = False
For n = Sheets.Count To 1 Step -1
If Sheets(n).Name <> ActiveSheet.Name Then
Sheets(n).Visible = True
End If
Next
For Each x In Array("Model Planning", "Model Client")
Sheets(x).Visible = xlVeryHidden 'onglet "Model Planning", "Model Client" sont invisible,
'Sheets(x).Visible = True 'pour affichage remplacer xlVeryHidden par True ou liberer cette ligne
Next x
Application.ScreenUpdating = True
End Sub
Je passe le statut de la discussion en résolu et n'hésite pas de revenir sur le forum
cordialement
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
Je ne sais plus si je te l'ai dit, deux onglets ("Model Planning", "Model Client") ne sont pas masquées mais invisibles, ce sont ces feuilles vierges que le code duplique. si tu as à les modifier, remplace la macro AfficherTout par ce code. J'ai ajouté une ligne pour les afficher il suffit simplement d'isoler cette ligne Sheets(x).Visible = xlVeryHidden en mettant une apostrophe devant la ligne et en supprimant l'apostrophe devant cette ligne
'Sheets(x).Visible = True
ne pas oublier de rétablir
Sub AfficherTout()
'---------------------------- code affiche toutes les feuilles
'Dim n As Integer
Application.ScreenUpdating = False
For n = Sheets.Count To 1 Step -1
If Sheets(n).Name <> ActiveSheet.Name Then
Sheets(n).Visible = True
End If
Next
For Each x In Array("Model Planning", "Model Client")
Sheets(x).Visible = xlVeryHidden 'onglet "Model Planning", "Model Client" sont invisible,
'Sheets(x).Visible = True 'pour affichage remplacer xlVeryHidden par True ou liberer cette ligne
Next x
Application.ScreenUpdating = True
End Sub
Je passe le statut de la discussion en résolu et n'hésite pas de revenir sur le forum
cordialement
A+
Mike-31
Une période d'échec est un moment rêvé pour semer les graines du savoir.
