[XL-2010] Modification feuille en VBA

1 pièce(s) jointe(s)

Modification feuille en VBA

Bonjour,

Un fichier suivi contrat qui fonctionne de cette manière :

on clique sur un bouton qui permet de créer un nouvel onglet depuis une base de données. Cette nouvelle feuille se présente comme un formulaire qui doit être rempli et une fois l'action terminée on appuie sur un bouton "valider" et les informations de cette fiche est reportées dans la base de données.

J'ai donc réussi la partie création mais mon soucis c'est que je souhaiterai faire en sorte dans chaque onglet crée on peut modifier les informations et que cette modification se rapporte également dans la feuille base de données (le bouton "valider" se transforme, de manière automatique, par "modifier").

Je vous joint mon fichier pour comprendre : Pièce jointe 242849
(en tout cas j'espère que je me suis bien exprimée :oops: )

Salut,

je te propose le code suivant :

J'ai modifié la première procédure "Valider" de manière à changer l'action qui est effectué par le bouton.
J'ai repris ton code pour faire la procédure de modification.

Elle recherche dans la feuille "RECAP CONTRAT" la ligne concernée par le contrat et injecte les données dessus. Avec ton code.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Valider()
 
    Set fr = Sheets("RECAP CONTRAT")
 
    Call VerifDesSaisies
    If flag = 1 Then Exit Sub
 
    'Report sur la feuille RECAP CONTRAT
    lgn = fr.Range("A" & Rows.Count).End(xlUp)(2).Row
 
    For i = 1 To 15
        adSource = Choose(i, "B3", "B7", "B9", "B13", "F11", "B11", "F16", "D11", "B16", "D16", "I16", "C34", "C37", "H11", "I3")
        adDest = Choose(i, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 23, 25)
        fr.Cells(lgn, adDest) = Range(adSource)
 
    Next i
 
    'modification de l'action affecté au bouton
    ActiveSheet.Shapes("Button 1").OnAction = "modifier"
 
    'suite de ta macro
    ActiveSheet.Name = Format(Range("B3"), "00") & "-" & Range("B7")
    fr.Range("A" & lgn) = Range("B3")
 
    MsgBox "Le contrat n°" & Format(Range("B3"), "00") & " est enregistré"
    Sheets("RECAP CONTRAT").Activate
 
 
End Sub

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Sub modifier()
    Dim c As Range
    Set fr = Sheets("RECAP CONTRAT")
 
    Call VerifDesSaisies
    If flag = 1 Then Exit Sub
 
    'détermination de la ligne de la feuille "Recap contrat" sur laquelle on doit répercuter les modif
    Set c = fr.Range("A:A").Find(Range("B3").Value)
    'Report sur la feuille RECAP CONTRAT
    lgn = c.Row
 
    For i = 1 To 15
        adSource = Choose(i, "B3", "B7", "B9", "B13", "F11", "B11", "F16", "D11", "B16", "D16", "I16", "C34", "C37", "H11", "I3")
        adDest = Choose(i, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 23, 25)
        fr.Cells(lgn, adDest) = Range(adSource)
 
    Next i
 
    MsgBox "Le contrat n°" & Format(Range("B3"), "00") & " est transféré"
    Sheets("RECAP CONTRAT").Activate
End Sub

En espérant que c'est bien ce que tu veux.

Bonjour,

Merci beaucoup c'est exactement ce qu'il me fallait :D

Merci encore :mouarf: