Accueil Plan du site Mini News Images Téléchargements Liens FAQ Livre d'or Stats Forums Calc VériTiThèque Excel
        
Programme à l'affiche

 
5 derniers Progs
 
Macros pour Excel
+ OOo
+ Cel / Col / Lig
+ Commentaires
-  Divers
+ Evènements
+ Feuille
+ Fichier
+ Images
+ Impression
+ Souris
+ Trucs et astuces
+ Userform
 
Programmes
+ Acyd (Label Ti)
+ ComTi (Label Ti)
+ Gadget VISTA
+ Label OOo
+ Label Veri
+ Label VeriTi
+ Label Excel
+ Label Excellois
+ Label Ti
 
Diaporama
 Chat
 Concours DESSIN
 Détente VériTi
 EXCEL Insolite
 Halloween
 Programmes
 Rencontre Excélien(ne)s
 VeriTi au sommet
 
Détente Flash
+ Beer monster
+ Carte
+ Chasse la dinde
+ Mah Jong
+ Methode de calcul
+ PacMan
+ Plateau
+ Pub Citroen
+ Tetris
+ Yeti Sport
 
Tag VeriTi
images multiples images multiples images multiples BDD base de données (prog) Faire coincider un objet dessin avec une cellule ou un groupe de cellules Configest Format téléphone par formule - format SS Tétris Acyd (version 1.9) Menu Outils Insérer image graphique Image en transparence PPS 13 Morpion Les commandes courantes DirListeTi DirListeTi Planning annuel Pendu Macro liste déroulante Macro liste déroulante Ajouter une liste personnalisée dans Excel Compter les couleurs Liste déroulante avec plusieurs colonnes Nombre de couleur somme des couleurs Passer à la ligne dans une cellule Ajuster au mieux la hauteur de ligne / largeur de colonne Appliquer un commentaire baladeur dans une cellule Dans un tableau, appliquer une couleur à une ligne Caractères de déclaration de variables Caractères spéciaux avec ALT+ chiffres Masquer / Afficher colonnes Copier coller une valeur en bloc Copier l'icône d'un bouton Dans un tableau, appliquer une couleur à une ligne Foot Ligue1 2006 Démo WebBrowser Faire une sélection de cellules par ligne ou colonne ZipTi 2.1 ZipTi 2.1 Calculatrice / convertisseur CalcTi Insérer un commentaire dans une formule Touche de raccourci ALT sélectionner rapidement la zone A5:A100 sans la souris. Déplacer un bouton Liste triée des feuilles Touche de raccourci Général Incrémenter nom de feuille Sudoku_Ti Afficher l'occurence Afficher selon clic Code d'ouverture Lister les feuilles Mettre un lien VeriTi Scrabble Liste déroulante Appliquer un lien Hypertexte qui n'en est pas un VeriTi Scrabble Codes Barre Commentaire conditionnel Stats VeriTi Stats VeriTi BDD base de données (didac) Retirer la protection d'un fichier Acyd (version 1.9) Afficher nom feuille Carnet de notes (SM) Acyd 97 (version 1.05) Acyd 97 (version 1.05) Format conditionnel Codes couleurs VBA Tétris Inventaire restaurant Inventaire restaurant Liste de choix Menu Fenêtres Sauvegarde incrémentée (Add-on) PPS 05 Combinaisons et Permutations PPS 18 PPS 17 Insérer la formule PPS 16 Guide de prise en main OOo v2 PPS 14 ComTi PPS 15 MFC_Publipostage Chiffres en lettre Registres Cryptage Menu Affichage Didacticiel OOo version 2 Menu Données Menu Edition Menu Fichier Menu Format Menu Insertion Lettre colonne Remplir un tableau Mise en forme Afficher les commentaires Appliquer un commentaire Commentaire personnalisé Image en transparence Lister les commentaires Répertorier les commentaires Masquer les commentaires Afficher macro Dessiner des cadres Supprimer les commentaires Raccourci Procédures évènementielles Compteur sur clic Déclencher un son Raccourci clavier Désactiver l'option Interrompre boucle Compagnon Saut de page Afficher nom classeur Chercher un mot Colorer l'onglet Masquer feuilles Copier/Coller valeurs Copier/Coller zone Dernière feuille Extraire tous les mots Détection doublon Fonction Majuscule / Minuscule Savoir si feuille existe Lister fichiers TXT Sélection d'images Insérer dans une shape Insérer image graphique Liste de choix perso Répertorier commentaire Convertir très simplement des chiffres en lettres En VBA, remplacer le code de direction Extraire la première lettre d'un Prénom et NOM Incrémenter un nombre Insérer des caractères spéciaux dans un format personnalisé Effectuer une recherche sur l'ensemble d'un classeur Tableau croisé dynamique Placer un logo sur une feuille Permettre le défilement de la souris dans VBA Se déplacer dans une feuille sur la dernière cellule non vide Remplacer la fonction CONCATENER par & Pour saisir plus rapidement les formats heures Touche de raccourci MAJ Touche de raccourci CTRL Signer un document Fermer automatiquement Recherche d'un mot Gestion Images Didacticiel OOo ComTi Equivalence couleurs Guide de prise en main OOo Nombre en lettre Horloge pour CALC V 2.0 Horloge pour CALC V 1.0 Planning annuel Compil de Ti Wiki Veriland Séquences Graphiques (pdf) Le jeu du pendu mDF_Calendrier Fréquence Formules Excel I Filigrane / Excel Molette souris V 2.05 Filigrane / Excel Combinaisons et Permutations Astuce Daily Tip Chiffres en lettre Barre perso (démo) Ouvrir fichier TXT Mes macros Progress Bar Ti Formules Excel I Remplacer les valeurs des cellules Biorythme Carnet de notes (AM) Calendrier sous main Transformer un graphique en image Supprimer doublons Supprimer lignes vides Foot Ligue1 2006 Liste NOMS Carnet de notes (SM) 4 Trim Puissance 4 Cryptage Mes macros Trier les noms MFC_Publipostage Allumettes Enregistre DLL Formules traduites (Add-on) Polices Temporaires - Multi-copie Lister SONS Bilan cooperative Multi conversions Texte défilant Lister les noms Progress Bar Ti Calendrier personnalisable Easter Egg Boites de dialogue Registres StatTi Feux d'artifices Fractals Ajouter contenu cellule Bilan coopérative Décale Ti Sauve XLB MyInsert XLS 2 PDF Empêcher l'af1004317 Empêcher l'af1004317 Rencontre au sommet VériTi 08 Trucs et astuces spécial "Saint VALENTIN" ACYD et durée pour trouver le mot de passe Gadget sidebar Vista VeriTi dans la capitale Rencontre VériTi au sommet ... Installer un logiciel complet GRATUITEMENT ! L'essentiel est dans Excel ACYD et durée pour trouver le mot de passe Fêtes de fin d'année Rencontre VériTi au sommet ... VériTiThèque DICTIONNAIRES VériTi archivé ! Chorale de Noël Fêtes de fin d'année Choix d'une icône 500, un cadeau !!! VeriTi Meuh ! Recherche de fichiers Clé dynamométrique Trucs et astuces Clavier+ risque d’en séduire plus d’un ! Signal Spam Procédures OOo Journée du patrimoine Bulles Catalogue en flash Texter : évite les saisies répétitives méfiance eXPERT PDF 4 PRO Convertisseur PDF en TXT ACYD et durée pour trouver le mot de passe Range-Notes ASAP eXPERT PDF 4 PRO Spécial CALENDRIER Avis de maintenance Affichage des messages Convertisseur PDF en TXT Affichage des messages Anti spam ! Arabesque Antémémoire 2007 déjà une grande année !! Gérer les absences par code couleur Programmes et jeux 300000 visites Vulnérabilités critiques dans Firefox S'abonner au fil RSS VériTi Reconnaissance site et forum Les citrouilles Halloween VériTi Menu "rétractable" pour les forums Nouveau site Fenêtre Popup vacances scolaires Google document Hommage Zone accessible aux seuls membres ! Programmes et jeux Trucs et astuces add-on format heures Spécial CALENDRIER Fini le flash nouvel an ! Merci Nouveauté Nouveau diaporama Détente VériTi Tour de magie !!! 500 200000! Fonctions Excel Musée VériTi et 'pi' alors !! Fichiers PPS Menu rétractable Reflet d'image SPAMS = grrr! Ensembles thématiques Jeu VeriTi CHAMROUSSE Recherche Changement d'heure Moteur de recherche Et le père Noël !! FLASH spécial VeriTible QCM-JCGL Enfin du Plein Ecran sous FireFox Bulles Habit de Noel Fini les flocons Stats VériTi et Foot Barre de menu images multiples Fin du VériTible-QCM-JCGL Joyeux Noel Bonne année 09 Stats VeriTiMap Trucs et astuces spécial "Saint VALENTIN" VériTi archivé ! Fini les flocons Copier / Coller une sélection en temps qu'image Etonnant non ? Acyd Insérer rapidement la date dans Excel Pour insérer rapidement l'heure dans une cellule essai Nouveau style pour le forum Optimiseur de compression pour Excel... Installer un logiciel complet GRATUITEMENT ! Spécial CALENDRIER ASAP Programmes et jeux 300000 visites Reconnaissance site et forum Changement d'heure Trucs et astuces spécial "Saint VALENTIN" Signal Spam Google document 200000! Musée VériTi Dix millième Arabesque Tour de magie !!! QUELLE VERSION EXCEL UTILISEZ-VOUS ? Anti spam ! Déposer des fichiers de plus de 50 Ko dans le forum Trucs et astuces Un million de visiteurs ACYD et durée pour trouver le mot de passe L'essentiel est dans Excel Bulles Google document Nouveauté Quoi de neuf su le site ? FLASH spécial QUELLE VERSION EXCEL UTILISEZ-VOUS ? Trouver rapidement les commandes Excel 2003 / 2007 Add-On pour retrouver ses petits en passant en XL 2007

 
Nouvelles
 
Boites de dialogue


Format de cellule Police
Polices

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellule Police
Application.Dialogs _
(xlDialogActiveCellFont).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Polices
Application.Dialogs _
(xlDialogFont).Show
End Sub

Format de cellule Alignement
Format de cellule Nombre

Cellule alignement

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellule Alignement
Application.Dialogs _
(xlDialogAlignment).Show
End Sub

xlDialogDeleteFormat.gif

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellule Nombre
Application.Dialogs _
(xlDialogDeleteFormat).Show
End Sub

Format de cellule Protection
Format de cellule Bordures

protection


Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellule Protection
Application.Dialogs _
(xlDialogCellProtection).Show
End Sub

Bordures


Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellule Bordures
Application.Dialogs _
(xlDialogBorder).Show
End Sub




Format de cellules Motifs
Options couleurs

Motifs

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Format de cellules Motifs
Application.Dialogs _
(xlDialogPatterns).Show
End Sub

couleurs

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options couleurs
Application.Dialogs _
(xlDialogColorPalette).Show
End Sub

Largeur de colonne
Hauteur de ligne

colonne

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Largeur de colonne
Application.Dialogs _
(xlDialogColumnWidth).Show
End Sub

xlDialogRowHeight.gif

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Hauteur de ligne
Application.Dialogs _
(xlDialogRowHeight).Show
End Sub

Rechercher
Remplacer

rechercher

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Rechercher
Application.Dialogs _
(xlDialogFormulaFind).Show
End Sub

remplacer

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Remplacer
Application.Dialogs _
(xlDialogFormulaReplace).Show
End Sub

Mise en forme conditionnelle
Définir un nom

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Mise en forme conditionnelle
Application.Dialogs _
(xlDialogConditionalFormatting).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Définir un nom
Application.Dialogs _
(xlDialogDefineName).Show
End Sub

Effacer
Réorganiser les
feuilles

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Effacer
Application.Dialogs _
(xlDialogClear).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Réorganiser les feuilles
Application.Dialogs _
(xlDialogArrangeAll).Show
End Sub

Associer une barre d'outils
Personnalisation des barres d'outils

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Associer une barre d'outils
Application.Dialogs _
(xlDialogAttachToolbars).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Personnalisation des barres d'outils
Application.Dialogs _
(xlDialogCustomizeToolbar).Show
End Sub

Ouvrir un fichier XLS
Importer fichier Texte

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Ouvrir un fichier XLS
Application.Dialogs _
(xlDialogFindFile).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Importer fichier Texte
Application.Dialogs _
(xlDialogImportTextFile).Show
End Sub

Supprimer un fichier
Propriétes du fichier

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Supprimer un fichier
Application.Dialogs _
(xlDialogFileDelete).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Propriétes du fichier
Application.Dialogs _
(/xlDialogProperties).Show
End Sub

Insérer un lien Hypertexte
Insérer un objet

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insérer un lien Hypertexte
Application.Dialogs _
(xlDialogInsertHyperlink).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insérer un objet
Application.Dialogs _
(xlDialogInsertObject).Show
End Sub

Macro Complémentaire
Executer Macro

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Macro Complémentaire
Application.Dialogs _
(xlDialogAddinManager).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Executer Macro
Application.Dialogs _
(xlDialogRun).Show
End Sub

Mise en page
Imprimer

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Mise en page
Application.Dialogs _
(xlDialogPageSetup).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Imprimer
Application.Dialogs _
(xlDialogPrint).Show
End Sub

Choix de l'imprimante
Copier une image

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Choix de l'imprimante
Application.Dialogs _
(xlDialogPrinterSetup).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Copier une image
Application.Dialogs _
(xlDialogCopyPicture).Show
End Sub

Insérer image Arrière plan

Insérer une image

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insérer image Arrière plan
Application.Dialogs _
(xlDialogSetBackgroundPicture).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insérer image Arrière plan
Application.Dialogs _
(xlDialogInsertPicture).Show
End Sub

Options d'affichage
Mode de calcul

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options d'affichage
Application.Dialogs _
(xlDialogDisplay).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Mode de calcul
Application.Dialogs _
(xlDialogCalculation).Show
End Sub

Insertion de cellule
Correction automatique

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insertion de cellule
Application.Dialogs _
(xlDialogInsert).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Correction automatique
Application.Dialogs _
(xlDialogAutoCorrect).Show
End Sub

Insérer feuille / graphique
Nouveau classeur

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Insérer feuille / graphique
Application.Dialogs _
(xlDialogWorkbookInsert).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Nouveau classeur
Application.Dialogs _
(xlDialogNew).Show
End Sub

Enregistrer sous
Protection de feuille

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Enregistrer sous
Application.Dialogs _
(xlDialogSaveAs).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Protection de feuille
Application.Dialogs _
(xlDialogProtectDocument).Show
End Sub

Options d'affichage
Options de calcul

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options d'affichage
Application.Dialogs _
(xlDialogOptionsView).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options de calcul
Application.Dialogs _
(xlDialogOptionsCalculation).Show
End Sub

Options de modification
Options générales

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options de modification
Application.Dialogs _
(xlDialogOptionsEdit).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options générales
Application.Dialogs _
(xlDialogOptionsGeneral).Show
End Sub

Options listes personnalisées
Option Internationnal

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Options listes personnalisées
Application.Dialogs _
(xlDialogOptionsListsAdd).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Option Internationnal
Application.Dialogs _
(xlDialogOptionsME).Show
End Sub

Collage spécial
Renommer une feuille

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Collage spécial
Application.Dialogs _
(xlDialogPasteSpecial).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Renommer une feuille
Application.Dialogs _
(xlDialogWorkbookOptions).Show
End Sub

Sélectionner les cellules
Déplacer ou copier

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Sélectionner les cellules
Application.Dialogs _
(xlDialogSelectSpecial).Show
End Sub

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Déplacer ou copier
Application.Dialogs _
(xlDialogWorkbookAdd).Show
End Sub

Zoom de feuille
Boite Mail

Sub BoiteDeDialogue()
'ouvrir la boite de dialogue
'Zoom de feuille
Application.Dialogs _
(xlDialogZoom).Show
End Sub

xlDialogSendMail.gif

Sub BoiteDeDialogue()
'ouvrir la boite
'de dialogue Mail
Application.Dialogs _
(xlDialogSendMail).Show
End Sub

Date de création : 18/02/2006 - 19:10
Dernière modification : 21/02/2006 - 11:11
Catégorie : Divers
Page lue 2557 fois

Prévisualiser la page Prévisualiser la page     Imprimer la page Imprimer la page

 
Réactions à cet article

Réaction n°1 

par Ki_Thab le 15/05/2006 - 19:19

Bonsoir

Il y a fort longtemps que je cherchais le moyen de faire afficher une boite de dialogue dans le cadre de l'exécution d'une macro-instruction .

Un merci immédiat en attendant une appréciation plus globale de la portée de l'article .

 
  afficher pagerank
 
Recherche sur VériTi
PROGRAMMES
Fichier


Recherche personnalisée
 
Aujourd'hui
Mercredi
08
Septembre 2010

Aujourd'hui :
Nativité


C'était aussi un 08 Septembre
1994

Les Soviétiques et les Alliés quittent Berlin après 49 ans d'occupation.

Né(e) un 08 Septembre 1910
Jean-Louis Barrault
 
Connexion...
  Membres: 1660

Pseudo:

Mot de passe:

[ Mot de passe perdu ? ]

[ Devenir membre ]

  Membre en ligne: 0
  Anonymes en ligne: 40
Webmaster - Infos
 
Newsletter VériTi
Pour avoir des nouvelles de ce site, inscrivez-vous à notre Newsletter.
S'abonner
Se désabonner
Merci de recopier le code numérique ci-dessus
captcha
2956 Abonnés
Dernière NEWS
 
Visites


1384431 

visiteurs
 
d'où venez-vous ?
 
^ Haut ^

- ©VériTi V.3 - 2004 / 2010 - V.LOHR (Vériland) T.POURTIER (Ti) -
Nuxit
  Site créé avec GuppY v4.5.5 © 2004-2005 - Licence Libre CeCILL