Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
1666 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu]Utilisation formulaire

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[Résolu]Utilisation formulaire

n°2180994
meurder
Posté le 17-03-2013 à 16:12:56  profilanswer
 

Bonjour à tous,
 
Étant débutant sur Excel/VBA, j'aurai besoin d'aide sur un petit problème.
J'ai actuellement un fichier Excel qui comporte une feuille avec un tableau dont je voudrais remplir les lignes en fonction des réponses apportés par l'utilisateur grâce à un formulaire que j'ai créé.
 
Petite subtilité, je voudrais que mon code détecte si la 1ère ligne de mon tableau est déjà remplie et donc passe automatiquement à la suivante jusqu'à trouver une ligne vide.
 
J'ai écris un bout de code mais qui malheureusement écris toujours sur la 1ère ligne et je n’arrive pas à voir d'où vient l'erreur.
 
Voici mon code qui s’exécute lorsque je clique sur le OK du formulaire :  
 
Dim Ligne_depart As Integer
 
Ligne_depart = 24
 
While Sheets("Données" ).Range("I" & Ligne_depart).Value <> Null
    Ligne_depart = Ligne_depart + 1
Wend
 
Sheets("Données" ).Range("I" & Ligne_depart).Value = TextBox3.Value
 
 
Merci d'avance aux personnes qui pourraient me répondre  :)


Message édité par meurder le 18-03-2013 à 09:47:53
mood
Publicité
Posté le 17-03-2013 à 16:12:56  profilanswer
 

n°2180998
Marc L
Posté le 17-03-2013 à 17:35:05  profilanswer
 

 
           Bonjour !   C'est le test du While qui n'est pas bon, ce serait mieux avec  <> ""  …
 
           Sinon une seule ligne de code est nécessaire pour ce petit problème

Code :
  1. Private Sub OK_Click()
  2.     Worksheets("Données" ).Cells(Rows.Count, "I" ).End(xlUp)(2).Value = TextBox3.Value
  3.     Unload Me
  4. End Sub

n°2180999
meurder
Posté le 17-03-2013 à 17:56:38  profilanswer
 

Marc L a écrit :

 
           Bonjour !   C'est le test du While qui n'est pas bon, ce serait mieux avec  <> ""  …
 
           Sinon une seule ligne de code est nécessaire pour ce petit problème

Code :
  1. Private Sub OK_Click()
  2.     Worksheets("Données" ).Cells(Rows.Count, "I" ).End(xlUp)(2).Value = TextBox3.Value
  3.     Unload Me
  4. End Sub



 
Bonjour Marc L,
 
Merci pour votre réponse!  :)  
Ok en effet c'était une erreur toute bête!
 
Par contre pouvez-vous m'expliquer votre ligne simplifiée ? Je n'arrives pas à voir ce qu'elle fait étape par étape.
 

n°2181000
Marc L
Posté le 17-03-2013 à 18:02:07  profilanswer
 

 
           Elle affecte la valeur une ligne en dessous de la dernière saisie de la colonne, voir l'aide intégrée de VBA pour plus de précisions …
 

n°2181001
meurder
Posté le 17-03-2013 à 18:07:03  profilanswer
 

Ok et bien j'y vais de ce pas! Merci encore


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [Résolu]Utilisation formulaire

 

Sujets relatifs
formulaire php mysql avec authentification smtpScript PHP qui génère une page html grâce a un formulaire
formulaire[RESOLU][DELPHI] Utilisation de la Scrollbar
lien vers un document dans formulaire[Powershell]Utilisation d'un script powershell via un formulaire
Utilisation de Geshi avec un formulaire ?utilisation de requete sur un formulaire
EXCEL utilisation Useformutilisation d un formulaire avec interaction d une base odb
Plus de sujets relatifs à : [Résolu]Utilisation formulaire


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR