Recherche

Bonjour,

J'ai totalement repenser mon fichier.

Je commence à apprendre la VBA et j'ai pu faire un peu de truc sur mon fichier.

Cependant, je ne sais pas pourquoi la date de l'envoi ne s'affiche pas dans mon tableau.

Après je souhaite que les données que j'ajoute se mettre au dessus et non en dessous mais je n'est rien trouver la dessus.

Et enfin, je cherche une solution pour la catégorie "Réponse" de mon tableau.

dois faire une userform ou mettre des bouton radio pour activer la Réponse.

Merci de votre aide par avance.

Cordialement.

Bonjour,

À propos de la date ... tu as écrit ActivCell = Txt_date_envoie au lieu de ActiveCell = Txt_date_envoie... il manque le e

Quand tu écris le code, écris toujours en minuscule. En changeant de ligne, les majuscules des mots clés vont se placer toutes seules.

Ainsi, tu évites bien des soucis.

Gelinotte

Bonjour,

Une proposition pour que les données s'ajoutent au dessus ...

Private Sub Btn_Valider_Click()

    Sheets("TABLEAU").Activate

    Rows("4:4").Insert Shift:=xlDown
    Range("A4").Select
    Range("A4") = Txt_date_envoie
    Range("A4").Offset(0, 1) = Cbo_Origine
    Range("A4").Offset(0, 2) = Txt_Refoffre
    Range("A4").Offset(0, 3) = Txt_Nomentreprise
    Range("A4").Offset(0, 4) = Txt_Adresse
    Range("A4").Offset(0, 5) = Txt_CP
    Range("A4").Offset(0, 6) = Txt_Ville
    Range("A4").Offset(0, 7) = Txt_Telephone
    Range("A4").Offset(0, 8) = Txt_Mail
    Range("A4").Offset(0, 9) = Cbo_Contrat
    Range("A4").Offset(0, 10) = Txt_Poste
    Range("A4").Offset(0, 11) = Txt_Date_Relance
    Range("A4").Offset(0, 12) = Cbo_Mode_relance
    Range("A4").Offset(0, 13) = Txt_Date_Entretien

    MsgBox "Votre candidature a bien été ajouté", vbOKOnly + vbInformation, "CONFIRMATION"

End Sub

Gelinotte

Merci Gelinotte ton code fonctionne à merveille.

Par ailleurs, je n'avais pas vu que j'avais oublier un "e" à ActiveCell.

Cependant je prend note que quand je code j'écrirais toujours en minuscule.

Cordialement.