Discussion :

[Viyaya]

Bonjour,

Pourriez vous m'aider à créer un formulaire VBA pour EXCEL. J'ai oublié tous mes cours de VBA ;(( et j'en ai besoin très rapidement... Du coup le temps de me rafraichir la mémoire, je serais à la retraite ! lol
J'ai regardé tous les tutos disponibles, mais je vous avoue ne rien comprendre.


J'ai un tableau un peu compliqué à lire et je souhaiterais créer un formulaire pour modifier les textes
contenu dans ce tableau.

J'ai effectué la partie mise en page. Mais je n'arrive pas à faire correspondre les champs avec les colonnes de mon
tableau.

Le nom de mon fichier est "produits"
L'onglet ou se trouve le tableau est "produits"


Je souhaiterais faire correspondre les différents champs voici l'impression écran.



Je vous remercie TRES SINCEREMENT DE VOTRE AIDE

bonne journée

[keygen08]

Bonjour
clic droit sur le bouton quitter, afficher le code
entre private sub et end sub ecrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Unload Me

[Viyaya]

Merci, mais vous n'avez pas d'idee pour le reste ?

[keygen08]

Il faut adapter tous les mots qui sont en vert
a copier tel quel dans le userform

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
Public r As Integer

Private Sub UserForm_Initialize()
Sheets("produits").Activate
r = 2
Call MAJ(r)
End Sub

Private Sub CommandButton3_Click() 'suivant
r = r + 1
Call MAJ(r)
End Sub

Private Sub CommandButton2_Click() 'precedent
r = r - 1
Call MAJ(r)
End Sub

Sub MAJ(r As Integer) 'mise a  jour des données

Me.ComboBox1 = Sheets("produits").Cells(r, 1) 'ID
Me.TextBox1 = Sheets("produits").Cells(r, 2) 'produits actif
Me.TextBox2 = Sheets("produits").Cells(r, 3) 'Produit
Me.TextBox3 = Sheets("produits").Cells(r, 4) 'Categorie
Me.TextBox4 = Sheets("produits").Cells(r, 22) 'breve...
Me.TextBox5 = Sheets("produits").Cells(r, 23) 'description
Me.TextBox6 = Sheets("produits").Cells(r, 24) 'etiquette
Me.TextBox7 = Sheets("produits").Cells(r, 28) 'URL
Me.TextBox8 = Sheets("produits").Cells(r, 31) 'url Images
Me.TextBox9 = Sheets("produits").Cells(r, 5) 'Prix d'achat

End Sub

Private Sub CommandButton4_Click() 'quitter
Unload Me
End Sub

[keygen08]

modifier comme suit suivant et precedent

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub ???????????_Click() 'suivant
Call enregistrer
r = r + 1
Call MAJ(r)
End Sub

et ajouter cela en dessous de la sub MAJ

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub enregistrer()
Sheets("produits").Cells(r, 1) = Me.ComboBox1 'ID
Sheets("produits").Cells(r, 2) = Me.TextBox1 'produits actif
Sheets("produits").Cells(r, 3) = Me.TextBox2 'Produit
Sheets("produits").Cells(r, 4) = Me.TextBox3 'Categorie
Sheets("produits").Cells(r, 22) = Me.TextBox4 'breve...
 Sheets("produits").Cells(r, 23) = Me.TextBox5 'description
Sheets("produits").Cells(r, 24) = Me.TextBox6 'etiquette
Sheets("produits").Cells(r, 28) = Me.TextBox7 'URL
Sheets("produits").Cells(r, 31) = Me.TextBox8 'url Images
Sheets("produits").Cells(r, 5) = Me.TextBox9 'Prix d'achat
End Sub

[Viyaya]

MERCI MERCI MERCI !!!!!

Juste le champ "ID" ne fonctionne pas il est vide

De plus, c'est tres etrange car les champs se remplissent dans le desordre.

Exemple : Le champs catégorie qui est sur mon tableau colonne 4 tel que vous avez pu l'ecrire
Me.TextBox3 = Sheets("produits").Cells(r, 4) 'Categorie
Apparais dans le champs URL image (qui est sur mon tableau colonne 31
Me.TextBox8 = Sheets("produits").Cells(r, 31) 'url Images

Je me suis permise de modifier le chiffre après le "r,"
résultat :
Me.TextBox8 = Sheets("produits").Cells(r, 4) 'url Images
Me.TextBox3 = Sheets("produits").Cells(r, 31) 'Categorie

je trouve cela très bizard et j'espere que cela n'aura pas d'influence sur les résultats.

Mais je ne sais pas à quoi correspond le "ID" car sur mon tableau c'est la première colonne

[Viyaya]

Bonsoir,

J'ai degrossi ENORMEMENT MON PROBLEME.

Voici le code VBA que j'ai mit.

Mon soucis maintenant est que mon formulaire se renseigne parfaitement mais je n'arrive pas a modifier mon tableau depuis mon formulaire.

Le voici :

Public r As Integer

Private Sub UserForm_Initialize()
Sheets("produits").Activate
r = 2
Call MAJ(r)
End Sub

Private Sub CommandButton3_Click() 'suivant
r = r + 1
Call MAJ(r)
End Sub

Private Sub CommandButton2_Click() 'precedent
r = r - 1
Call MAJ(r)
End Sub

Sub MAJ(r As Integer) 'mise a jour des données

Me.ComboBox1 = Sheets("produits").Cells(r, 2) 'ID
Me.TextBox1 = Sheets("produits").Cells(r, 13) 'produits actif
Me.TextBox2 = Sheets("produits").Cells(r, 28) 'Produit
Me.TextBox3 = Sheets("produits").Cells(r, 31) 'Categorie
Me.TextBox4 = Sheets("produits").Cells(r, 23) 'breve...
Me.TextBox5 = Sheets("produits").Cells(r, 22) 'description
Me.TextBox6 = Sheets("produits").Cells(r, 1) 'etiquette
Me.TextBox7 = Sheets("produits").Cells(r, 3) 'URL
Me.TextBox8 = Sheets("produits").Cells(r, 4) 'url Images
Me.TextBox9 = Sheets("produits").Cells(r, 5) 'Prix d'achat

End Sub

Private Sub CommandButton4_Click() 'quitter
Unload Me
End Sub


Pourriez vous m'aider ?

[keygen08]

Bonjour
clic droit sur le bouton modifier, visualiser le code et coller ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub modifier(r As Integer)
Sheets("produits").Cells(r, 2) = Me.ComboBox1   'ID
Sheets("produits").Cells(r, 13) = Me.TextBox1   'produits actif
Sheets("produits").Cells(r, 28) = Me.TextBox2  'Produit
Sheets("produits").Cells(r, 31) = Me.TextBox3 'Categorie
Sheets("produits").Cells(r, 23) = Me.TextBox4 'breve...
Sheets("produits").Cells(r, 22) = Me.TextBox5 'description
Sheets("produits").Cells(r, 1) = Me.TextBox6 'etiquette
Sheets("produits").Cells(r, 3) = Me.TextBox7  'URL
Sheets("produits").Cells(r, 4) = Me.TextBox8 'url Images
Sheets("produits").Cells(r, 5) = Me.TextBox9 'Prix d'achat
end if

Horriblement facile , non.
N'oublie pas de selectionner ton code et appuie sur # pour le rendre plus lisible et respecter les régles du forum .Cdt