Marcheurs Boiteux

Bonjours à tous

voilà j'ai une erreur N° 9 que je n'arrive pas à résoudre

si il y avait quelqu'un qui pourrait me faire marcher çà

ce serai super

merci d'avance

slt,

l'erreur N° 9? quand?

Bonjour à tous,

Il ne doit pas y avoir d'erreur no 9, s'il n'y a pas de code.

Car ton formulaire du fichier soumis n'a pas de code.

ric

Ben si, il y a bien une bidouille de code ...

Private Sub Label25_Click()

End Sub

Private Sub UserForm_Click()

End Sub

https://docs.microsoft.com/fr-fr/office/vba/language/reference/user-interface-help/subscript-out-of-range-error-9

voir aussi sujets similaires ci-dessous

Voilà bizard

sur le mien chez moi il y a tout

et sur celui que j'ai envoyer il n'y a rien alors je recommence on verra bien

merci

Biensur je me suis tromper

Bonjour,

Magie ... le code est là.

Je regarde.

ric

Bonjour Bidouille

'Pour le bouton Nouveau contact

Private Sub CommandButton1_Click()

dans commandbutton 1 te manque des guillemets ()

Range("n" & L).Value = TextBox12

Et

dans le (ou est l'onglet se nommant Clients ?)

(-mettre Liste à la place)

Set Ws = Sheets("Clients") 'Correspond au nom de votre onglet dans le fichier Excel

crdlt,

André

Bonjour à tous,

André13, le chanceux (13), a relevé une erreur.

L'autre que j'ai relevé Set Ws = Sheets("Clients")

Le fichier soumis n'a pas de feuille nommée Clients ... en fait, les données sont sur la Feuil1.

Ces deux erreurs corrigés ... comment se comporte le fichier ?

ric

re,

coucou Ric

reste à effectuer :

Note 1 : Il reste des erreurs de date dans l'Userform1 et des textboxs vident

Note 2 : à corriger aussi dans l'userform1 la proprété du label10 (Enfants Gratuis par Enfants Gratuités )

Note 3 : à corriger inversion de certaines textbox dans l'userform1

ci-joint,

Merci quel efficacité

Re,

merci pour ton retour

j'ai un peu arrangé 2 trois trucs

ci-joint