Multipage et plusieurs feuilles vba

tophessa51 Messages postés 16 Statut Membre -  
f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

J'ai un formulaire sous vba et je rencontre un soucis avec la multipage. Je souhaiterai que les infos entrées sur la multipage 2 s'écrivent sur la feuilles "actes" de mon fichier.

J'ai essayé avec : 

'INSERER UN NOUVEAU PATIENT
Private Sub CommandButton5_Click()
Dim m, n, o, p, q, r, s, t, u, v, w, x, y, z
Dim OS, OSA, Abstinent, Sérologiesc, Sérologiesp, PEV, Relaismétha, Relaisautrecentre, CSMS, PASS, Club, Incarcérationannée, Incarcérationantérieure, Nouveaupatient
Dim L As Integer
Dim ctr As Control

For Each m In UserForm1.Frame1.Controls 'récupère la variable du dossier OS
If m.Value = True Then OS = Trim(m.Caption)
Next m

For Each n In UserForm1.Frame2.Controls 'récupère la variable OS antérieure
If n.Value = True Then OSA = Trim(n.Caption)
Next n

For Each o In UserForm1.Frame3.Controls 'récupère la variable Abstinent
If o.Value = True Then Abstinent = Trim(o.Caption)
Next o

For Each p In UserForm1.Frame4.Controls 'récupère la variable des sérologies connues
If p.Value = True Then Sérologiesc = Trim(p.Caption)
Next p

For Each q In UserForm1.Frame5.Controls 'récupère la variable des sérologies prescrites
If q.Value = True Then Sérologiesp = Trim(q.Caption)
Next q

For Each r In UserForm1.Frame6.Controls 'récupère la variable du PEV
If r.Value = True Then PEV = Trim(r.Caption)
Next r

For Each s In UserForm1.Frame7.Controls 'récupère la variable du Relais méthadone
If s.Value = True Then Relaismétha = Trim(s.Caption)
Next s

For Each t In UserForm1.Frame8.Controls 'récupère la variable du Relais autre centre
If t.Value = True Then Relaisautrecentre = Trim(t.Caption)
Next t

For Each u In UserForm1.Frame9.Controls 'récupère la variable du CSMS
If u.Value = True Then CSMS = Trim(u.Caption)
Next u

For Each v In UserForm1.Frame10.Controls 'récupère la variable du PASS
If v.Value = True Then PASS = Trim(v.Caption)
Next v

For Each w In UserForm1.Frame11.Controls 'récupère la variable du Club
If w.Value = True Then Club = Trim(w.Caption)
Next w

For Each x In UserForm1.Frame12.Controls 'récupère la variable du Incarcération dans l'année
If x.Value = True Then Incarcérationannée = Trim(x.Caption)
Next x

For Each y In UserForm1.Frame13.Controls 'récupère la variable du Incarcération antérieure
If y.Value = True Then Incarcérationantérieure = Trim(y.Caption)
Next y

For Each z In UserForm1.Frame14.Controls 'récupère la variable du Nouveau patient
If z.Value = True Then Nouveaupatient = Trim(z.Caption)
Next z

If MsgBox("Etes-vous certain de vouloir ajouter un nouveau patient ?", vbYesNo, "Demande de confirmation") = vbYes Then

L = Sheets("2017").Range("a65536").End(xlUp).Row + 1 'Permet de se positionner sur la dernière ligne de tableau NON VIDE

Sheets("2107").Range("A" & L).Value = TB31 'Insère la donnée de la liste déroulante dans la colonne A
Sheets("2107").Range("B" & L).Value = TB32 'Insère la donnée de la ComboBox2 dans la colonne B
Sheets("2107").Range("C" & L).Value = TB33 'Correspond à la date de naisance
Sheets("2107").Range("E" & L).Value = TB2
Sheets("2107").Range("F" & L).Value = TB30
Sheets("2107").Range("G" & L).Value = TB1
Sheets("2107").Range("H" & L).Value = TB12
Sheets("2107").Range("I" & L).Value = TB11
Sheets("2107").Range("J" & L).Value = TB4
Sheets("2107").Range("K" & L).Value = OS
Sheets("2107").Range("L" & L).Value = OSA
Sheets("2107").Range("M" & L).Value = Incarcérationannée
Sheets("2107").Range("N" & L).Value = Incarcérationantérieure
Sheets("2107").Range("O" & L).Value = Nouveaupatient
Sheets("2107").Range("P" & L).Value = TB13
Sheets("2107").Range("Q" & L).Value = TB14
Sheets("2107").Range("R" & L).Value = TB15
Sheets("2107").Range("S" & L).Value = TB5
Sheets("2107").Range("T" & L).Value = TB3
Sheets("2107").Range("U" & L).Value = TB7
Sheets("2107").Range("V" & L).Value = TB8
Sheets("2107").Range("W" & L).Value = Abstinent
Sheets("2107").Range("X" & L).Value = TB10
Sheets("2107").Range("Y" & L).Value = Sérologiesc
Sheets("2107").Range("Z" & L).Value = Sérologiesp
Sheets("2107").Range("AA" & L).Value = PEV
Sheets("2107").Range("AB" & L).Value = Relaismétha
Sheets("2107").Range("AC" & L).Value = Relaisautrecentre
Sheets("2107").Range("AD" & L).Value = TB9
Sheets("2107").Range("AE" & L).Value = TB6
Sheets("2107").Range("AF" & L).Value = CSMS
Sheets("2107").Range("AG" & L).Value = PASS
Sheets("2107").Range("AH" & L).Value = Club

L = Sheets("actes").Range("a65536").End(xlUp).Row + 1

Sheets("actes").Range("B" & L).Value = TB34
Sheets("actes").Range("C" & L).Value = TB35
Sheets("actes").Range("D" & L).Value = TB36
Sheets("actes").Range("E" & L).Value = TB37 
Sheets("actes").Range("F" & L).Value = TB38
Sheets("actes").Range("G" & L).Value = TB39
Sheets("actes").Range("H" & L).Value = TB40
Sheets("actes").Range("I" & L).Value = TB41
Sheets("actes").Range("J" & L).Value = TB42
Sheets("actes").Range("K" & L).Value = TB43
Sheets("actes").Range("L" & L).Value = TB44
Sheets("actes").Range("M" & L).Value = TB45
Sheets("actes").Range("N" & L).Value = TB46
Sheets("actes").Range("O" & L).Value = TB47
Sheets("actes").Range("P" & L).Value = TB48
Sheets("actes").Range("Q" & L).Value = TB49
Sheets("actes").Range("R" & L).Value = TB50
Sheets("actes").Range("S" & L).Value = TB51
Sheets("actes").Range("T" & L).Value = TB52
Sheets("actes").Range("U" & L).Value = TB53
Sheets("actes").Range("V" & L).Value = TB54
Sheets("actes").Range("W" & L).Value = TB55
Sheets("actes").Range("X" & L).Value = TB56
Sheets("actes").Range("Y" & L).Value = TB57
Sheets("actes").Range("Z" & L).Value = TB58
Sheets("actes").Range("AA" & L).Value = TB59
Sheets("actes").Range("AB" & L).Value = TB60
Sheets("actes").Range("AC" & L).Value = TB61
Sheets("actes").Range("AD" & L).Value = TB62
Sheets("actes").Range("AE" & L).Value = TB63
Sheets("actes").Range("AF" & L).Value = TB64
Sheets("actes").Range("AG" & L).Value = TB65
Sheets("actes").Range("AH" & L).Value = TB66
Sheets("actes").Range("AI" & L).Value = TB67
Sheets("actes").Range("AJ" & L).Value = TB68
Sheets("actes").Range("AK" & L).Value = TB69
Sheets("actes").Range("AL" & L).Value = TB70
Sheets("actes").Range("AM" & L).Value = TB71
Sheets("actes").Range("AN" & L).Value = TB72
Sheets("actes").Range("AO" & L).Value = TB73
Sheets("actes").Range("AP" & L).Value = TB74
Sheets("actes").Range("AQ" & L).Value = TB75
Sheets("actes").Range("AR" & L).Value = TB76
Sheets("actes").Range("AS" & L).Value = TB77
Sheets("actes").Range("AT" & L).Value = TB78
Sheets("actes").Range("AU" & L).Value = TB79
Sheets("actes").Range("AV" & L).Value = TB80
Sheets("actes").Range("AW" & L).Value = TB81
Sheets("actes").Range("AX" & L).Value = TB82
Sheets("actes").Range("AY" & L).Value = TB83
Sheets("actes").Range("BZ" & L).Value = TB84
Sheets("actes").Range("BA" & L).Value = TB85
Sheets("actes").Range("BB" & L).Value = TB86
Sheets("actes").Range("BC" & L).Value = TB87
Sheets("actes").Range("BD" & L).Value = TB88
Sheets("actes").Range("BE" & L).Value = TB89
Sheets("actes").Range("BF" & L).Value = TB90
Sheets("actes").Range("BG" & L).Value = TB91
Sheets("actes").Range("BH" & L).Value = TB92
Sheets("actes").Range("BI" & L).Value = TB93
Sheets("actes").Range("BJ" & L).Value = TB94
Sheets("actes").Range("BK" & L).Value = TB95
Sheets("actes").Range("BL" & L).Value = TB96
Sheets("actes").Range("BM" & L).Value = TB97
Sheets("actes").Range("BN" & L).Value = TB98
Sheets("actes").Range("BO" & L).Value = TB99
Sheets("actes").Range("BP" & L).Value = TB100
Sheets("actes").Range("BQ" & L).Value = TB101
Sheets("actes").Range("BR" & L).Value = TB102
Sheets("actes").Range("BS" & L).Value = TB103
Sheets("actes").Range("BT" & L).Value = TB104
Sheets("actes").Range("BU" & L).Value = TB105
Sheets("actes").Range("BV" & L).Value = TB106
Sheets("actes").Range("BW" & L).Value = TB107
Sheets("actes").Range("BX" & L).Value = TB108
Sheets("actes").Range("BY" & L).Value = TB109
Sheets("actes").Range("BZ" & L).Value = TB110
Sheets("actes").Range("CA" & L).Value = TB111
Sheets("actes").Range("CB" & L).Value = TB112
Sheets("actes").Range("CC" & L).Value = TB113
Sheets("actes").Range("CD" & L).Value = TB114
Sheets("actes").Range("CE" & L).Value = TB115
Sheets("actes").Range("CF" & L).Value = TB116
Sheets("actes").Range("CG" & L).Value = TB117

End If

MsgBox ("Patient ajouté au fichier") 'Vous informe que le présent contact est insérer dans votre tableau Excel.

Unload Me 'Ferme le formulaire
UserForm1.Show 'Ouvre le formulaire
End Sub


J'imagine que vous allez me trouver la solution en 5 minutes comme d'habitude.
Autre chose aussi, j'ai des noms et prénoms qui s'inscrivent sur ma feuilles 2017 et j'aimerai avoir les mêmes sur ma feuille actes sans qu'ils soient recopiés plusieurs fois. En gros j'aimerai pouvoir modifier après coup la fiche d'un patient.

Je vous joins mon fichier pour que vous puissiez y voir plus clair.

https://www.cjoint.com/c/GCuqpRube26

Merci par avance pour votre aide.

4 réponses

  1.
    f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
     
    Bonjour,
    Je recupere le fichier et vous tiens au courrant (sauf si quelqu'un traite la chose d'ici demain matin)

    Au fait, Sheets("2017") pas Sheets("2107")
    A+
    0
  2. tophessa51 Messages postés 16 Statut Membre
     
    En corrigeant 2017 ça ira déjà un peu mieux
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Bonjour,
      Pour Nouveau Patient, il y a pas mal de modif car, pour l'instant, vous inserez une ligne vide (prend moins de place).
      Que saisissez vous dans les textbox de la page actes ?
      0
  3. tophessa51 Messages postés 16 Statut Membre
     
    Je saisis des nombres. C'est le nombre de fois ou un petient vois par exemple un medecin sur un mois donné. Il faudra que je pense à préciser le format dans initialyze sinon ça ne sera pas reconnu au format nombre.
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      Ok. C'est vous qui allez remplir ce formulaire?
      0
    2. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Re,

      Fichier modifie pour nouveau patient. Controles a ajouter pour les champs a saisie obligatoires. Dans un groupe de boutons option, il suffit dans affecter un seul
      https://www.cjoint.com/c/GCvkUuuz6cf
      0
    3. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention  
       
      Bonjour,
      J'avais zappe le controle patient deja dans le fichier

      https://www.cjoint.com/c/GCwhvLYklsf

      Pour la saisie numerique des textbox actes, je vous laisse cogiter.
      0
    4. tophessa51 Messages postés 16 Statut Membre
       
      Merci beaucoup, je vais jeter un oeil. Pour les valeurs numériques, je vais regarder. Je l'avais déjà fais auparavant.
      0
    5. tophessa51 Messages postés 16 Statut Membre
       
      Merci encore f894009. Tu as beaucoup travaillé sur le fichier et tu l'as bien fait.Il me reste quelques petites choses à faire et je vais chercher. Par contre, si je ne renseigne pas toutes les combobox et que j'(en laisse certaines de vides car je n'ai pas encore l'information, j'ai une erreur notamment avec la TB3 ou tu as ajouté Cdate. Est-il possible de préciser si ""?
      Maintenant je vais jeter un oeil pour récupérer les infos de la feuille actes pour modification car pour le moment cette fonction n'est pas active. J'essaie et je reviens vers vous si j'ai des soucis.
      0
  4. tophessa51 Messages postés 16 Statut Membre
     
    Dans ma fonction de récupération des données en vue de les modifier, je n'arrive pas à dire en vba va chercher telle textbox dans la feuille 2017 et telle textbox dans la feuille actes.

    J'ai essayé

    Me.Controls("TB31") = Ws.Cells(Ligne, "2017!A").Value

    J'ai également essayé with worksheet ("actes") mais idem, j'ai une erreur. Pourriez-vous m'éclairer?

    Merci 

    'Correspond à la liste déroulante Prénom
    Private Sub ComboBox2_Change()
    Dim Ligne As Long
    Dim I As Integer
    Dim TB
      Call Nettoyage 'Lance le programme Nettoyage

      If Me.ComboBox2.ListIndex = -1 Then Exit Sub  'nouveau patient
      Ligne = Me.ComboBox2.List(Me.ComboBox2.ListIndex, 1)
      For I = 1 To 117
      With Worksheets("2017")
        Me.Controls("TB31") = Ws.Cells(Ligne, "A").Value
        Me.Controls("TB32") = Ws.Cells(Ligne, "B").Value
        Me.Controls("TB33") = Ws.Cells(Ligne, "C").Value
        Me.Controls("TB2") = Ws.Cells(Ligne, "E").Value
        Me.Controls("TB30") = Ws.Cells(Ligne, "F").Value
        Me.Controls("TB1") = Ws.Cells(Ligne, "G").Value
        Me.Controls("TB12") = Ws.Cells(Ligne, "H").Value
        Me.Controls("TB11") = Ws.Cells(Ligne, "I").Value
        Me.Controls("TB4") = Ws.Cells(Ligne, "J").Value
        Me.Controls("TB16") = Ws.Cells(Ligne, "K").Value
        Me.Controls("TB17") = Ws.Cells(Ligne, "L").Value
        Me.Controls("TB27") = Ws.Cells(Ligne, "M").Value
        Me.Controls("TB28") = Ws.Cells(Ligne, "N").Value
        Me.Controls("TB29") = Ws.Cells(Ligne, "O").Value
        Me.Controls("TB13") = Ws.Cells(Ligne, "P").Value
        Me.Controls("TB14") = Ws.Cells(Ligne, "Q").Value
        Me.Controls("TB15") = Ws.Cells(Ligne, "R").Value
        Me.Controls("TB5") = Ws.Cells(Ligne, "S").Value
        Me.Controls("TB3") = Ws.Cells(Ligne, "T").Value
        Me.Controls("TB7") = Ws.Cells(Ligne, "U").Value
        Me.Controls("TB8") = Ws.Cells(Ligne, "V").Value
        Me.Controls("TB18") = Ws.Cells(Ligne, "W").Value
        Me.Controls("TB10") = Ws.Cells(Ligne, "X").Value
        Me.Controls("TB19") = Ws.Cells(Ligne, "Y").Value
        Me.Controls("TB20") = Ws.Cells(Ligne, "Z").Value
        Me.Controls("TB21") = Ws.Cells(Ligne, "AA").Value
        Me.Controls("TB22") = Ws.Cells(Ligne, "AB").Value
        Me.Controls("TB23") = Ws.Cells(Ligne, "AC").Value
        Me.Controls("TB9") = Ws.Cells(Ligne, "AD").Value
        Me.Controls("TB6") = Ws.Cells(Ligne, "AE").Value
        Me.Controls("TB24") = Ws.Cells(Ligne, "AF").Value
        Me.Controls("TB25") = Ws.Cells(Ligne, "AG").Value
        Me.Controls("TB26") = Ws.Cells(Ligne, "AH").Value

       With Worksheets("actes")

        Me.Controls("TB34") = Ws.Cells(Ligne, "C").Value
        Me.Controls("TB35") = Ws.Cells(Ligne, "D").Value
        Me.Controls("TB36") = Ws.Cells(Ligne, "E").Value
        Me.Controls("TB37") = Ws.Cells(Ligne, "F").Value
        Me.Controls("TB38") = Ws.Cells(Ligne, "G").Value
        Me.Controls("TB39") = Ws.Cells(Ligne, "H").Value
        Me.Controls("TB40") = Ws.Cells(Ligne, "I").Value
        Me.Controls("TB41") = Ws.Cells(Ligne, "J").Value
        Me.Controls("TB42") = Ws.Cells(Ligne, "K").Value
        Me.Controls("TB43") = Ws.Cells(Ligne, "L").Value
        Me.Controls("TB44") = Ws.Cells(Ligne, "M").Value
        Me.Controls("TB45") = Ws.Cells(Ligne, "N").Value
        Me.Controls("TB46") = Ws.Cells(Ligne, "O").Value
        Me.Controls("TB47") = Ws.Cells(Ligne, "P").Value
        Me.Controls("TB48") = Ws.Cells(Ligne, "Q").Value
        Me.Controls("TB49") = Ws.Cells(Ligne, "R").Value
        Me.Controls("TB50") = Ws.Cells(Ligne, "S").Value
        Me.Controls("TB51") = Ws.Cells(Ligne, "T").Value
        Me.Controls("TB52") = Ws.Cells(Ligne, "U").Value
        Me.Controls("TB53") = Ws.Cells(Ligne, "V").Value
        Me.Controls("TB54") = Ws.Cells(Ligne, "W").Value
        Me.Controls("TB55") = Ws.Cells(Ligne, "X").Value
        Me.Controls("TB56") = Ws.Cells(Ligne, "Y").Value
        Me.Controls("TB57") = Ws.Cells(Ligne, "Z").Value
        Me.Controls("TB58") = Ws.Cells(Ligne, "AA").Value
        Me.Controls("TB59") = Ws.Cells(Ligne, "AB").Value
        Me.Controls("TB60") = Ws.Cells(Ligne, "AC").Value
        Me.Controls("TB61") = Ws.Cells(Ligne, "AD").Value
        Me.Controls("TB62") = Ws.Cells(Ligne, "AE").Value
        Me.Controls("TB63") = Ws.Cells(Ligne, "AF").Value
        Me.Controls("TB64") = Ws.Cells(Ligne, "AG").Value
        Me.Controls("TB65") = Ws.Cells(Ligne, "AH").Value
        Me.Controls("TB66") = Ws.Cells(Ligne, "AI").Value

      End With
      Next I

    If TB16.Value = "Oui" Then
        OptionButton1.Value = True
    ElseIf TB16.Value = "Non" Then
        OptionButton2.Value = True
    ElseIf TB16.Value = "NR" Then
        OptionButton3.Value = True
    End If

    If TB17.Value = "Oui" Then
        OptionButton4.Value = True
    ElseIf TB17.Value = "Non" Then
        OptionButton5.Value = True
    ElseIf TB17.Value = "NR" Then
        OptionButton6.Value = True
    End If
    'pas besoin d'affecter tous les boutons!!!
    If TB18.Value = "Oui" Then
        OptionButton7.Value = True: OptionButton8.Value = False: OptionButton9.Value = False
    ElseIf TB18.Value = "Non" Then
        OptionButton7.Value = False: OptionButton8.Value = True: OptionButton9.Value = False
    ElseIf TB18.Value = "NR" Then
        OptionButton7.Value = False: OptionButton8.Value = False: OptionButton9.Value = True
    End If

    If TB19.Value = "Oui" Then
        OptionButton10.Value = True: OptionButton11.Value = False: OptionButton12.Value = False
    ElseIf TB19.Value = "Non" Then
        OptionButton10.Value = False: OptionButton11.Value = True: OptionButton12.Value = False
    ElseIf TB19.Value = "NR" Then
        OptionButton10.Value = False: OptionButton11.Value = False: OptionButton12.Value = True
    End If

    If TB20.Value = "Oui" Then
        OptionButton13.Value = True: OptionButton14.Value = False: OptionButton15.Value = False
    ElseIf TB20.Value = "Non" Then
    OptionButton13.Value = False: OptionButton14.Value = True: OptionButton15.Value = False
    ElseIf TB20.Value = "NR" Then
    OptionButton13.Value = False: OptionButton14.Value = False: OptionButton15.Value = True
    End If

    If TB21.Value = "Oui" Then
        OptionButton16.Value = True: OptionButton17.Value = False: OptionButton18.Value = False
    ElseIf TB21.Value = "Non" Then
        OptionButton16.Value = False: OptionButton17.Value = True: OptionButton18.Value = False
    ElseIf TB21.Value = "NR" Then
        OptionButton16.Value = False: OptionButton17.Value = False: OptionButton18.Value = True
    End If

    If TB22.Value = "Oui" Then
        OptionButton19.Value = True: OptionButton20.Value = False: OptionButton21.Value = False
    ElseIf TB22.Value = "Non" Then
        OptionButton19.Value = False: OptionButton20.Value = True: OptionButton21.Value = False
    ElseIf TB22.Value = "NR" Then
        OptionButton19.Value = False: OptionButton20.Value = False: OptionButton21.Value = True
    End If

    If TB23.Value = "Oui" Then
        OptionButton22.Value = True: OptionButton23.Value = False: OptionButton24.Value = False
    ElseIf TB23.Value = "Non" Then
        OptionButton22.Value = False: OptionButton23.Value = True: OptionButton24.Value = False
    ElseIf TB23.Value = "NR" Then
        OptionButton22.Value = False: OptionButton23.Value = False: OptionButton24.Value = True
    End If

    If TB24.Value = "Oui" Then
        OptionButton25.Value = True: OptionButton26.Value = False: OptionButton27.Value = False: OptionButton28.Value = False
    ElseIf TB24.Value = "Non" Then
        OptionButton25.Value = False: OptionButton26.Value = True: OptionButton27.Value = False: OptionButton28.Value = False
    ElseIf TB24.Value = "Antérieur" Then
        OptionButton25.Value = False: OptionButton26.Value = False: OptionButton27.Value = True: OptionButton28.Value = False
    ElseIf TB24.Value = "NR" Then
        OptionButton25.Value = False: OptionButton26.Value = False: OptionButton27.Value = False: OptionButton28.Value = True
    End If

    If TB25.Value = "Oui" Then
        OptionButton29.Value = True: OptionButton30.Value = False: OptionButton31.Value = False
    ElseIf TB25.Value = "Non" Then
        OptionButton29.Value = False: OptionButton30.Value = True: OptionButton31.Value = False
    ElseIf TB25.Value = "NR" Then
    OptionButton29.Value = False: OptionButton30.Value = False: OptionButton31.Value = True
    End If

    If TB26.Value = "Oui" Then
        OptionButton32.Value = True: OptionButton33.Value = False: OptionButton34.Value = False
    ElseIf TB26.Value = "Non" Then
        OptionButton32.Value = False: OptionButton33.Value = True: OptionButton34.Value = False
    ElseIf TB26.Value = "NR" Then
        OptionButton32.Value = False: OptionButton33.Value = False: OptionButton34.Value = True
    End If

    If TB27.Value = "Oui" Then
        OptionButton35.Value = True: OptionButton36.Value = False: OptionButton37.Value = False
    ElseIf TB27.Value = "Non" Then
        OptionButton35.Value = False: OptionButton36.Value = True: OptionButton37.Value = False
    ElseIf TB27.Value = "NR" Then
        OptionButton35.Value = False: OptionButton36.Value = False: OptionButton37.Value = True
    End If

    If TB28.Value = "Oui" Then
        OptionButton38.Value = True: OptionButton39.Value = False: OptionButton40.Value = False
    ElseIf TB28.Value = "Non" Then
        OptionButton38.Value = False: OptionButton39.Value = True: OptionButton40.Value = False
    ElseIf TB28.Value = "NR" Then
        OptionButton38.Value = False: OptionButton39.Value = False: OptionButton40.Value = True
    End If

    If TB29.Value = "Vrai nouveau" Then
        OptionButton41.Value = True: OptionButton42.Value = False: OptionButton43.Value = False
    ElseIf TB29.Value = "Vu dans l'année" Then
        OptionButton41.Value = False: OptionButton42.Value = True: OptionButton43.Value = False
    ElseIf TB29.Value = "Pas vu plus d'un an" Then
        OptionButton41.Value = False: OptionButton42.Value = False: OptionButton43.Value = True
    End If
    End Sub


    J'aurai après les mêmes modifications à faire pour la fonction modifier mais on verra après.
    0
    1. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717
       
      Re,
      fichier modifie pour recupe des infos 2017 et actes
      https://www.cjoint.com/c/GCxnIpxVpef

      Pour enregistrer les actes sur modif, la demarche est la meme que pour la recherche (combobox2), sauf que vous ecrivez (voir nouveau patient)
      0
    2. tophessa51 Messages postés 16 Statut Membre
       
      Merci beaucoup. Je regarde demain car je n'y ai pas accès ce soir.
      0
    3. tophessa51 Messages postés 16 Statut Membre
       
      Je viens de jeter un oeil mais quand je rentre des modifications sur une fiche (actes), elles ne sont pas prises en compte. En fait je nage complet. C'est pas que je veux que tu fasses tout mais je ne comprend pas. Mets moi peut-être une ligne d'exemple pour que je puisse faire les modifications et ne pas te mobiliser tout ton temps.
      0
    4. tophessa51 Messages postés 16 Statut Membre
       
      Il faut que je reprenne ce format là ? 

      With Worksheets("2017")

          .Ws.Cells(Ligne, "A") = TB31.Value 'est-ce bien ce format?

      End With

      With Worksheets("actes")

         Ws.Cells(Ligne, "C") = TB34.Value

      End With
      End If


      Ca ressemble à ça?
      Merci d'avance
      0
    5. f894009 Messages postés 17417 Date d'inscription   Statut Membre Dernière intervention   1 717 > tophessa51 Messages postés 16 Statut Membre
       
      Bonjour,

      En fait je nage complet.
      Si ce n'est pas sur le sable, ca peut encore le faire

      que je puisse faire les modifications et ne pas te mobiliser tout ton temps
      Le temps ne compte pas.
      Sur la feuille Actes, vous voulez des nombres pas du texte?
      0

Discussions similaires

Imprimer un document paysage A3 avec deux feuilles A4
nikoss -
Lilo -

10 réponses
Imprimer une image sur plusieurs feuilles ?
loris575 -
papi72 -

14 réponses
erreur d'execution 9, l'indice n'appartient pas à la sélection
isidoh -
isidoh -

18 réponses
VBA excel : résoudre problème de capacité.
Juan Pedro -
Kunzi -

9 réponses
"L'indice n'appartient à la sélection" + VBA
fleur.31 -
geosevda -

2 réponses