texbox

Question

je d&#233;bute avec vba et j'ai un pb avec ma textbox

ActiveSheet.Range("d7") = UserForm1.TextBox5.Value

mon pb c'est que je n'arrive pas a le faire changer de cellule a chaque saisie saisie 1 resultat  en "d7"  ok
                                  saisie 2 resultat en "d8"   et la cela efface  "d7".

c'est  pour faire une boite de dialogue  qui remplie juste un tableau..

en gros je veux je mettre une consigne qui dit: si "d7"' est remplie ecrire le resultat en "d8" et ainsi de suite

merci a tous

bouv · Answer

Utilise ce code

    Dim i As Integer
    Dim Ligne_Mini As Integer
    Dim Ligne_Maxi As Integer
    
    Ligne_Mini = 2
    Ligne_Maxi = 125
    
    For i = Ligne_Mini To Ligne_Maxi
        If ActiveSheet.Range("D" & i).FormulaR1C1 = vbNullString Then
            ActiveSheet.Range("D" & CStr(i)).FormulaR1C1 = UserForm1.TextBox5.Value
            Exit For
        End If
    Next i

Ligne_Mini est la premi&#232;re ligne a remplir
Ligne_Maxi est la derni&#232;re ligne &#224; remplir

En fait on parcour toutes le lignes pour v&#233;rifier si quelque chose y est saisi. Et si la cellule est vide (vbNullString) alors on met la valeur dans cette cellule. Et on quitte la boucle (Exit For).

Bonne prog
++

lobapir · Answer

merci pour les infos 

le pb restant c'est qu'avec ce code chaque caractere saisie s'inscrit
dans une cellule .   ex :  cell d7= b
                                         d8= bo
                                         d9=bon

alors que je veux "bon" dans la cellule d7 et que pour un autre mot ce soit la d8 qui se remplisse .

lobapir · Answer

merci pour les infos 

le pb restant c'est qu'avec ce code chaque caractere saisie s'inscrit
dans une cellule .   ex :  cell d7= b
                                         d8= bo
                                         d9=bon

alors que je veux "bon" dans la cellule d7 et que pour un autre mot ce soit la d8 qui se remplisse .

lobapir · Answer

merci pour les infos 

le pb restant c'est qu'avec ce code chaque caractere saisie s'inscrit
dans une cellule .   ex :  cell d7= b
                                         d8= bo
                                         d9=bon

alors que je veux "bon" dans la cellule d7 et que pour un autre mot ce soit la d8 qui se remplisse .

lobapir · Answer

desol&#233; pour les envois a repet&#233;s je me suis un peu exit&#233; sur ma souris

bouv · Answer

Impossible. Pas avec le code tel qu'il est l&#224;. N'aurait tu pas rajout&#233; quelque chose par hasard : une fonction Left par exemple ou autre chose ?

Sinon mail moi ton .xls je regarderai.

[mailto:BouvetDavid@hotmail.com BouvetDavid@hotmail.com]

Bonne prog
++

Texbox

6 réponses

Discussions similaires