Demande aide pour UserForm vba Excel

Novasim220 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention   -  
 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
A voir également:

6 réponses

Réponse 1 / 6
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
Réponse 2 / 6
Lupin
 
re:

ligne cible : 

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


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

bienvenue, c'est un plaisir :-)

Lupin
0

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

Posez votre question
Réponse 5 / 6
Novasim220 Messages postés 15 Date d'inscription   Statut Membre Dernière intervention  
 
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
Réponse 6 / 6
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