Multipage et plusieurs feuilles vba

Fermé

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017 - Modifié par tophessa51 le 20/03/2017 à 17:17
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 - 24 mars 2017 à 09:52

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.

A voir également:

Multipage et plusieurs feuilles vba
Fusionner plusieurs feuilles excel en une seule - Guide
Incompatibilité de type vba ✓ - Forum Programmation
Vba attendre 1 seconde ✓ - Forum VB / VBA
Feuilles diddl valeur ✓ - Forum Graphisme
Vba dernière colonne non vide ✓ - Forum VB / VBA

4 réponses

Réponse 1 / 4

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
Modifié par f894009 le 20/03/2017 à 20:35

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+

Réponse 2 / 4

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
20 mars 2017 à 20:42

En corrigeant 2017 ça ira déjà un peu mieux

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
21 mars 2017 à 07:42

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 ?

Réponse 3 / 4

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
21 mars 2017 à 07:45

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
21 mars 2017 à 08:03

Re,
Ok. C'est vous qui allez remplir ce formulaire?

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024
21 mars 2017 à 11:47

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

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.

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
22 mars 2017 à 09:47

Merci beaucoup, je vais jeter un oeil. Pour les valeurs numériques, je vais regarder. Je l'avais déjà fais auparavant.

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
23 mars 2017 à 12:28

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.

Réponse 4 / 4

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
23 mars 2017 à 12:53

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.

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
23 mars 2017 à 14:36

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)

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
23 mars 2017 à 20:56

Merci beaucoup. Je regarde demain car je n'y ai pas accès ce soir.

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 07:57

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.

tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 08:09

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

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702 > tophessa51 Messages postés 16 Date d'inscription jeudi 16 mars 2017 Statut Membre Dernière intervention 24 mars 2017
24 mars 2017 à 08:21

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?

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

VBA : Range avec références variables..

VBA erreur 1004

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Discussions similaires

Newsletters