URGENT SVP
Bonjour,
Je n'arrive pas à trouver le couaque sur cette macro, aidez moi svp j'en aurai besoin pour ma these à rendre bientôt.
Merci par avance
Bonsoir,
Je t'ai dit de supprimer (remplacer) tous les "As Control" par rien. As-tu essayé ?
En dehors de ça je ne vois pas de problème... Sinon préciser quel est le problème !
A+
Tu veux dire supprimer que as control ou toute la ligne.
Quand je lance la macro j'ai un message d'erreur qui dit "Incompatibilité de type" sur ce code surligner ci dessous/
Private Sub addToSheet(ByRef sheet() As Control, ByRef question() As Control, ByVal ordinalPos)
For process = 0 To UBound(question)
[u]Set sheet(ordinalPos, sheet) = question(process)
[/u] Next
End Sub
Quand tu vas dans le VBA de ton UserForm.
Tu fais Ctrl + H (ou dans le menu VBA : Edition > Remplacer)
Rechercher : "As Control" (sans guillemets)
Remplacer par : "ne rien mettre"
Puis cliquer sur Remplacer tout.
Normalement tu dois avoir un Message "58 remplacements effectués."
Ça devrait être suffisant pour te débloquer la situation.
Bon après, il faut finir le boulot hein ! Et ça, ça ne sera pas le plus facile.
C'est toi qui a pondu ce USF ou tu as piqué ça au hasard sur la toile ?
A+