Forums XLPages
Tous les messages (Débutant)
| Re: Format monétaire dans MsGbox | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 28-04-2013 17h55
Bonjour myDearFriend,
Un tout tout grand merci pour ta réponse rapide. Cela fonctionne à merveille. Je sais que tout cela vous parait simple, mais pour quelqu'un comme moi qui débute dans le vba sans autre support que les forums, ce n'est pas évident. Mais bon, c'est comme çà qu'on apprend. Encore merci, et pour la prochaine fois, je mettrai le code proprement. Bien à vous |
|
 |
|
|
| Format monétaire dans MsGbox | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 28-04-2013 16h08
Bonjour le forum,
J'affiche à la demande, pour un acheteur via une msgbox, la valeur du stock, et la valeur du stock optimal. Seulement, ces valeurs s'affichent en format standart, alors que je souhaiterais qu'elles s'affichent en €. Malgré mes recheches, je ne trouve rien. Comment faire ???? Merci de me guider. Voici mon code : Private Sub CommandButton7_Click() Dim GA As String Dim vstockA As Double Dim vstockO As Double GA = InputBox("Entrez le groupe acheteur", "Introduction du groupe acheteur") If GA = "BAR" Or GA = "bar" Or GA = "Bar" Then vstockA = Cells(5, 23) vstockO = Cells(5, 24) MsgBox ("Valeur Stock Actuel : " & vstockA & Chr(10) & "Valeur Stock Optimale : " & vstockO) End If End Sub |
|
|
|
|
|
| Re: Mot de passe sur bouton | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 27-04-2013 18h48
Bonjour,
Un très grand merci pour cette réponse. C'était vraiment plus compliqué que je ne pensais. Super chouette ce forum !! Bien à vous |
|
|
|
|
|
| Mot de passe sur bouton | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 21-04-2013 10h45
Bonjour à tous,
j'ai mis un mot de passe sur un bouton, afin d'empêcher les autres utilisateurs d'accéder aux onglets du tableau. Le problème, c'est que le mot de passe apparait en clair dans l'inputbox. Comment faire pour qu'il apparaisse masqué? ( ******) Merci pour votre aide. Ps : voici le code vba : Private Sub CommandButton4_Click() Dim sPass As String If MsgBox("Etes-vous le concepteur du programme ?", 4 + 32, "Demande du concepteur") = vbYes Then Else End End If Do sPass = InputBox("Veuillez saisir le mot de passe") If sPass = "mon mdp" Then Exit Do End If Loop While 1 = 1 ActiveWindow.DisplayWorkbookTabs = True End Sub |
|
|
|
|
|
| Re: Modification de date suite à une modification de cellule | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 16-04-2013 19h45
Bonsoir,
J'ai trouvé!! Cela ne fonctionnait pas car la cellule qui devait être modifiée était en mode protégé. |
|
|
|
|
|
| Re: Exécution d'une macro au démarrage. | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 16-04-2013 19h41
Bonsoir Chris,
Cela fonctionne. J'avais pas capté la bonne façon de faire. Merci beaucoup |
|
|
|
|
|
| Re: Modification de date suite à une modification de cellule | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 16-04-2013 13h25
Bonjour,
Cela marche bien sauf si je suis en réseau. J'ai une erreur sur la ligne suivante : Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim Lmax As Long 'Ne gère pas les modifications par plage entière If Target.Count > 1 Then Exit Sub Lmax = Cells(Rows.Count, 1).End(xlUp).Row 'Si modif du stock réel en colonne E If Not Application.Intersect(Target, Range(Cells(36, 15), Cells(Lmax, 40))) Is Nothing Then If Target.Value <> Target.Offset(38, 15).Value Then 'Si quantité change (colonne E <> colonne J), alors insérer la Date du jour en colonne G Target.Offset(2, 0).Value = Date End If End If End Sub Que faut-il faire? Merci de votre aide |
|
|
|
|
|
| Re: Exécution d'une macro au démarrage. | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 15-04-2013 21h08
Bonsoir Chris,
Merci pour ta réponse, mais je dois encore activer moi-même. Voici ce que j'ai écrit : Private Sub Workbook_Open() Sub Bienvenue() MsgBox ("Bonjour et bienvenue") End Sub Dans la liste déroulante à gauche, je n'ai d'autre choix que de mettre "général" et en inscrivant "Private Sub Workbook_Open()" tel que ci-dessus, dans celle de droite vient se mettre automatiquement "worbook_open". Merci de me dire où est l'erreur Bien à vous |
|
|
|
|
|
| Exécution d'une macro au démarrage. | ||
|---|---|---|
|
Inscription: 14/04/2013
Messages:
9
Système d'exploitation: PC Version Excel utilisée: 2007, 2010 |
Posté le : 15-04-2013 18h43
Bonjour,
je souhaiterais qu'une macro s'éxécute à l'ouverture de mon tableau ( exel 2010 ). J'ai inscrit ceci en VBA : Sub Hello() MsgBox ("Bonjour et bienvenue") End Sub Seulement, la macro ne s'exécute que si je l'actionne moi-même. Pouvez-vous m'aider à résoudre ce problème ? Pour info, je débute en VBA et apprends par moi-même, donc merci d'être indulgent. Bien à vous
Edité par Débutant le 17/04/2013 19:43:46
|
|
|
|
|
|
Didier FOURGEOT