ArchiveAgain
Messages postés7Date d'inscriptionlundi 7 novembre 2005StatutMembreDernière intervention 3 mars 2006
-
3 mars 2006 à 15:17
nanougat
Messages postés40Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention26 octobre 2007
-
5 mars 2006 à 13:05
2 questions :
_ sur le premier bouton que je crée, je n'arrive pas à configurer automatiquement l'information caption. Je souhaiterais que Caption=chantier. Je pense qu'il faut que je récupère le numéro du CommandButton Créer mais je ne sais pas comment ?
_ sur les deux boutons créés, je voudrais les configurer pour que quand je clique sur le premier j'arrive sur la page du deuxième et réciproquement mais la aussi mystère ?
Merci d'avance
Private Sub Commandbutton1_click()
Dim chantier As String
Dim consultant As String
Dim nblot As Integer
chantier = InputBox("Nom du Chantier à créer ?")
If chantier = "" Then
MsgBox "Nom Incorrect"
Exit Sub
End If
consultant = InputBox("Nom du consultant ?") If consultant "Antoine" Or consultant "Kristell" Or consultant = "Jean-Philippe" Or consultant = "Daniel" Or consultant = "Thibaut" Then
Sheets.Add.Name = chantier
MkDir ("X:" & consultant & "" & chantier)
Else
MsgBox "Nom Incorrect"
Exit Sub
End If
Dim n As Integer
Dim i As Integer
Dim nom As String
nblot = InputBox("Combien de lots en charge ?")
n = 0
For n = 1 To nblot
nom = InputBox("Nom du lot n°" & n)
MkDir ("X:" & consultant & "" & chantier & "" & nom)
i = 2 * n + 1
Sheets(chantier).Cells(i, 3).Hyperlinks.Add Sheets(chantier).Cells(i, 3), "X:" & consultant & "" & chantier & "" & nom, , , nom
Next n
ArchiveAgain
Messages postés7Date d'inscriptionlundi 7 novembre 2005StatutMembreDernière intervention 3 mars 2006 3 mars 2006 à 19:52
pour la première question je veux justement éviter de passer par le
mode création et que l'info caption se remplace en fonction des saisies.
et pour les boutons je veux aussi éviter de saisir un autre code car
ils sont créés automatiquement et je souhaiterais aussi que la fonction
soit créée automatiquement.
ArchiveAgain
Messages postés7Date d'inscriptionlundi 7 novembre 2005StatutMembreDernière intervention 3 mars 2006 3 mars 2006 à 22:08
Bonsoir
Pour la question1 c'est justement ce que je veux sauf que le numéro du
bouton n'est pas fixe et j'aimerais savoir comment je peux le récupérer
pour ensuite écrire ActiveSheet.CommandButtonX.Caption = chantier
pour la question 2: pourrais tu avec le code précédent me dire quel syntaxe exact car je n'y arrive pas.
nanougat
Messages postés40Date d'inscriptionsamedi 6 novembre 2004StatutMembreDernière intervention26 octobre 2007 5 mars 2006 à 13:05
Bonjour
Tu peux créer une macro qui fait référence à une feuille qui n'existe
pas encore : tu glisse un "On Error Resume Next" avant l'appel de la
feuille, ce qui a pour effet de sauter la commande suivante si il y a
erreur. Mais il faut que la feuille créée ai le même nom bien entendu.
Pour le module, tu fais Alt F11 pour entrer dans visual basic, et tu
insères un module. Là tu peux y coder des sub, function et autres qui
seront accessibles de tes autres endroits : feuilles,...