Codes vba pour un bouton de commande Résolu/Fermé

Question

Bonjour

Je suis un débutant en programmation et un nouveau au forum, d'ou je demande d'avance votre indulgence pour toute éventuelle irrégularité.

j'ai créé un petit formulaire qui a deux textbox et un bouton de commande, les deux textbox me permettent de saisir la date du jour et l'évenement du jour et le bouton de commande devrait me permettre de les (la date et l'évenement) ajouter quotidiennement dans deux colonnes (Date: A et Evenement: G) d'un tableur excel (dont les cellules de autres colonnes qui contiennent les formules se remplissent automatiquement à partir des données d'une autre feuil) en commençant par leurs premières cellules vides A5 pour la date et G5 pour l'évenement, ces cellules ont été fusionnées et celles de la colonne date ont été renommées; Elles sont au total 35 cellules par colonne, celles de la colonne date renommées de RDAT1 à RDAT35. Après chaque 7 cellules pour les deux colonnes il y a une cellule déjà remplie pour le sous-total hebdomadaire.
Voici ci-après le code vba que j'ai écrit derrière le bouton de commande mais qui ne marche pas. J'ai  besoin de votre aide

 Private Sub CommandButton_Enregister_Click()

        Feuil16.Activate
        
        Dim iRow As Long
        Dim ws As Worksheet
        Set ws = Worksheets("RAPPORT")
        
        
        'Trouve la premiere ligne vide
        iRow = ws.Cells(Rows.Count, 1)
        .End(xlUp).Offset(1, 0).Row


        'Si le formulaire est complet, on insère les valeurs sur la feuille

        
        ws.Cells(iRow, 1) = TextBox_Date_jour.Value
        ws.Cells(iRow, 7) = TextBox_Evenement.Value
        
        
        'Après insertion, on remet les valeurs initiales
        
        Me.TextBox_Date_jour = ""
        Me.TextBox_Evenement = ""
        
        
    ThisWorkbook.Save
    
    Unload Me
    
        
End Sub

Patrice33740 · Answer

Bonjour,

Ton code devrait fonctionner, Feuil16.Activate est inutile (si tu dois sélectionner la feuille, il vaut mieux ws.Activate près le Set) et  iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row doit être sur une ligne :
Private Sub CommandButton_Enregister_Click()
Dim iRow As Long
Dim ws As Worksheet

  Set ws = Worksheets("RAPPORT")
  
  'Trouve la premiere ligne vide
  iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

  'Si le formulaire est complet, on insère les valeurs sur la feuille
  ws.Cells(iRow, 1) = TextBox_Date_jour.Value
  ws.Cells(iRow, 7) = TextBox_Evenement.Value

  'Après insertion, on remet les valeurs initiales
  Me.TextBox_Date_jour = ""
  Me.TextBox_Evenement = ""
  
  'ThisWorkbook.Save
  
  Unload Me

End Sub

Patrice33740 · Answer

Bonjour,

C'est pas plus clair qu'avant !!!

« le tableau a sept colonnes (de A à G) et 154 lignes, donc il occupe la plage de A1 à G154» Jusque-là ça va !

Là ou c'est moins clair c'est :
«  c'est seulement cette plage qui m'interresse pas toute le feuille RAPPORT. »  ???
Je suppose que tu a voulu écrire :
«  c'est seulement cette plage qui m'intéresse, pas toute le feuille RAPPORT. » avec une virgule !

Et encore :
 « Le code actuel ajoute les dates et les évenements sur la feuille mais pas dans le tableau, càd à partir de A155 et G155 »
La aussi je suppose que c'est :
« Le code actuel ajoute les dates et les évènements sur la feuille à partir de A155 et G155, mais pas dans le tableau » 

Alors dans ce cas, c'est que la plage de cellules A5:A154 n'est pas vide  !!!
Peut-être y-t-il des formules ou des espaces ???

Cordialement
Patrice

Patrice33740 · Answer

Bonjour,

Ne ne comprend plus :
- d'un coté a propos de ma réponse «la plage de cellules A5:A154 n'est pas vide » tu dis que « Dans cette plage il y a effectivement des cellules qui ont des formules et des espaces » . Ce qui explique parfaitement le fait que « Le code actuel ajoute les dates et les évènements sur la feuille à partir de A155 et G155, mais pas dans le tableau ».  
- et maintenant tu réponds « les cellules de deux colonnes ou il faut enregistrer les données sont vides, pour la colonne Date, la première cellule vide c'est A5 ... » 
 
Il faudrait savoir : soit elles sont vides et il n'y a rien dedans, ni formule ni espace, soit elles ne sont pas vides !!!

Dans le cas où les cellules sont vides, il n'y a aucune raison pour que la macro proposée, ne fonctionne pas.

Et dans le cas où elles ne sont pas vides, il est normal que la macro écrive sur la première cellule non vide (en A155) !

Codes vba pour un bouton de commande

3 réponses

Discussions similaires