Macro excel

[nanie13]

Bonjour,

J’ai crée un formulaire avec TextBox et CheckBox qui ajoute, supprime, recherche dans une feuille excel. 😛
Je souhaiterais modifier et enregistrer à partir de ma recherche, mais je ne trouve pas le bon code. 😕
Quelqu’un pourrait-t-il m’aider s’il vous plait ?



Private Sub RECHERCHER_Click()

‘ Recherche le nom saisie
Application.Run "'Carnet d''adresses.xls'!Nom_Recherché"

' Insère TextBox dans le formulaire
TextBoxTITRE = Range("B2").Value
TextBoxNOM = Range("C2").Value
TextBoxPRENOM = Range("D2").Value
TextBoxPROFESSION = Range("E2").Value
TextBoxORGANISME = Range("F2").Value
TextBoxSERVICE = Range("G2").Value
TextBoxADRESSE1 = Range("H2").Value
TextBoxADRESSE2 = Range("I2").Value
TextBoxADRESSE3 = Range("J2").Value
TextBoxCODEPOSTAL = Range("K2").Value
TextBoxVILLE = Range("L2").Value
TextBoxTELEPHONE1 = Range("M2").Value
TextBoxTELEPHONE2 = Range("N2").Value
TextBoxMOBILE = Range("O2").Value
TextBoxEMAIL = Range("P2").Value
TextBoxSITE = Range("Q2").Value
TextBoxNOTE = Range("R2").Value

' Insère les cases à cocher
CheckBox1.Value = UCase(Sheets("Contacts").Range("S2")) = "X" ' ADHERENT
CheckBox2.Value = UCase(Sheets("Contacts").Range("T2")) = "X" ' AP-HM
CheckBox3.Value = UCase(Sheets("Contacts").Range("U2")) = "X" ' AMI
CheckBox4.Value = UCase(Sheets("Contacts").Range("V2")) = "X" ' ASSOCIATION
CheckBox5.Value = UCase(Sheets("Contacts").Range("W2")) = "X" ' BENEVOLE
CheckBox6.Value = UCase(Sheets("Contacts").Range("X2")) = "X" 'CONSEIL GENERAL 13
CheckBox7.Value = UCase(Sheets("Contacts").Range("Y2")) = "X" ' CONSEIL REGIONAL PACA
CheckBox8.Value = UCase(Sheets("Contacts").Range("Z2")) = "X" ' JEUNE
CheckBox9.Value = UCase(Sheets("Contacts").Range("AA2")) = "X" ' MAIRIE
CheckBox10.Value = UCase(Sheets("Contacts").Range("AB2")) = "X" ' MEDECIN
CheckBox11.Value = UCase(Sheets("Contacts").Range("AC2")) = "X" ' MEMBRE HONNEUR
CheckBox12.Value = UCase(Sheets("Contacts").Range("AD2")) = "X" ' ORGANISME
CheckBox13.Value = UCase(Sheets("Contacts").Range("AE2")) = "X" ' RESSOURCE
CheckBox14.Value = UCase(Sheets("Contacts").Range("AF2")) = "X" ' SPONSOR
CheckBox15.Value = UCase(Sheets("Contacts").Range("AG2")) = "X" ' SUBVENTIONNEUR
CheckBox16.Value = UCase(Sheets("Contacts").Range("AH2")) = "X" ' U.N.P.S.

' Supprime les lignes vides
Application.Run "'Carnet d''adresses.xls'!Supprime_lignes_vides"

End Sub

 

[JNP]

Re : Macro excel

Bonjour Nanie13 🙂,
Si je comprends bien ta question, il te suffit d'inverser la vapeur :

Range("B2") = TextBoxTITRE.Value

et ainsi de suite.
Bonne journée 😎