Microsoft 365 Excel 365 Problème VBA

[jo50160]

bonjour à tous.
voilà, j'ai créer dans classeur Excel, ou il y a sur feuille "Accueil" sur cette feuille il y a une liste en mois une autre avec les années, un CommandButton.1, qui devrait copier la feuille Modèle et la recopier avec onglet nommer mois et années. Mais j'ai un problème en VBA. quelqu'un peut il m'aidé.
Merci.

 

[sylvanu]

Bonjour Jo,
Vous avez :

Private Sub CommandButton1_Click()
Sub InsereFeuille()

Et le message est :

Vous ne pouvez pas avoir deux déclarations Sub qui se suivent sans un End sub pour clore la première.


Pour résoudre le problème supprimez la ligne : Sub InsereFeuille()
Ca marchera nettement mieux. 🙂

 

[fanfan38]

Bonjour
Ci joint votre fichier corrigé...
additem ne marche pas sur un combobox qui est sur une feuille

A+ François

 

[jo50160]

Merci beaucoup
Sylvanu & Fanfan38 pour votre aide qui ma était précieux.
Cordialement.👍

 

[job75]

Bonsoir à tous,

additem ne marche pas sur un combobox qui est sur une feuille

Où as-tu vu ça François ? Sur le fichier joint cette macro fonctionne très bien :

Private Sub ComboBox1_GotFocus()
Dim i
ComboBox1.Clear
For i = 1 To 10
    ComboBox1.AddItem i
Next
End Sub

Edit : cela dit chez moi il vaut mieux ne pas cliquer sur le bouton de la flèche en entrant dans la ComboBox...

A+

 

[fanfan38]

Salut Job
Sur l'aide excel....
A+ François

 

[job75]

Bonjour François, le forum,

Sur l'aide excel....

Sur Copilot ? C'est parfois pas très brillant...

Mais comme je l'ai dit quand chez moi je clique une 1ère fois sur la flèche la liste ne se déroule pas, il faut un 2ème clic.

Pour éviter cet inconvénient on peut faire des envois de touches pour dérouler la liste :

Private Sub ComboBox1_GotFocus()
Dim i
ComboBox1.Clear
For i = 1 To 10
    ComboBox1.AddItem i
Next
CreateObject("WScript.Shell").SendKeys "%{DOWN}{ESC}%{DOWN}" 'envois de touches pour dérouler la liste
End Sub

Edit : autre solution si l'on n'aime pas l'envoi de touches :

Private Sub ComboBox1_GotFocus()
If ComboBox1.ListCount Then ComboBox1.DropDown: Exit Sub 'déroule la liste
Dim i
For i = 1 To 10
    ComboBox1.AddItem i
Next
ActiveCell.Activate: ComboBox1.Activate 'désactive et réactive la ComboBox pour relancer la macro
End Sub

A+

 

[job75]

Mais bien sûr avec la propriété .List c'est beaucoup plus simple :

Private Sub ComboBox1_GotFocus()
ComboBox1.List = [ROW(1:10)]
End Sub