Discussion :

[mia.555]

Bonjour,
J'ai un problème sur mon code et j'aimerais que vous m'aidiez. En faite je veux modifier plusieurs lignes de ma feuille Excel en meme temps si une valeur de mon champ de la colonne 1 a été donnée.
Merci d'avance

[halaster08]

J'ai un problème sur mon code

Quel code?

[mia.555]

Quel code?

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
Private Sub ModifierPlanPreventionDansBDD_Bouton_Click()
       Dim LigneModifiee As Long
        'Affectation du numéro de la ligne de modification à la variable LigneModifiee
        LigneModifiee = 10 + Me.PlanModifier_Liste.ListIndex
        If (Cells(LigneModifiee, 1) <> ReferenceAvantModification _
        Or Cells(LigneModifiee, 2) <> SiteAvantModification _
        Or Cells(LigneModifiee, 3) <> EntrepriseAvantModification _
        Or Cells(LigneModifiee, 4) <> DomaineAvantModification) Then
            MsgBox "La sélection présente une erreur, aucune modification n'est faite par précaution de préservation des données.", _
            vbOKOnly + vbInformation, _
            "Modification annulée"
        Else
            With LesPlansPrevention
                .Cells(LigneModifiee, 1) = Me.ReferencePlan_Champ
                If (Me.EmplacementPlan_Champ <> "") Then
                    .Hyperlinks.Add .Cells(LigneModifiee, 1), Me.EmplacementPlan_Champ
                End If

et j'aimerais modifier les lignes automatiquement si elles ont la même référenceplan