Demande aide pour UserForm vba Excel

Novasim220 Messages postés 15 Statut Membre -  
 Vaillance -
Bonjour à tous,
voila mon problème et si quelqu'un pourrait m'aider çà serait sympa.
J'ai créer un Userform pour pouvoir entrer directement des valeurs dans une feuille XL.
Dans la feuille j'ai 4 colonnes ( A B C D). Dans le USF j'ai 3 textbox dans lesquelles je rentre les valeurs pour les colonnes B C D.
J'aimerai que quand je valide les données du USF, que dans la colonne 1 de la feuille s'inscrive automatiquement une valeur.
Par exemple : je valide mes premières valeurs dans l'USF donc il faudrait en A2 = 1; si je rentre de nouvelles valeurs dans le USF A3 = 2 ect.....
Clair n'est il pas ?????
Le code pour renter les valeurs du USF vers la feuille est OK aussi pour écrire de ligne en ligne mais c'est l'incrémentation de la colonne 1 qui me pose problème
donc si quelqu'un à une idée et qu'il veut bien m'aider !!!!
Merci et bonne journée

6 réponses

  1. Lupin
     
    Slt,

    Pas sur de bien comprendre la difficulté ?

    Exemple : 

    Private Sub cmd_Valide_Click()

    If (Tbx_Col_B.Value <> "") Then
        If (Tbx_Col_C.Value <> "") Then
            If (Tbx_Col_D.Value <> "") Then
                ActiveCell.Offset(0, 0).Value = (ActiveCell.Row - 1)
                ActiveCell.Offset(0, 1).Value = Tbx_Col_B.Value
                ActiveCell.Offset(0, 2).Value = Tbx_Col_C.Value
                ActiveCell.Offset(0, 3).Value = Tbx_Col_D.Value
                Tbx_Col_B.Value = ""
                Tbx_Col_C.Value = ""
                Tbx_Col_D.Value = ""
                ActiveCell.Offset(1, 0).Select
            End If
        End If
    End If
    
End Sub
'


    Lupin
    0
  2. Lupin
     
    re:

    ligne cible : 

      ActiveCell.Offset(0, 0).Value = (ActiveCell.Row - 1)


    Lupin
    0
  3. Novasim220 Messages postés 15 Statut Membre
     
    Salut Lupin,
    Merci pour ta réponse, je vais tester çà et te tiens au courant.
    C'est sympa de m'avoir répondu.
    @+
    0
  4. Lupin
     
    re:

    bienvenue, c'est un plaisir :-)

    Lupin
    0

  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. Novasim220 Messages postés 15 Statut Membre
     
    Resalut Lupin,
    je viens de tester ton code et c'est exactement ce qu'il me fallait. Peut tu lire le second post que j'ai mis (Tri automatique), en fait c'est pour trier automatiquement les valeurs de la colonne B.
    Merci pour ton aide
    @+
    0
  7. Vaillance
     
    Bonjour

    J'ai un document comprenant 14 feuilles de calcul.
    13 sont des budgets (revenus et dépenses)
    la 14 ième est le sommaire de l'ensemble des 13 feuilles

    Chaque dépense est enregistrée dans son budget et ainsi de suite. Les dépenses s'enregistrent automatiquement au sommaire.
    Travail très banal en somme.
    Mais voilà qu'un problème est apparu. .Plus aucune cellule ne se calcule dans mes feuilles de calcul ainsi que dans mon sommaire.

    En un mot tout est gelé.

    Ce problème apparaît pour la 2ième fois mais sur 2 travaux complètement différents.

    Solution ou non.
    Merci de bien vouloir me répondre.

    Vaillance
    0