Discussion :

[simonlagaffe]

Bonjour,
Voilà mon problème:
J'ai créer un userform afin de pouvoir ajouter des données à un listing dans un tableau excel (Nom, Prenom, Adresse...)
Par contre, je souhaiterai pouvoir rappeler certaines de ces données dans un userform afin de les modifier.
Je m'explique: L'utilisateur sélectionnera une ligne ou cellule, et cliquera sur un bouton "Modification", et un userform apparaittra en reprenant les données du tableau, afin de pouvoir les modifier et de les remplacer dans le listing.
Mais je ne sais pas du tout comment m'y prendre... je bloque un peu la...
Peut on reprendre le même userform que celui pour la création ou dois-je en créer un nouveau identique?
Quel code utiliser pour celà?
Merci d'avance pour votre aide...

[Godzestla]

Bonjour,

Peut on reprendre le même userform que celui pour la création ou dois-je en créer un nouveau identique?

Bien sur que tu peux.
Pour t'expliquer, ce serait plus facile de voir ton code !!.

Un simple exemple pour transférer la cellule A1 de la feuille Sheet1 dans le controle Controletxt1 du userform Userform1 est

Code :

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

1
2
 
Userform1.Controletxt1 = Worksheets("Sheet1").Range("A1")

A l'inverse pour sauver

Code :

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

1
2
 
Worksheets("Sheet1").Range("A1") = Userform1.Controletxt1

[simonlagaffe]

Ah ok, meric pour cette info, je vois un peu comment procédé à présent pour recharger mon userform avec les données existante.
Par contre la question qui reste en suspend, c'est à l'aide de quel code lui définir la ligne a recharger dans le userform?!
Je vais devoir passer par une boulce pour ça, ça ne devrait pas être un problème, mais il me manque l'information de savoir comment retrouver sur quel ligne l'utilisateur à cliquer...
Je commence a écrire le code, et je te l'envoit.
Merci pour ces informations

[ouskel'n'or]

Un moyen simple d'utiliser le mode "reverse" USF - Read-Write-Find.zip
Si ça peut te donner des idées...
Bon après-midi

[Godzestla]

Citation Ouskelnor
Un moyen simple d'utiliser le mode "reverse" USF - Read-Write-Find.zip

Waw.... C'est beau comme un camion.
Dès que j'ai le temps j'essaierai de comprendre le fonctionnement.

[simonlagaffe]

Merci pour le programme que tu m'as envoyé ouskel'n'or, mais je vais avoir un peu de mal avec ça je pense. Il faurdrait que je m'y plonge d'avantage.
Sinon j'ai suivit la piste que m'as donné Godzestla, et ça marche trés bien, la userform se charge bien avec les données voulues.
Mais il me reste un petit problème, pour le moment, il en charge que les données que je lui dit de charger (en l'occurence celle de la ligne 6 ici).
Je voudrais savoir à présent quel code dois-je utiliser pour pouvoir faire un boucle et ainsi identifier la ligne (ou cellule) selectionné par l'utilisateur...

Voici le code jusqu'à présent:

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
Private Sub ModifAdh_Click()
Unload Nouveau  'Efface toutes les anciennes données de la userform
With Worksheets("Listing") 'Travail avec la feuille "Listing"
 
Nouveau.ListBox1 = Range("A6")
Nouveau.ComboBox1 = Range("B6")
Nouveau.Nom = Range("C6")
Nouveau.Prenom = Range("D6")
Nouveau.Naissance = Range("K6")
Nouveau.Rue = Range("E6")
Nouveau.CodePostal = Range("F6")
Nouveau.Ville = Range("G6")
Nouveau.Mail = Range("H6")
Nouveau.TelFixe = Range("I6")
Nouveau.TelPort = Range("J6")
Nouveau.ComboBox2 = Range("P6")
Nouveau.TextBox11 = Range("Q6")
Nouveau.Certif = Range("M6")
Nouveau.FicheInscrip = Range("N6")
Nouveau.Paiement = Range("O6")
 
Nouveau.Show 'Affichage de la Userform Nouveau Adhérent
End With
 
End Sub

Merci d'avance pour votre aide

[Godzestla]

Je voudrais savoir à présent quel code dois-je utiliser pour pouvoir faire un boucle et ainsi identifier la ligne (ou cellule) selectionné par l'utilisateur...

Peux-tu montrer ton code pour ce qui est en gras ? Ou dire comment la ligne cellule est sélectionnée.

Car le code de Ousk gère cela, mais je dois t'avouer que j'ai aussi du mal avec ce code hyper puissant.

[simonlagaffe]

Ba justement pour le moment il n'y a rien de ça dans le code que j'ai écrit...
C'est l'information qu'il me manque afin que je puisse créer une boucle à partir de ce que j'ai écrit précédemment comme code...
Il me faut savoir comment déterminer sur quel ligne l'utilisateur à sélectionner afin que je puisse remplacer mais valeurs A6,B6,C6... par Ai, Bi, Ci avec i étant la ligne sélectionnée...
Etant débutant dans le VBA, le programme de ouskel'n'or me parait trop costaud pour moi