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

[Trystan441]

Bonjour,

Je pense que le code que vous trouverez ci-dessous pourrait vous aider :

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
Sub ModifFournisseur()
 
'Compte le nombre de ligne de ma BDD
Dim Ligne As Integer
Ligne = Sheets("Renseignement").Range("M3:M" & Rows.Count).End(xlDown).Row
 
'Demande le nom du fournisseur afin de trouver par la suite ses informations
Dim Frn As String
Frn = InputBox("Quel est le nom du fournisseur ?")
 
For Ligne = 3 To Ligne
 
'Boucle permettant de trouver à quelle ligne se trouve mon fournisseur
If Frn = Cells(Ligne, 13) Then
    InfoFrn.NomFrn = Cells(Ligne, 13)
    InfoFrn.ContactFrn = Cells(Ligne, 14)
    InfoFrn.AdresseFrn = Cells(Ligne, 15)
    InfoFrn.PaysFrn = Cells(Ligne, 16)
    InfoFrn.TDLFrn = Cells(Ligne, 17)
    InfoFrn.NumFrn = Ligne
 
End If
 
Next
 
InfoFrn.Show
 
End Sub

Le but de ce dernier est d'aller chercher les données associées à un fournisseur en fonction de celui dont on a besoin.

Pour cela, je demande en InputBox le nom du fournisseur afin que mon formulaire puisse retrouver tout ce qu'li me faut.

Ps : Chaque valeur trouvée est inscrite dans un TextBox.

Bonne journée,

[fafouille]

Voici une partie de mon programme:

Pour simplifier je n’inclurais pas mon userform ni mes textbox. Le code s’articule comme suit :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Primate sub test()
 
Dim l as integer
Dim obs as worksheet, feuil1 as worksheet
 
Set feuil1=thisworkbook.worksheets("obs")
l=feuil1.cells(columns(1).cells.count,1).end(xlup).row +1
Range("a" & l).value= "1"
Range("b" & l).value= "2"
 
End sub

Si vous exécutez ce programme dans une feuille vous obtiendrez les valeurs 1 en A2 et 2 en B2 puis A3–B3... à chaque fois que vous allez l’exécuter.
Mon problème est que je n’arrive pas à cibler le départ de incrémentation (ici C11) pour obtenir les valeurs 1 dans C11 et 2 dans D11 puis à chaque exécution du programme avoir 1 et 2 dans les cellules en dessous (C12-D12, C13-D13...) d’où mon End(xlup).row.

J’espère avoir clarifié mon souhait.

A+

[fafouille]

Oups :

Correction du feuil1 as worksheet
Dim obs as woksheet, feuilobs as worksheet

(obs= onglet et feuilobs =variable objet)

[John Mc Evee]

Votre logique d'incrémenter un If était bonne:

Pour forcer le début à 11

Code :

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

1
2
3
4
l = Feuil1.Cells(Columns(1).Cells.Count, 1).End(xlUp).Row + 1
If l < 11 Then
    l = 11
End If

Pour les colonnes C et D modifier la lettre dans les Range

[fafouille]

Nickel 👌 john.
Mon programme devient

Code :

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

1
2
3
4
5
6
7
8
9
10
...
l=FeuilObs(columns(1).cells.count, 3).row +1
If l<11 then
    l=11
End if
 
Range("c" & l).value=textbox1.value
' Idem pour d
 
....

Il works !

Merci pour vos réponse mais plus particulièrement à john

[EDIT] Pas oublier de mettre cells entre feuilobs et la parenthèse