Feuille

Bonjour,

j'ai ce code et j'ai mon bouton pour l'actionner qui est sur la feuille 1 et je voudrais que le resultat s'affiche sur la feuille 2

que faut-il rajouter ?

Private Sub CommandButton_Ajouter_Click()

'Coloration des Labels en noir

Label_Nom.ForeColor = RGB(0, 0, 0)

Label_Prenon.ForeColor = RGB(0, 0, 0)

Label_DateNaissance.ForeColor = RGB(0, 0, 0)

Label_Club.ForeColor = RGB(0, 0, 0)

'Contrôles de contenu

If TextBox_Nom.Value = "" Then 'SI pas de "nom" ...

Label_Nom.ForeColor = RGB(255, 0, 0) 'Label "nom" en rouge

ElseIf TextBox_Prenon.Value = "" Then

Label_Prenon.ForeColor = RGB(255, 0, 0)

ElseIf TextBox_DateNaissance.Value = "" Then

Label_DateNaissance.ForeColor = RGB(255, 0, 0)

ElseIf ComboBox_Club.Value = "" Then

Label_Club.ForeColor = RGB(255, 0, 0)

Else

'Si le formulaire est complet, on insère les valeurs sur la feuille

Dim no_ligne As Integer, civilite As String

'no_ligne = N° de ligne de la dernière cellule non vide de la colonne +1

no_ligne = Range("B65536").End(xlUp).Row + 1

'Insertion des valeurs sur la feuille

Cells(no_ligne, 2) = TextBox_Nom.Value

Cells(no_ligne, 3) = TextBox_Prenon.Value

Cells(no_ligne, 4) = TextBox_DateNaissance.Value

Cells(no_ligne, 6) = ComboBox_Club.Value

'Après insertion, on remet les valeurs initiales

TextBox_Nom.Value = ""

TextBox_Prenon.Value = ""

TextBox_DateNaissance.Value = ""

ComboBox_Club.ListIndex = -1

End If

End Sub

Bonjour,

Dans un même classeur, avant de coller:

Sheets(Feuil2).Activate

coller

et penser au retour Feuil1

a+

quelque soit l'endroit ou j'insere "Sheets(Feuil2).Activate " je suis en erreur

il faut le mettre ou ?

help please

Bonjour

Tu devrais essayer de remplacer cette partie de ton code :

'Insertion des valeurs sur la feuille
Cells(no_ligne, 2) = TextBox_Nom.Value
Cells(no_ligne, 3) = TextBox_Prenon.Value
Cells(no_ligne, 4) = TextBox_DateNaissance.Value
Cells(no_ligne, 6) = ComboBox_Club.Value

par celle-ci :

 Sheets("Feuil2").Cells(no_ligne, 2) = TextBox_Nom.Value
 Sheets("Feuil2").Cells(no_ligne, 3) = TextBox_Prenon.Value
 Sheets("Feuil2").Cells(no_ligne, 4) = TextBox_DateNaissance.Value
 Sheets("Feuil2").Cells(no_ligne, 6) = ComboBox_Club.Value

Ou encore par celle-ci :

With Sheets("Feuil2")
    .Cells(no_ligne, 2) = TextBox_Nom.Value
    .Cells(no_ligne, 3) = TextBox_Prenon.Value
    .Cells(no_ligne, 4) = TextBox_DateNaissance.Value
    .Cells(no_ligne, 6) = ComboBox_Club.Value
End With

Bonne chance !

Bye !

je vais bien sur la feuil2

mais maintenant cette ligne ne fonctionne plus

no_ligne = Range("B65536").End(xlUp).Row + 1

je rentre mes infos une 1ere fois, je valide

elles se mettent sur la 1ere ligne

je rentre mes infos pour la 2eme fois, je valide

au lieu de se mettre en dessous, elles se mettent dessus

comment je regle ça ?

merci

Bonjour

Tu écris :

comment je regle ça ?

Sans le fichier qui va avec, il me sera difficile de tester pour voir ce qui ne va pas.

Désolé ....

oui c'est vrai que ça doit aider

le fichier a perdu la macro, je le remets

Bonjour

A tester.

merci

ça a l'air correcte, je vais le mettre en place

et confirmerai le résultat