Discussion :

[rsane]

Bonjour à tous,

j'ai créé un bouton macro via vba pour la saisie de données via un formulaire. Je souhaite maintenant créé un bouton pour la modification d'une ligne spécifique. En effet, ce bouton lancera le même formulaire sauf qu'il remplira automatiquement les données dans les textbox/combobox correspondants. Voici le code auquel j'avais pensé mais cela ne fonctionne, je tiens à précisé que j'ai suivi des cours vba il y a 6 ans et que je le pratique occasionnellement dans le cadre de mon travail.
Merci d'avance pour votre aide.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub Bouton5_Clic()
'lancement du formulaire
Frmsaisie.Show
 
Dim numLigneAModif As Integer
 
Worksheets("Investissement").Activate
'Recherche de la ligne de la cellule active
numLigneAModif = ActiveCells.Row
 
If numLigneAModif < 3 Or ActiveCells = "" Then
    MsgBox "Veuillez selectionner une cellule valide ", vbCritical, "Mauvaise sélection"
Else
    Frmsaisie.TbxEts.Text = Cells(numLigneAModif, 1)
    Frmsaisie.TbxDate.Text = Cells(numLigneAModif, 2)
    Frmsaisie.TbxInv.Text = Cells(numLigneAModif, 3)
    Frmsaisie.ComboBox1.Text = Cells(numLigneAModif, 4)
    Frmsaisie.TbxDuree.Text = Cells(numLigneAModif, 5)
    Frmsaisie.TbxRemb = Cells(numLigneAModif, 6)
    Frmsaisie.TbxDate2 = Cells(numLigneAModif, 7)
    End If
 
 
End Sub

[Theze]

Bonsoir,

Je n'ai pas regardé plus loin mais je vois déjà que tu n'as pas demandé la déclaration des variables obligatoire sinon, le débogueur aurait surligné cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
 ActiveCells.Row

C'est ActiveCell sans "s".
Je te conseille de cocher la case "Déclaration des variables obligatoire" menu "Outils" -> "Options" -> onglet "Editeur". Ceci afin d'éviter des résultats et comportement surprenant dans tes procédures.

Hervé.

[rsane]

Merci beaucoup mon programme fonctionne grace a toi