Valider sur autre feuille

Bonjour le forum,

un petit souci malgré les recherches. J'ai créé un userForm sur Feuil1 et lorsque celui-ci est complété et que j'appuie sur le bouton valider, j'aimerai que les données se "colle" sur une autre feuille, respectivement nommée "tableau". J'arrive à mettre le données sur la feuille tableau mais seulement si je démarra mon userform depuis cette feuille.

Merci de votre aide

18listing-iii.zip (20.95 Ko)

Bonjour

Il suffit d'indiquer dans le Code de l' Usurform

Sheets("tableau").Activate

comme indiqué ci-dessous

Private Sub CommandButton_valider_Click()
            'Si le formulaire est complet, on insère les valeurs sur la feuille
            Sheets("tableau").Activate
            Dim no_ligne As Integer
La suite...

Cordialement

ou alors le code de ton bouton :

Private Sub CommandButton_valider_Click()
            'Si le formulaire est complet, on insère les valeurs sur la feuille
            Dim no_ligne As Integer

  'indique dans quelle feuille j'envois les données
  With Sheets("tableau")
        'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1
         no_ligne = .Range("A65536").End(xlUp).Row + 1

        'Insertion des valeurs sur la feuille
         .Cells(no_ligne, 1) = TextBox_dates.Value
         .Cells(no_ligne, 2) = ComboBox_statut.Value
         .Cells(no_ligne, 3) = ComboBox_personne.Value
         .Cells(no_ligne, 4) = ComboBox_nationalité.Value
         .Cells(no_ligne, 5) = ComboBox_domicile.Value
         .Cells(no_ligne, 16) = TextBox_remarques.Value
 End With

         TextBox_dates.Value = ""
         ComboBox_statut.Value = ""
         ComboBox_personne.Value = ""
         ComboBox_nationalité.Value = ""
         ComboBox_domicile.Value = ""
         TextBox_remarques.Value = ""

End Sub

Nikel !!!!

Merci beaucoup.

Rechercher des sujets similaires à "valider feuille"