Sos erreur macro

[s2fruit]

Bonjour à tous 😀
J'ai compilé quelques lignes Vba glanées ici la sur le forum et avec l'aide de quelques uns, j'ai essayé de me réaliser une base de travail pour mon association. Malheureusement je bloque sur un message d'erreur qui m’empêche d'utiliser les beaux UsF que j'ai créé 😡😕😕
Je vous avoue que je suis débutant en vba et j'essaie surtout d'adapter des codes trouvés sur le forum.
Merci infiniment pour ceux ou celles qui peuvent me donner un coup de pouce 😱

 

[JCGL]

Re : Sos erreur macro

Bonjour à tous,

Dans l'USF3, tes TextBoxes commence à 2. Peux-tu essayer :

Private Sub ComboBox1_Change()
 Dim L As Byte, C As Byte
For L = 1 To UBound(Tabtemp, 1)


If Tabtemp(L, 1) = UsF_3.ComboBox1.Text Then
   For C = 2 To UBound(Tabtemp, 2)
     Me.Controls("Textbox" & C) = Tabtemp(L, C)
   Next
   Exit For
End If
Next
End Sub

A+ à tous

Edition: Salut BH². Cela fait longtemps que nous nous sommes croisés... 🙂

 

[Cousinhub]

Re : Sos erreur macro

Bonjour,

Il n'y a pas de TextBox nommé "TextBox1" dans ton USF2...

D'où l'erreur...

Bon courage

Edit : Un peu long, moi.. Salut JC 😀

 

[s2fruit]

Re : Sos erreur macro

Bonjour,

Il n'y a pas de TextBox nommé "TextBox1" dans ton USF2...

D'où l'erreur...

Bon courage

Edit : Un peu long, moi.. Salut JC 😀

Bonjour JC & Brestois 😉
Je suis dans les choux malgré les modifications 🙁
Peut-etre me suis je compliqué les choses avec ces codes 😕😕😕
En fait ce que je voudrais arriver à faire c'est :
Saisir , Modifier , Consulter, des enregistrements dans ma base (Feuil1) au moyen d'un ou plusieurs USF
🙄 vous croyez que c'est possible ?

 

[s2fruit]

Re : Sos erreur macro

Bonjour le forum 😉
Mon précedent post n'ayant pas eu de solution 🙁 je modifie ma demande en la simplifiant le plus possible 😱
Je voudrais une piste, un début de code pour arriver à faire ce que je décris dans mon fichier exemple.
Je vous remercie pour votre aide 🙄

 

[camarchepas]

Re : Sos erreur macro

Bonjour ,

Avant d'aller plus loin,

J'ai pas détaillé les userforms , mais hormis la combobox pour le formulaire modifier , ils sont identiques .?

Pourquoi ne pas utiliser le même.

Sinon pour faire simple , même si c'est moins top qu'une boucle , vu le peu de champs que tu as , tu peux faire des transferts directs .

Les exemples ci aprés sont hors contexte et à adapter :

Principes :

transfert formulaire vers base :

Range("A2") = Combobox1 ' Nom Prenom
range("B2")=textbox2' Adresse

tiens y'a le code postal mais pas la ville ?

range("C3")=textbox3

Transfert de la feuille vers le formulaire :

Combobox1=range("A2")
textbox2=range("B2")
textbox3=range("C2")

Ensuite les méthodes de localisation de la bonne ligne :

Ajout ( Dans un premier temps à la fin de la base :

LigneFin = range("A" & rows.count).end(xlup).row' Derniére ligne utilisée dans la colonne A

et don range("A" & lignefin+1)=Combobox1

Modification :

set Trouve = range("A:A").find(combobox1.text,lookat:=xlwhole) 'Recherche de la cellule contenant le nom prenom
ligne = trouve.row

range("A' & ligne) = combobox1.text
range("B" & ligne)= textbox2

voilà les principes

 

[laetitia90]

Re : Sos erreur macro

bonjour tous 🙂🙂🙂🙂

un exemple basique a adapter

 

[s2fruit]

Re : Sos erreur macro

bonjour tous 🙂🙂🙂🙂

un exemple basique a adapter

MERCI BEAUCOUP Lætitia 😉 c'est vraiment chouette de ta part. J'ai juste un souci sur le bouton supprimer qui ne supprime pas les bonnes données et m’enlève la ligne de titre de ma base de donnée 😕😕😕
Bien amicalement 🙄

 

[laetitia90]

Re : Sos erreur macro

re tous 🙂


c'est 4 a la place de 2 vu que les données demarre row 4

Private Sub suppr_Click()
  If C1.ListIndex > -1 Then Feuil1.Rows(C1.ListIndex + 4).Delete: es
End Sub

je viens de voir que tu as crée un autre post pas facile de si retrouver dans ce cas la !!!!

 

[s2fruit]

Re : Sos erreur macro

Gérard, Bernard, Laetitia, JC et pardon pour ceux que j'oublie 🙄 après quelques essais 😱😱😱
j'arrive enfin vers le fichier souhaité 😉 mais je bute sur la fin avec un message d'erreur.
MERCI de votre aide et patience 😱
Amicalement.

 

[herve62]

Re : Sos erreur macro

Bonsoir tous
j'ai vérifié et testé > Aucune erreur
Suggestion Amélioration : j'aurai mis un bouton de validation en + pour Nouveau