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
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
et j'aimerais modifier les lignes automatiquement si elles ont la même référenceplan
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
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager