Problème à l'ouverture
Bonjour à tous,
Me voilà pris avec autre chose une solution SVP.
J'ai crée un projet sous MAC. Je l'ai transféré sous PC.
Quand je l'ouvre sous PC il m'annonce une alerte je cite :
Excel a rencontré une erreur et a supprimé une partie de la mise en forme pour éviter d'endommager le classeur. Revérifiez soigneusement votrre mise en forme.Après la fermeture ça va. Mais quanq je clique sur un bouton pour commencer à entrer les données. Il me signale
"ERREUR D'EXÉCUTION '381' Impossible de définir la propriété List. index de table de propriété non valide.Quelqu'un pourrait-il m'aider sur ce problème
Merci d'avance
Amicalement
Noçel
Bonjour,
Pour le premier souci, c'est dû à une mise en forme spécifique qui n'est pas reconnue sur les deux plateformes Mac et PC.
Pour le deuxième souci, faudrait voir ton code mais si tu as un pb avec la propriété List, c'est probablement dû à la définition de ta plage.
Amicalement
Re,
Bonjour Dan,
Le projet marche à merceil sur MAC Alors sous PC il me donne cette information.
Quant à la plage il est bien déterminé comme ceci
ComboBox1.List() = Sheets("recap").Range("a6:a20").Value
Il ne devrait pas y avoir de souci.
@+
Amicalement
Noel
re,
Juste une question, la feuille "recap" est bien nommée ?? sans accent et / ou espace derrière le "p" ?
Amicalement
Bonjour à tous,
Bonjour Dan,
Si c'était le cas même sous MAC il n'aurait pas fonctionné.
Par acquis de conscience j'ai vérifié c'est bon.
Quand je clique sur le bouton qui normalement m'ouvrirait mon USF me donne l'erreur citée dans mon précédent message, il m'emmène directement sur la macro de l'USF
Sub RECETTE()
Usf_Matrice.Show
End Sub
et bien sur l'erreur se trouve sur la ligne de l'USF.
J'ai bien vérifié également que l'USF est bien nommé et bien écrit.
C'est désolant de te mettre à contribution pour si peu de chose
Mais le résultat de Microsoft est là un même logiciel fonctionne différemment entre MAC et PC
Amicalement
Noel
Re,
Dans ton USF, au lieu de l'instruction que je t'ai donné avant essaie d'utiliser ce code :
For i = 6 To 20
ComboBox1.AddItem Sheets("Recap").Range("A" & i)
NextAmicalement
Re,
j'avais pensé à utiliser additem mais je ne savais pas comment faire
Merci Dan
@+