Discussion :

[fafouille]

Bonjour,

Je me permets de faire appel aux experts VBA du forum pour trouver, je suis sûr, une solution à ma prise de tête...
voici mon userform ultra simplifié.



Voilà comment il s'articule grâce à un bouton je fais appel à cet userform je remplis mes textbox puis j'appuie sur ADD afin de les classer les uns à la suite des autres.
J'ai fait le test avec :

Code :

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

1
2
3
4
5
6
7
8
 
 
dim l as integer
 
l=Sheets("Feuil1").Range(« a65536 »).End(xlUp).Row + 1
 
range("a" & l)=textbox1.value
range("b" & l)=textbox2.value

Maintenant je désire figer une autre cellule à partir de laquelle je puisse récupérer les valeurs de mes Textbox.
En somme, sur c11 et d11 récupérer mes valeurs respectives de Tbox1 et Tbox2.

J'ai fais des tests avec range ("C11").select + With sans succès.

Je fais appel à votre expertise afin que vous m'aiguilliez sur le process à adopter pour capitaliser les données de mes Tbox dans les cellules C11 et D11 puis ajouter grâce à l'outil 'ADD' les nouvelles valeurs saisies dans mes TBox, les unes à la suite des autres.

Merci par avance de votre aide

[John Mc Evee]

Bonjour,

Si j'ai bien compris la question, l'idée est d'inscrire dans la TextBox1 la valeur de C11 ?

Essaye ceci :

Code :

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

textbox1.Text = range("C11").value

[fafouille]

En fait c’est le contraire 😊
Vous entrez des données dans les Txtbox vous cliquez sur «*add*» vous récupérer les valeurs préalablement sasies dans les Txtbox dans C11 et D11.
Puis vous saisissez de nouvelles données et grâce à bouton «*add*» les valeurs se rangent ligne par ligne.

[John Mc Evee]

Bonjour,

Alors il suffit d'inverser l'ordre de l'instruction :

Code :

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

 range("C11").value = textbox1.Text

Cependant lors de la seconde saisie les données précédentes seront effacer par la nouvelle saisie.

Pour incrémenter les données à la suite des autres il faut calculer la dernière ligne non vide. Pour cela utiliser le code suivant :

Code :

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

 range("C" & range("C65000").end(xlUp).row +1 ).value = textbox1.Text

A+

[fafouille]

Merci de votre réactivité. Cette ligne de code épure pas mal mon programme cependant je ne resous pas mon problème de démarrer à la cellule C11 et de poursuivre l’incrementation. Je vais essayer d’amender votre code avec un if...

[BENNASR]

Bonjour
si j'ai bien compris tu cherche à modifier les données existantes non??
c a d tu cherche à récupérer un code et les autre textbox se remplie et tu peux ensuite porter des modifications c'est ça non ??
si c'est le cas tu dois ajouter un combobox qui te permet de faire le choix et puis un bouton de commande pour modifier la ligne souhaitée