Demande aide pour UserForm vba Excel

Fermé
Novasim220 Messages postés 15 Date d'inscription jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006 - 22 déc. 2005 à 08:47
 Vaillance - 8 févr. 2008 à 21:28
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
22 déc. 2005 à 14:32
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
22 déc. 2005 à 14:35
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 jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006
22 déc. 2005 à 14:41
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
22 déc. 2005 à 14:57
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 jeudi 22 décembre 2005 Statut Membre Dernière intervention 2 janvier 2006
22 déc. 2005 à 14:59
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
8 févr. 2008 à 21:28
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